Application.ActivePrinter
Heinz
Im unteren Code drucke ich in PDF aus.
Nur habe ich Probleme mit der Rückstellung auf den Standartdrucker.
Gibt es nicht eine Möglichkeit,, Sinngemäß:
Makro Ausführen -> Standarddrucker abschalten -> PDF Drucken -> Standarddrucker einschalten.
Gruß
Heinz
Public Sub PDF_Drucker_Einstellen()
Dim Mywsh
Dim Druckers
Dim i
Set Mywsh = CreateObject("WScript.Network")
Set Druckers = Mywsh.EnumPrinterConnections
For i = 0 To Druckers.Count - 1 Step 2
If LCase(Druckers.Item(i + 1)) Like "*" & "pdf" & "*" Then
Mywsh.SetDefaultPrinter Druckers.Item(i + 1)
Exit For
End If
Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Application.ActivePrinter = "Brother HL-5130"
End Sub