3
Outlook Makro für anderen Drucker als Standard drucker
Hallo Zusammen,
ich versuche ein Makro zu basteln welches mir automatisch aus Outlook Druckt.
Jedoch muss ein anderer Drucker ausgewählt werden als mein aktueller Standard Drucker.
Heisst ihr habe hier 2 Drucker stehen. Wovon einer ausschliesslich für Outlook benutzt wird.
Wie ich Makros einbinde habe ich bereits rausgefunden ... aber mehrere Versuche für den Quellcode des Makros sind fehlgeschlagen.
Könnte mir hier jemand eventuell helfen?
Beste Grüße
Wu3stenfuchs
ich versuche ein Makro zu basteln welches mir automatisch aus Outlook Druckt.
Jedoch muss ein anderer Drucker ausgewählt werden als mein aktueller Standard Drucker.
Heisst ihr habe hier 2 Drucker stehen. Wovon einer ausschliesslich für Outlook benutzt wird.
Wie ich Makros einbinde habe ich bereits rausgefunden ... aber mehrere Versuche für den Quellcode des Makros sind fehlgeschlagen.
Könnte mir hier jemand eventuell helfen?
Beste Grüße
Wu3stenfuchs
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 360473
Url: https://administrator.de/contentid/360473
Printed on: April 18, 2024 at 22:04 o'clock
3 Comments
Latest comment
Hallo,
Gruß,
Peter
Zitat von @Wu3stenfuchs:
Heisst ihr habe hier 2 Drucker stehen. Wovon einer ausschliesslich für Outlook benutzt wird.
OKHeisst ihr habe hier 2 Drucker stehen. Wovon einer ausschliesslich für Outlook benutzt wird.
aber mehrere Versuche für den Quellcode des Makros sind fehlgeschlagen.
Heißt was genau?Könnte mir hier jemand eventuell helfen?
Ohne deinen Quellcode überhaupt gesehen zu haben?Gruß,
Peter
mein Problem ist ... ich habe noch keinen quellcode
Ich habe halt Gegooglet wie man das machen kann... also "Outlook per makro auf anderen Drucker als Standard Drucker Drucken" dort bin ich dann auf verschiedene Foren gestossen mit jeweiligen Beispielen für Quellcodes die man dafür nutzen kann... davon hab ich einige ausprobiert welche aber nicht funktionierten
den hab ich beispielsweise ausprobiert:
"
Sub Drucken()
Dim savPrinter As String
savPrinter = ActivePrinter ' aktuellen Drucker auslesen
ActivePrinter = "PDFCreator" ' anderen Drucker einstellen
ActiveSheet.PrintOut
ActivePrinter = savPrinter ' Drucker wieder zurückstellen
End Sub
"
Gruß
Wu3stenfuchs
Ich habe halt Gegooglet wie man das machen kann... also "Outlook per makro auf anderen Drucker als Standard Drucker Drucken" dort bin ich dann auf verschiedene Foren gestossen mit jeweiligen Beispielen für Quellcodes die man dafür nutzen kann... davon hab ich einige ausprobiert welche aber nicht funktionierten
den hab ich beispielsweise ausprobiert:
"
Sub Drucken()
Dim savPrinter As String
savPrinter = ActivePrinter ' aktuellen Drucker auslesen
ActivePrinter = "PDFCreator" ' anderen Drucker einstellen
ActiveSheet.PrintOut
ActivePrinter = savPrinter ' Drucker wieder zurückstellen
End Sub
"
Gruß
Wu3stenfuchs
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Name = 'HP Laserjet'")
For Each objPrinter in colInstalledPrinters
objPrinter.SetDefaultPrinter()
Next 
