Buton ile diğer sayfayı yazdırmak

[tb]

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]

Aşağıdaki gibi deneyin.

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

 

[tb]

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]

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.

 

[ugurb]

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]

Cevaplarınız için teşekür ederim. İyi çalışmalar.