yazdır

[şehiriçi]

herkese merhaba...
excel de herhangi bir sayfayı yazdıracağım elimdeki modüldeki kod şu
sub yazdır()
selection.printout
end sub


makroya çalıştır deyince o sayfadan nereyi seçmişsek onu yazdırıyor
benim sorunum şu elimde 2 tane yazıcı var
epso lx-350 esc/p
xerox work centre pe16
ben bunlrdan dilediğime yazdırmak için kod nasıl olmalı ...teşekkürler

 

[Murat OSMA]

Yazıcı seçerek yazdırmak için;

[FONT="Trebuchet MS"]Sub Secerek_Yazdır()
   Application.Dialogs(xlDialogPrinterSetup).Show
End Sub[/FONT]

Yazıcı adını kırmızı ile belirtilen yere yazıp, oradan yazdırmak için;

[FONT="Trebuchet MS"]Sub Yazıcı_Adını_Yazarak()
   Application.ActivePrinter = "[COLOR="Red"]Ne04: üzerindeki HP LaserJet Professional P1102 [/COLOR]"
   ActiveWindow.SelectedSheets.PrintOut
End Sub[/FONT]

 

[şehiriçi]

murat bey bu kod ları denedim ama yazıcı da tık yok her iki kod da aynı yazdıramadım

 

[Seyit Tiken]

Makro Kaydet ile yazıcılardan çıktı alın, oluşan kodları çalışmanıza entegre edin.

 

[şehiriçi]

maalesef yapamadım seyit tiken ,
sitede örnek varsa bakabilirim ...