Oder mache es mit LS - hier der Code für einen Button in der Form:
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
On Error Goto ErrorRoutine
Set doc = ws.CurrentDocument.Document
doc.Form = "PrintForm"
Set uidoc = ws.EditDocument (False, doc, True)
Call uidoc.Print (1)
Call uidoc.close
Exit Sub
ErrorRoutine:
Call ErrorHandler ("Button 'Ausdrucken'")
Exit Sub
End Sub
Es wird nur im Backend (und hier: Unbemerkt vom FrontEnd) dem Dokument kurz eine andere Maske untergejubelt.
HTH,
Bernhard