user modüle birden fazla sayfa yazdırma makrosu

[Ercan_ÇELİKOĞLU]

Sub Yazdir()
Sheets(Array("BORDRO2", "PERBİL", "TAHAKKUK", "BİLDİRGE", "BANKA LİSTESİ", "ASGARİ")).PrintOut Copies:=2
End Sub

bu kodda yazdırıyor ancak "TAHAKKUK", TAHAKKUK 1 sayfa diğerleri 2 sayfa olacak yazdırırken bana bu konuda yardım edermisiniz.

 

[YUSUF44]

Şu şekilde olabilir:

Sub Yazdir()
Sheets(Array("BORDRO2", "PERBİL")).PrintOut Copies:=2
Sheets("TAHAKKUK").PrintOut Copies:=1
Sheets(Array("BİLDİRGE", "BANKA LİSTESİ", "ASGARİ")).PrintOut Copies:=2
End Sub

 

[Ercan_ÇELİKOĞLU]

Şu şekilde olabilir:

Sub Yazdir()
Sheets(Array("BORDRO2", "PERBİL")).PrintOut Copies:=2
Sheets("TAHAKKUK").PrintOut Copies:=1
Sheets(Array("BİLDİRGE", "BANKA LİSTESİ", "ASGARİ")).PrintOut Copies:=2
End Sub

teşekkür ederim