combit List & Label - Programmierer-Referenz - combit GmbH

Einführung in die Programmierung
Die Komponenten stellen einen Event CmndSetPrintOptions (OCX) bzw.
OnSetPrintOptions (VCL) bereit, über den Sie Optionen für den Druck setzen können
(LlPrintSetOption() bzw. LlPrintSetOptionString()). Mithilfe dieser Optionen können Sie
z.B. auch bei Verwendung der Print/Design-Methoden einen stummen Export realisieren.
Details zu den dafür benötigten Optionen finden Sie im Kapitel "15.2.5. Export
ohne Benutzerinteraktion durchführen". Eine Beschreibung des Events finden Sie auch
in der Komponenten-Onlinehilfe.
Die .NET-Komponente bietet eine Eigenschaft "ExportOptions", über die die Optionen
gesetzt werden können. Ein Beispiel hierfür ist ebenfalls im Lieferumfang enthalten.
Wenn Sie diese Methoden verwenden, müssen Sie die Events CmndDefineVariables,
CmndDefineFields (OCX) bzw. den entsprechenden Event der VCL -Komponente unterstützen.
Die eigentliche Übergabe der Daten an List & Label erfolgt in diesen Events.
Dabei werden wie auch im Falle der selbst implementierten Druckschleife die Funktionen
LlDefineField, LlDefineVariable usw. verwendet.
Das folgende VB Beispiel demonstriert die Einfachheit dieser Methoden:
'=======================================================================
Private Sub ButtonPrint_Click()
'=======================================================================
'Springt zum ersten Datensatz
Form1.Data1.Recordset.MoveFirst
'Druckt das Projekt "simple.lbl" aus
ret% = ListLabel1.Print(0, LL_PROJECT_LABEL, _"simple.lbl",1 ,
LL_PRINT_USERSELECT, LL_BOXTYPE_NORMALWAIT, hWnd,
"Print labels ", True, Environ$("temp"))
End Sub
'=======================================================================
Private Sub ButtonDesign_Click()
'=======================================================================
' Springt zum ersten Datensatz
Form1.Data1.Recordset.MoveFirst
'Startet den Designer
ListLabel1.Design(0, hWnd, "Design Labels", LL_PROJECT_LABEL,
"simple.lbl", 1)
End Sub
'=======================================================================
Private Sub ListLabel1_CmndDefineVariables( _ByVal nUserData As Long, ByVal bDummy As Long, _pnProgressInPerc
As Long, pbLastRecord As Long)
'=======================================================================
' Dieser Event wird von den List & Label Befehlen Print und
' Design ausgelöst und wird für jeden Datensatz aufgerufen um
' die Variablen und deren Inhalt an List & Label zu übergeben.
Dim i As Integer
' Wiederholung für alle Felder eines Datensatzes
For i = 0 To Form1.Data1.Recordset.Fields.Count - 1
28
' Umsetzung der Datenbank-Feldtypen in _
' List & Label Typen, s. Funktion VarType() in der VB-Hilfe