automatic printerchoice in Notes 6.02

Hello!

I have a methode to change the standardprinter in Windows 2000, but
the problem is, that Notes not recognize it, except I restart Notes.

Is there a solution to tell Notes the active printer without restart
it.

Our Workstations run under Windows 2000 Prof SP4 with Notes 6.02.

Below I've post the script code.

Thanks in advance.

Christian F.

Sub myprinter(printer as string)
Dim uiws As New NotesUIWorkspace
Dim Database As NotesDatabase
Dim session As New NotesSession
Dim uidoc As NotesUIDocument
Dim PrinterPathAndName As String
Dim objNetwork As Variant
Set Database=session.CurrentDatabase
PrinterPathAndName=printer
Set objNetwork=CreateObject("WScript.Network")

objNetwork.SetDefaultPrinter PrinterPathAndName
Print "Printer changed to " + Cstr(PrinterPathAndName)

Set uidoc=uiws.CurrentDocument
Call uidoc.Print( 1 )
End Sub