farklı iki sayfadan yazdırma

[kemalist]

Sayfa1 den E5:L19 ile Sayfa 2 den A5:20 Arası her iki sayfada print area olarak seçilmiş bölgeyi makroyla tek tuşla yazdırmak istiyorum. Yardımlarınız içinteşekkür ederim..

 

[halit3]

Kod:

Sub YAZDIR()

Worksheets("Sayfa1").PageSetup.PrintArea = "$E$5:$L$19"
Worksheets("Sayfa1").PrintOut Copies:=1, Collate:=True

Worksheets("Sayfa2").PageSetup.PrintArea = "$A$5:$A$20"
Worksheets("Sayfa2").PrintOut Copies:=1, Collate:=True

MsgBox ("Yazdırma işlemi tamam."), vbInformation, "UYARI"

End Sub

 

[kemalist]

Kod:

Sub YAZDIR()

Worksheets("Sayfa1").PageSetup.PrintArea = "$E$5:$L$19"
Worksheets("Sayfa1").PrintOut Copies:=1, Collate:=True

Worksheets("Sayfa2").PageSetup.PrintArea = "$A$5:$A$20"
Worksheets("Sayfa2").PrintOut Copies:=1, Collate:=True

MsgBox ("Yazdırma işlemi tamam."), vbInformation, "UYARI"

End Sub

Halit bey teşekkür ederim.