Yazdırma Makrosuna Yazıcı belirlemek

[ABDURREZZAKYILDIZ]

bu makroya yazıcı seçimini nasıl ekleyebiliriz.
iki yazıcı var otomatik seçme de olabilir manuel de

Şimdiden teşekkürler

Sub yazdir()
If MsgBox("Sayfa1'i Yazdırmak istiyormusunuz?", vbYesNo, "E V R E N") = vbNo Then Exit Sub
Sheets("Sayfa1").PageSetup.PrintArea = "Sayfa1!A1:F25"
Sheets("Sayfa1").PrintOut , 1
Sheets("Sayfa1").PageSetup.PrintArea = ""
End Sub

 

[askm]

Manuel yapmak için

Sub yazdir()
If MsgBox("Sayfa1'i Yazdırmak istiyormusunuz?", vbYesNo, "E V R E N") = vbNo Then Exit Sub
Application.Dialogs(xlDialogPrint).Show
Sheets("Sayfa1").PageSetup.PrintArea = "Sayfa1!A1:F25"
Sheets("Sayfa1").PrintOut , 1
Sheets("Sayfa1").PageSetup.PrintArea = ""
End Sub

Kod ile Seçim için

Sub yazdir()
'If MsgBox("Sayfa1'i Yazdırmak istiyormusunuz?", vbYesNo, "E V R E N") = vbNo Then Exit Sub
'Application.Dialogs(xlDialogPrint).Show
YazıcıSecimi
Sheets("Sayfa1").PageSetup.PrintArea = "Sayfa1!A1:F25"
Sheets("Sayfa1").PrintOut , 1
Sheets("Sayfa1").PageSetup.PrintArea = ""
End Sub

Sub YazıcıSecimi()
Dim STDprinter As String
    STDprinter = Application.ActivePrinter  'Aşağıya f8 ile buyara gelen değer yazılacak.
    Application.ActivePrinter = "LPT1: üzerindeki Xerox Phaser 6120 PS " '"hp laserjet 1022 on ne02:"
    ActiveSheet.PrintOut
    Application.ActivePrinter = STDprinter
End Sub