drucken mit anderer Maske

[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

[RolandS]

..stark

danke Semephoros!

nur noch eine für dich wahrscheinlich Klitzekleinigkeit.

Wenn das Dokument nicht im Bearbeitungsmodus ist, ist es mit deinem Code nach dem drucken im Bearbeitungsmodus. wenn es geht sollte es in diesem fall dann auch nicht im Bearbeitungsmodus sein.

Wenn es im Bearbeitungsmodus ist, soll es nach dem drucken dann aber im Bearbeitunsmodus sein.

Ist so was Möglich?

zehntausend Dank im voraus.
 

[Semeaphoros]

Huch? Das wird doch eigentlich zurückgesetzt. Muss ich zuerst ausprobieren, warum das so ist, kann ich aber grad im Moment nicht, da ich dringend zwei Applikationen fertig machen muss. Wenn in 2 Tagen nix gekommen ist, erinnere mich daran.

[RolandS]

Jo

mach ich. aber erst mal danke.

rs

[RolandS]

Hallo Semeaphoros


hattest du vielleicht zwischendurch mal Zeit. ?



rs

[Semeaphoros]

Nicht vergessen, aber wirklich keine Ruhe gehabt, ums durchzutesten .... wird am Wochenende drankommen.

[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 ...  

Danke für die Rückmeldung.

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