Code i'm using

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject:

Code i'm using

Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace 'set new workspace
Dim uidoc As NotesUIDocument 'fornt end of document
Set uidoc = workspace.currentdocument 'set current document
Dim flag As Boolean
flag = workspace.DialogBox( "PrintEditHistory", True, True, True, True, True, True, "Edit History") 'PrintEditHistory is another form which holds the field to be printed
If flag=True Then
Set uidoc = workspace.currentdocument 'set current document
Call uidoc.Print
End If
End Sub

Above is the piece of code I'm using. Its not working for me as prints the underlying document. I need to print the data which opens up in the dialogbox.

Any ideas how I may achieve this?

Thanks,
Suji

Feedback response number WEBB9E39M3 created by ~Wendy Brekimarjip on 12/04/2013