combit List & Label - Programmierer-Referenz - combit GmbH

Einführung in die Programmierung
Wend
32
end if
ListLabel1.LlPrintEnd(0)
Data1.Recordset.MoveNext()
'Wollte Anwender Druck auf Preview?
if (nLLError = 0) and (nDest = LL_DESTINATION_PRV) then
'Preview anzeigen und dann Preview-Datei (.LL) löschen
ListLabel1.LlPreviewDisplay("Item.lbl", "", hWnd)
ListLabel1.LlPreviewDeleteFiles("Item.lbl", "")
end if
2.6.6. Listendruck
Nachfolgender Beispielcode (ohne jegliche Fehlerabfrage) für den Druck einer Rechnung
("invoice.lst") auf Echtdatenvorschau hat die Definition der Variablen und Felder in zwei
Unterroutinen gekapselt (DefineVars und DefineFields) und verwendet 2 Datenbanktabellen,
Data1 für die Rechnungskopfdaten wie 'Rechnungsnummer', 'Empfänger' etc.,
die als Variablen definiert werden, und Data2 für die jeweiligen Postendaten wie 'Stückzahl',
'Artikel-Nr' etc., die als Felder definiert werden.
'Variablen und Felder mit Dummy-Daten für Syntax Check definieren
DefineVars
DefineFields
'Druck starten
ListLabel1.LlPrintWithBoxStart(LL_PROJECT_LIST, "invoice.lst",
LL_PRINT_PREVIEW, LL_BOXTYPE_NORMALWAIT, hWnd, "Printing")
'Dialog für Drucker-Einstellungen anzeigen
ListLabel1.LlPrintOptionsDialog(Form1.hWnd, "")
'Gehe zum ersten Posten-Datensatz
Data2.Recordset.MoveFirst
'Variablen mit "Echtdaten" füllen
DefineVars
'Variablen drucken, auf Seitenumbruch achten
While ListLabel1.LlPrint = LL_WRN_REPEAT_DATA
Wend
'Solange das Ende der Posten-Tabelle nicht erreicht ist...
While Not Data2.Recordset.EOF
'Prozentbalken setzen
ListLabel1.LlPrintSetBoxText("Printing invoice",
Data2.Recordset.PercentPosition)
'Wenn die Rechnungs-Nr. übereinstimmt
If Data2.Recordset.Fields(0) = Data1.Recordset.Fields(0) Then
'Felder mit "Echtdaten" aus aktuellem Posten-Datensatz füllen
DefineFields
'Felder drucken, und wenn Seitenumbruch erfolgt ist,
'Variablen/Felder erneut drucken
While ListLabel1.LlPrintFields = LL_WRN_REPEAT_DATA