Print uidoc

Please advice me how can i print the current document using a different form.(PrintForm)

Thank you in advance

NK

Subject: Print uidoc - Lotusscript

This is a bit more elaborate, but works if you only print to your default printer using Lotusscript:

Button on original form:

Dim workspace As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Dim doc As NotesDocument



Set uidoc = workspace.CurrentDocument

Set doc = uidoc.Document



Call workspace.DialogBox("PRINT_FORM",True,True,True,True,True,True,"Print Form",doc,True,True,True)

PostOpen event on PRINT_FORM:

Call Source.Print(1)

Call Source.Close(True)

Subject: Print uidoc

Here is a simple command that works rather well in formula language:

@Command([SwitchForm]; “PRINT_FORM”);

@Command([FilePrint]);

@Command([SwitchForm]; “DISPLAY_FORM”)