Hallo Jungs,
die Frage "Wie mach drucke ich per Script ne Druckmaske aus?" steht noch unbeantwortet im Raum (obwohl das eigentlich kein act ist ;D).
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:
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