Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: RolandS am 08.12.03 - 18:04:49
-
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.
-
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"
-
So sollte es gehen:
@If(
@IsDocBeingEdited;
@Do(
@Command([FileSave];
@Command([EditDocument];"0");
@Command([FilePrint];"Maskenname")
);
@Command([FilePrint];"Maskenname")
)
Andreas
-
@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
-
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
-
..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.
:-[ :-[
-
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.
-
Jo
mach ich. aber erst mal danke.
rs
-
Hallo Semeaphoros
hattest du vielleicht zwischendurch mal Zeit. ????
rs
-
Nicht vergessen, aber wirklich keine Ruhe gehabt, ums durchzutesten .... wird am Wochenende drankommen.
-
:-\
ob er es vielleicht doch vergessen hat.
-
Nein, das Projekt, in dem ich stecke, hat höheren Aufwand und muss vor Weihnachten fertig werden ...... :-(
-
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
-
funktioniert Perfekt
1000 dank.
-
Ente Gut Alles Gut ... ;D
Danke für die Rückmeldung.
Setzest Du den Thread dann bitte noch auf Erledigt? (Buhtong oberhalb jeder Message)