Domino 9 und frühere Versionen > ND6: Entwicklung

drucken mit anderer Maske

<< < (3/3)

RolandS:
 :-\
ob er es  vielleicht doch vergessen hat.

Semeaphoros:
Nein, das Projekt, in dem ich stecke, hat höheren Aufwand und muss vor Weihnachten fertig werden ...... :-(

Semeaphoros:
Allerdings nur unter 6.5 probiert, aber es geht sogar einfacher:


   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim Doc As NotesDocument
   Dim OrigEditMode As Boolean
   Set uidoc = workspace.CurrentDocument
   OrigEditMode=UiDoc.EditMode
   If uidoc.EditMode Then
      Call uidoc.refresh
   End If
   Set Doc=uidoc.Document
   doc.Form="Print"
   Call workspace.EditDocument(False,Doc)
   Set uidoc=WorkSpace.CurrentDocument
   Call uidoc.Print( 1 )
   Call uidoc.close

RolandS:
funktioniert Perfekt

1000 dank.

Semeaphoros:
Ente Gut Alles Gut ...  ;D

Danke für die Rückmeldung.

Setzest Du den Thread dann bitte noch auf Erledigt? (Buhtong oberhalb jeder Message)

Navigation

[0] Themen-Index

[*] Vorherige Sete