37414
06.04.2020
722
5
0
Visual Basic (Word 2016) - Code für alternativen Drucker
Hallo,
ich habe für die Nutzung eines virtuellen Druckers für E-Post folgenden Makro-Code, der grds. auch funktioniert:
Da dieses Makro (Word 2016) funktioniert leider nicht ganz korrekt über den Terminalserver (für Homeoffice).
Da erhalte ich immer eine Debug-Meldung in Bezug auf die Zeile "ActivePrinter = "AidA_PDF".
Nun würde ich gerne einen alternativen Drucker in den Code aufnehmen.
Also wenn Drucker 1 nicht funktioniert, bzw. gefunden wird, dann soll er Drucker 2 nehmen.
Wie würde dazu der Code lauten?
Danke und Gruß,
imebro
ich habe für die Nutzung eines virtuellen Druckers für E-Post folgenden Makro-Code, der grds. auch funktioniert:
Sub D_ePost()
'
ActiveDocument.Save
ActivePrinter = "E-POSTBUSINESS BOX Printer"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
ActivePrinter = "AidA_PDF"
' ActiveDocument.Close
' Word.Application.Quit
End Sub
Da dieses Makro (Word 2016) funktioniert leider nicht ganz korrekt über den Terminalserver (für Homeoffice).
Da erhalte ich immer eine Debug-Meldung in Bezug auf die Zeile "ActivePrinter = "AidA_PDF".
Nun würde ich gerne einen alternativen Drucker in den Code aufnehmen.
Also wenn Drucker 1 nicht funktioniert, bzw. gefunden wird, dann soll er Drucker 2 nehmen.
Wie würde dazu der Code lauten?
Danke und Gruß,
imebro
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-Key: 563414
Url: https://administrator.de/contentid/563414
Ausgedruckt am: 19.03.2024 um 07:03 Uhr
5 Kommentare
Neuester Kommentar
' ...
On Error Resume Next
ActivePrinter = "AidA_PDF"
if Err.Number <> 0 then
Err.Clear
ActivePrinter = "BlaBlub"
end if
'...