Das leidliche Thema: Drucken!

[Bruce Willis]

Hallo,

bleiben wir ruhig und gelassen... 

Ich habe hier im Forum schon ca. 50 Postings gefunden, die dieses Thema behandeln...

Ich weiß inzwischen, dass Notes NICHT drucken kann etc.... and so on... and so forth...

ABER!!!

Ich will drucken und daher stelle hier und jetzt meine Frage! 

Ich will eine Maske1 ausdrucken, die echt beschissen dabei aussieht... Daher habe ich mir Maske2 zusammengebastelt, die auf Papier echt super aussieht.

Die Maske1 hat also jetzt einen Button "Drucken":
@Command([ViewSwitchForm]; "Maske2")

In PostOpen von Maske2 habe ich:
@Command([FilePrint]);

Alles schön und gut, nur diese Maske2 muss nach dem Drucken manuell geschlossen werden.

Wenn ich in PostOpen noch entweder

@Command([CloseWindow])

oder

@Command([FileCloseWindow])

reinstecke, wird die Maske2 zwar geschlossen, aber die Maske1 auch!
Dabei kommt noch eine komische Meldung - in etwa "Rahmengruppe wurde nicht gefunden".

Könnte jemand einen Tipp geben, wie ich diese Maske2 sauber schliesse?

Oder die schreckliche Maske1 fachgerecht ausdrucke?

Gruß
Leo

[TMC]

bleiben wir ruhig und gelassen... 

Leo, das solltest Du aber auch beherzigen (siehe Dein Avatar - Nach Sportschießen sieht das nicht aus) 

Aber gut, nun gibts Code:

@If(Form = "";
@Return(@Prompt( [OK];@DbTitle; "Bitte ein Dokument auswählen !"));
@Do(
@Command([OpenDocument]);
@Command([ViewSwitchForm]; "Maske2");
@PostedCommand([FilePrint]);
@Command([FileCloseWindow])
))

Teste das mal.

[TMC]

Nachtrag:
ach ja, das steckst Du in einen Button Deiner ursprünglichen Form.
Oder aber in eine View.
Daher auch das ErrorHandling (@If(Form = "").

Postopen oder sonstige Events brauchst Du da IMHO nicht.

[koehlerbv]

Oder mache es mit LS - hier der Code für einen Button in der Form:

Code

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

[TMC]

@Bernhard:
LotusScript hatte ich schon eingetippt und wieder rausgeworfen, da man ja hier immer geschimpft wird, LS zu benutzen, wenn Formelsprache auch geht   
Daher meine Umsetzung in @Formula  . Und für Leo ist das wohl auch einfacher...

[Bruce Willis]

Matthias,

Vielen Dank!!!

Es funktioniert!!! 

P.S. "Alles geniales ist einfach!"
LS wird sowieso bald durch Java ersetzt... 

Viele Grüsse
Leo

____________

Bernhard,

danke Dir auch! 

Gruß
Leo

P.S. Kennst Du den Spruch: "Der Zweite ist der erste Verlierer"?
    

[koehlerbv]

Du bist wirklich ein Spassvogel, Leo 

LS wird durch Java ersetzt. Das hatten wir zuerst vor sieben Jahren, seit fünf Jahren lachen wir nur noch darüber. Und mittlerweile hinken die Java-Classen den LS-Classes sogar versionsmässig bei Lotus hinterher.
Abgesehen davon: Im FrontEnd (drucken) macht sich Java besonder gut 

Und ich war nicht der Zweite, ich war der Andere 

Bernhard (amüsiert)

[TMC]

danke für Dein tolles Feedback, Leo. Das motiviert, weiterhin zu helfen 

[Bruce Willis]

Bernhard (amüsiert)

Gut, dass nicht beleidigt... 
Nicht alle verstehen meine harmlosen Scherze...
 

[koehlerbv]

Leo, don't panic: Ich verstehe das schon (und alle anderen Leute guten Willens hier, die Dich auch wenigstens durch Deine Postings kennenlernen durften).

Bernhard