Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1228to1232
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Drucker zurücksetzen

Drucker zurücksetzen
Heinz
Hallo Leute
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Drucker zurücksetzen
17.09.2011 03:37:47
Heinz
Hallo Leute
Habe das Problem nun so gelöst.
Funktioniert wieder.
Gruß
Heinz

Option Explicit
Public Sub PDF_Drucker_Einstellen()
Dim sDruckerAktuell As String
sDruckerAktuell = Application.ActivePrinter 'Aktuellen Drucker merken
Application.ActivePrinter = "PDF Printer auf Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Application.ActivePrinter = sDruckerAktuell
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige