Office 2013'te yazıcı seçimi

[sefaburan]

Office 2013 Pro'da sadece officede kullanacağım varsayılan yazıcı seçemiyorum. Yani şu an iki tane yazıcı kullanıyorum, office yazılarını varsayılan yazıcımdan çıkartmıyorum, ama makro kodu ile yazdır butonu koyup, varsayılan olmayan yazıcımdan çıkarmak istiyorum lakin buton koyduğumda yazıcı seçemiyorum. Direk varsayılan yazıcımdan çıkıyor.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub YAZDIR()
    Dim Secim As Boolean
    Dim Yazici As String
    
    With Application
        Yazici = .ActivePrinter
        Secim = .Dialogs(xlDialogPrinterSetup).Show
    End With
 
    If Secim = True Then
       ActiveSheet.PrintOut
       Application.ActivePrinter = Yazici
    End If
End Sub