all about: Druckmasken ausdrucken per L-Script

[samWare]

Hallo Jungs,

die Frage "Wie mach drucke ich per Script ne Druckmaske aus?" steht noch unbeantwortet im Raum (obwohl das eigentlich kein act ist  ).

Für alle dies noch nicht wissen folgt jetzt ne ganz simple Erklärung:

Im ersten Schritt erstellen wir uns eine Druckmaske, ich mach es immer so dass ich eine Tabelle mit einer Zeile und einer Spalte mache diese mit fester Breite "15,7 cm" belege. Innerhalb der Spalte wird dann der gewünschte Content aus der zu druckenden Maske eingefügt (Ctrl+C Ctrl+V^^ bei tabellen immer schön auf "an Ränder anpassen" stellen).

So das ganze noch abspeichern und fertig ist das Mäskchen...

Nun zum Drucken der MainMaske über die neu erstellte DruckMaske. Wir erstellen uns einen Butten welcher mit folgender Codesyntax belegt wird:

Code

Sub Click(Source As Button)
	Dim session As New NotesSession
	Dim workspace As New NotesUIWorkspace
	Dim aktdb As NotesDatabase
	Dim uidoc As NotesUIDocument
	Dim aktdoc As NotesDocument, newdoc As NotesDocument
	Dim neueintrag As NotesDocument
		
	
	Set aktdb =session.CurrentDatabase
	Set newdoc = aktdb.CreateDocument
	Set uidoc = workspace.CurrentDocument
	Set aktdoc = uidoc.Document
	
	
	
'Druckmaske ausfüllen

	Set neueintrag = aktdb.CreateDocument
	neueintrag.form = "frmPrint"
	Call aktdoc.CopyAllItems (neueintrag, False )


'Druckmaske aufrufen

	Call  workspace.EditDocument(False, neueintrag)


'WICHTIG! UIDOCH NEU SETZEN!

	Set uidoc = workspace.CurrentDocument

'Druckbefehl und Druckmaske wieder schließen

	Call uidoc.Print(1)
	Call uidoc.Close

'Fertig! Wir befinden uns wieder in der Mainmaske..
	
	
End Sub

Ich hoffe dass nun alle Fragen in der hinsicht geklärt sind

mfg Sam

[koehlerbv]

Das CreateDocument kannst Du Dir sparen - es reicht das blosse Umsetzen des Form-Wertes 

Bernhard

[samWare]

Cool wusst ich garnicht Danke für den Tipp. Wieder ein paar Bytes weniger