sabit yazıcı ayarlama

[shocaoglu]

Arkadaşlar merhaba

Pc de 2 yazıcı tanımlı proprinter ve Laser yazıcı olduğundan

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

makrosunu yazarak yazıcı seçebiliyorum.

Ama benim isteğim. Bana hep proprinter yazıcının gelmesini sağlıyacak makro..

Yardımcı olursanız sevinirim.

 

[hamitcan]

"varsayılan yazıcı" yada "default yazıcı" diye arama yapın.
http://www.excel.web.tr/search.php?searchid=1426685