Buton ile diğer sayfayı yazdırmak

tb

Katılım
19 Kasım 2005
Mesajlar
37
Merhaba, Sayfa1' de bir buton hazırladım. O butonla Sayfa 1' i yazdırabiliyorum. Ancak Sayfa1' den çıkmadan Sayfa2' yi nasıl yazdırabilirim. Otomatik olarak excel' in kendi yaptığı makronun kodu : (ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True) Sayfa2' yi burada nereye yazabilirim.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki gibi deneyin.

[vb:1:f1fc7e37dc]sheets("sayfa2").PrintOut[/vb:1:f1fc7e37dc]
 

tb

Katılım
19 Kasım 2005
Mesajlar
37
Teşekür ederim. Sayın Leventm verdiğiniz cevap işime yaradı. Ancak bir sorum daha olacak. Yazmış olduğumuz vb. kodlarının zarar görmemesi ve karıştırılmaması için nasıl şifre koyabilirim. Bazı örneklerde bulunuyor (forum' dan indirdiğimiz). Nereden yapıldığını açıklıyabilirmisiniz. Teşekürler.
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Sayfa Sekmesi üzerindeyken sağ klik yapın > Kod Görüntüle > Tools > VBAProject Properties > Protection > Lock Project(seçili olacak) > Alt kutulara şifre yazıp enterleyin.
 
Katılım
27 Temmuz 2004
Mesajlar
19
Sn tb belki işinize yarar birde bunu deneyin a1 hüresine yazdığınız rakan kadar sayfa çıktısı alabilirsiniz
Sub Test()
Sheets("sayfa2").PrintOut From:=1, To:=[a1].Value
End Sub
 

tb

Katılım
19 Kasım 2005
Mesajlar
37
Cevaplarınız için teşekür ederim. İyi çalışmalar.
 
Üst