Variable abfragen und in vielen Skripten setzen

Hallo Zusammen,
ich habe ein paar Skripte die auf den PDF-Drucker zugreifen, um PDFs direkt zu erstellen. Nach vielem hin- und her konnte ich das Problem lösen, indem ich den Drucker im Skript jeweils direkt anspreche. Den Drucker konnte ich mit dem Befehl herausfinden:
MsgBox Application.ActivePrinter
Im weiteren verlauf des Skriptes wird also der gewünschte Drucker angesprochen:
strDrucker = Application.ActivePrinter
Application.ActivePrinter = "FreePDF auf Ne08:"
Jetzt ist es leider so, dass das wirklich gut auf immer dem selben PC funktionier. Wenn ich jetzt aber an einem anderen PC sitze ist der PDF-Drucker beispielsweise nicht mehr auf Ne08 sondern auf Ne06.
Ich hatte die Idee den Drucker einmal mit dem Vorherigen Skript abzufragen und dann als Variable automatisch in allen möglichen Spkripten einzutragen über ein "Eingabefeld", sprich:
Ich stelle einmalig den PDF-Printer als Standarddrucker, dann wähle ich das Skript auf 1 welches mir sagt auf welchem Ne der sitzt. Anschließend lasse ich per Abfrage / Eingabe diese Variable in das zweite Spript eintragen.
Hoffe Ihr versteht was ich möchte.
Liebe Grüße, Dennis.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Temp\" & Format(Now, "YYYY") & "_Planung_" & Titel & "_" & Format(Now, _ "YYYYMMDD_hhmm") & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=False

Option Explicit Sub Test_Temporarly_Change_ActivePrinter() Const cPrinterName = "FreePDF" ' Name des Netzwerkdruckers Dim tAktPrinter As String Dim tSetPrinter As String tAktPrinter = Application.ActivePrinter ' Save jetzigen Standarddrucker tSetPrinter = setNePrinter(cPrinterName) ' Wechsle zu Netzwerdrucker If Left(tSetPrinter, 6) = "ERROR:" Then MsgBox tSetPrinter, vbCritical + vbOKOnly, "Netzwerkdrucker suchen!" Else MsgBox "Anstelle dieser Msgbox dein Druck-Code hier einsetzen" End If Application.ActivePrinter = tAktPrinter ' Wiederherstellen vorherigen Standarddrucker End Sub Private Function setNePrinter(tPrinterName As String) As String Dim i As Integer On Error Resume Next For i = 1 To 99 Err.Number = 0 Application.ActivePrinter = tPrinterName & " auf Ne" & Format(i, "00") & ":" If Err.Number = 0 Then setNePrinter = Application.ActivePrinter Exit For End If Next i If setNePrinter = "" Then setNePrinter = "ERROR: Printer " & tPrinterName & vbCrLf & _ "ist nicht als Netzwerkdrucker angeschlossen!" On Error GoTo 0 End Function

Guten Morgen Anton,
danke für den Friendly reminder. ;-)
Ich war zwei Tage nicht ansprechbar, bzw. mit Fasching beschäftigt.
Jetz kam ich gerade zum Testen. Mein aktueller Code lautet:

strDrucker = Application.ActivePrinter
Application.ActivePrinter = "FreePDF auf Ne08:"

Den habe ich jetzt mal durch deinen ersetzt durch Deinen:

Dim Nachricht As Object, OutApp As Object
Dim AWS As String
Dim strDrucker As String
Dim Drucker As String
Drucker = Application.ActivePrinter
ActiveSheet.PrintOut ActivePrinter:="FreePDF"
Application.ActivePrinter = Drucker

Leider bleibt der Debugger hängen ganz am Ende des skriptes bei folgendem Code:

Application.ActivePrinter = strDrucker 'Standarddrucker wieder aktivieren

Jetzt ist die Frage: Muss mit Deiner Methode der Standarddrucker nicht mehr geändert werden?
Liebe Grüße
Dennis.

Beliebteste Forumthreads (12 Monate)

Variable abfragen und in vielen Skripten setzen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread