Hallo Mitch,
Du hast völlig Recht, das funktioniert mit Notes nicht. Hab das gerade mal zusammenkopiert und ausprobiert (Setzen des Standarddruckers über Word, Ausdrucken, und Standarddrucker wieder zurücksetzen). Es funktioniert alles, wie es soll, der Druckertreiber wird geändert und danach auch wieder zurückgesetzt. Nur Notes rallt nicht, dass der Standarddrucker gewechselt wurde (getestet mit Office 2003 und Notes 7.03 auf Windows XP -> ja, wir arbeiten in einem Museum
). Poste den Code trotzdem, vielleicht geht das ja mit 8.5 oder es gibt noch einen Trick, oder, oder ...
Function SetzeStandardDrucker (drucker As String) As String
'Setzt drucker als Standarddrucker
'Gibt den derzeit gesetzten Standarddrucker zurück
Dim winword As Variant
Set winword = CreateObject ("Word.Application")
winword.Application.Visible = False
'Standarddrucker merken
Dim standarddrucker As String
standarddrucker = winword.Application.ActivePrinter
'Standarddrucker setzen
winword.Application.ActivePrinter = drucker
Call winword.Application.Quit
SetzeStandardDrucker = standarddrucker
End Function
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Dim doc As NotesDocument
Set doc = uidoc.Document
Dim standarddrucker As String
standarddrucker = SetzeStandardDrucker (doc.Drucker (0))
Call uidoc.Print
Call SetzeStandardDrucker (standarddrucker)
End Sub
