Domino 9 und frühere Versionen > ND6: Entwicklung

drucken mit anderer Maske

(1/3) > >>

RolandS:
habe folgendes Problem,

Ich möchte aus einem Dokument das gerade im Bearbeitungsmodus ist drucken.

Als Druckvorloge soll aber eine andere Maske hergenommen werden

@Command([FilePrint];"Maskenname")

funktioniert nicht. Dieser geht nur wenn das Dokument nicht Bearbeitungsmodus ist.

Wer weis Rat. Vuielleicht gibt es ja eine Möglichkeit den Bearbeitungsmodus vor dem Drucken zu beenden.

Semeaphoros:
Ersetze, was zu ersetzen ist ......


   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim Doc As NotesDocument
   Set uidoc = workspace.CurrentDocument
   Call uidoc.refresh
   Set Doc=uidoc.Document
   doc.Form="Druckformular"
   Call workspace.EditDocument(False,Doc)
   Set uidoc=WorkSpace.CurrentDocument
   Call uidoc.Print( 1 )
   Call uidoc.close
   Doc.Form="Originalformular"

Glombi:
So sollte es gehen:

@If(
 @IsDocBeingEdited;
  @Do(
    @Command([FileSave];
    @Command([EditDocument];"0");
    @Command([FilePrint];"Maskenname")
  );
@Command([FilePrint];"Maskenname")
)

   
Andreas

RolandS:
@Formel

funktioniert leider nicht. habe den PrintFile Befehl folgendermaßen geändert. Weil laut Hilfe der 6. parameter die Maske angibt.

@command([FilePrint];"";"";"";"";"";"maske")

aber er druckt nur die aktuelle Maske aus.   ????

________________

@Script

das mit Script geht schon aber leider nur wenn das Dokument im Bearbeitungsmodus ist. Könntest du bitte den Code  so ändern das auch mit der anderen Maske gedruckt wird wenn das Dokument nicht im Bearbeitungsmodus ist.


Ich weis ich bin lästig

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

Navigation

[0] Themen-Index

[#] Nächste Seite