3 sayfayı birden yazdırma

[Mdemir63]

Selamlar,

Arkadaşlar Sayfa1, Sayfa2, ve Sayfa3 ü tek butonla yazdırmak istiyorum. Nasıl yapabilirim?

Saygılar

 

[Recep İpek]

Aşağıdaki kodları kullanabilirsiniz.

Sub Yazdır()
    Sheets("Sheet4").Select
    sayfa = Array("Sheet1", "Sheet2", "Sheet3")
    Sheets(sayfa).Select
    Range("a1").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Sheet4").Select
    MsgBox "Bitti"
End Sub

 

[Mdemir63]

Hocam teşekkürler sağolunBu kodlardaki Sheet4 nedir hocam. Acaba butonu koyacağımız sayfamı dır?Saygılar

 

[Recep İpek]

Evet.Butonun olduğu sayfadır.İsterseniz buton hangi sayfada ise ona göre düzeltebilirsiniz.(Sheets1 gibi..)

 

[Mdemir63]

Teşekkürler hocam

Saygılar