yazıcı seçme

[shocaoglu]

Arkadaşlar günaydın;

CommandButton ile yazıcıya yazdırabiliyorum fakat iki adet yazıcım olduğundan yazıcı secimini yaptıramıyorum.CommandButton a bastığımda hangi yazıcıyı kullanmak istediğimi sorum seçimi yapıp yazdırmasını istiyorum fakat beceremedim.. Yazdığım kod aşağıdadır.



Private Sub CommandButton14_Click()
Sheets("GİRİŞ FİŞİ").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
MyPrinter = "IBMPROPRINTER"
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$18"
End Sub

 

[hikmet]

günaydın sn.shocaoglu;

yazdırma butonunun altındaki kodu aşağıdaki gibi düzenlerseniz printer seçme imkanı verir.

Private Sub CommandButton14_Click()
Sheets("GİRİŞ FİŞİ").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$18"
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

[Seyit Tiken]

Makro Kaydet ile yazıcı seçimini yapıp kod oluşturun.

 

[shocaoglu]

Sayın hikmet ve Seyit Tiken yardımlarınız için teşekkürler istediğim oldu.....

 

[İST-FX]

Emeğine Sağlık Teşekkür ederim.