Aynı çalışma sayfasında çift yazıcı atama.

[ilhaan]

Arkadaşlar hepinize iyi günler...
Benim sorunum; aynı çalışma sayfasında birden fazla yazıcı atamak istiyorum. Bu mümkün müdür? Ekli dosyada sorunuma çözüm getirebilir misiniz? Şimdiden teşekkür ederim.

 

[ilhaan]

Dosya ektedir...

Arkadaşlar dosyayı ekledim.

 

[ottoman71]

Sub Yazıcı1()
Application.ActivePrinter = "PrimoPDF" on Ne02:
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PrimoPDF on Ne02:", Collate:=True
End Sub

Koyu kırmızı ile belirtiğim yere kendi yazıcınızın ismini yazınız.
Kolay gelsin.