Habe unteren Code,der mir eine Seite mit FreePDF druckt, und später sollte wieder auf
den Standard Drucker zurück gesetzt werden.
Bis jetzt hatt es wunderbar geklappt.Bis ein "Kollege" seine Finger in den Makro gehabt hat.
Habe schon einiges getestet,leider ohne Erfolg.
Druckt in PDF aber geht nicht mehr auf den Standard Drucker zurück.
Könnte mir bitte jemand helfen ?
Gruß
Heinz
Option Explicit
Public Sub PDF_Drucker_Einstellen()
Dim sPrinter As String
Dim Mywsh
Dim Druckers
Dim I
sPrinter = Application.ActivePrinter
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 = sPrinter
Application.ScreenUpdating = True
End Sub