This is what I do...

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject:

There some sort of strange problem with Notes and picking up the default printer. Here’s what works for me.

First, I use Notes 7.03/8.01 or higher. With these versions the "Print" method of NotesUIDocument has a new parameter called printerTitle which is the name of the printer you want to use. Read about it here...
http://www-01.ibm.com/support/docview.wss?rs=899&uid=swg21266977

When you use the printerTitle parameter, it changes the printer for Notes. To get Notes to recognize the default printer again, you have to change the default printer to something other than the default printer, and then change it back to the default printer. So it looks something like this...

Dim objWMIService As Variant
Dim wsh As Variant
Dim colPrinters As Variant
Dim defaultprinter as String

Set objWMIService = GetObject( "winmgmts:\\.\root\cimv2" )
Set colPrinters = objWMIService.ExecQuery( "Select * From Win32_Printer Where Default = TRUE" )
defaultprinter = colPrinters.ItemIndex( 0 ).name

Call UIDocToPrint.Print( 1 , , , , "desired printer" )

Set wsh = CreateObject( "WScript.Network" )
Call wsh.SetDefaultPrinter( "desired printer" )
Call wsh.SetDefaultPrinter( defaultprinter )

Notes should now use the default printer again.

Feedback response number WEBB8NDQ7R created by ~Kim Quetnulylen on 11/07/2011