Yazıcı Yazdırma.

[yasarbayraktar]

Merhaba,

Bir Excel İçerisinde 20 Adet Çalışma Sayfası Var.

Bunlardan Bir Çoğu Bir takım hesaplamalar veriler v.s.

Ancak 6 Tanesi Rapor sayfası.

Ben bu veri hazırlama sayfalarından birine bir buton koyarak

ve VBA de ne yapmalıyımki

Örneğin 4,7,9,11,12,13 numaralı çalışma sayfalarını yazdırmalıyım.

Özetlersen CTRL+p Yaptıgımızda Tüm çalışma kitabını yazdır seçeneğinde yukardaki sayfaları seçerek yazdırma işlemini tek butonla altta VBA kodu çalıştırarak standart bir şekilde yapabilirmiyim.

Teşekkürler.

 

[mancubus]

bir yöntem aşağıdaki gibi.

CommandButton2'yi ekleyeceğiniz düğmenin ismi ile değiştiriniz.

Private Sub CommandButton2_Click()
    Sheets(4).Select False
    Sheets(7).Select False
    Sheets(9).Select False
    Sheets(11).Select False
    Sheets(12).Select False
    Sheets(13).Select False

    ActiveWindow.SelectedSheets.PrintOut
    Sheets(1).Select
End Sub