Domino 9 und frühere Versionen > ND6: Entwicklung

Das leidliche Thema: Drucken!

(1/2) > >>

Bruce Willis:
Hallo,

bleiben wir ruhig und gelassen...  ;D

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!  :D

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:

--- Zitat von: Bruce Willis am 24.01.05 - 22:42:28 ---bleiben wir ruhig und gelassen...  ;D
--- Ende Zitat ---

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

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
--- Ende Code ---

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  ;)  :P
Daher meine Umsetzung in @Formula  ;). Und für Leo ist das wohl auch einfacher...

Navigation

[0] Themen-Index

[#] Nächste Seite