combit List & Label - Programmierer-Referenz - combit GmbH
29.11.2012 • Aufrufe
Teilen Einbetten Melden

combit List & Label - Programmierer-Referenz - combit GmbH

combit List & Label - Programmierer-Referenz - combit GmbH

combit List & Label - Programmierer-Referenz - combit GmbH

MEHR ANZEIGEN
WENIGER ANZEIGEN
ePAPER LESEN
ePAPER HERUNTERLADEN
combit.net

Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.

YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.

JETZT STARTEN

Die eigene Druckschleife<br />

müssen also vor dem Aufruf von LlPrint[With]BoxStart() alle Variablen und Felder mit den<br />

Funktionen LlDefineVariable[Ext]() und LlDefineField[Ext]() definiert haben. Da es zu diesem<br />

Zeitpunkt nur um die Namen und Typen und nicht um aktuelle Inhalte geht, können<br />

Sie direkt dieselbe Routine verwenden, mit der Sie alle Felder und Variablen für den<br />

Designer anmelden (z.B. mit einem Beispieldateninhalt, der keine Rolle spielt, oder auch<br />

mit dem Inhalt des ersten Datensatzes).<br />

Nach der optionalen Anzeige einer Druckerauswahlbox (LlPrintOptionsDialog()) erfolgt<br />

nun die eigentliche Druckschleife.<br />

2.6.5. Etiketten und Karteikartendruck<br />

Folgende einfache Schleife soll den Druck von Etiketten demonstrieren, während eine<br />

(fiktive) Datenbank durchlaufen wird. Dabei wird dem Anwender die Auswahl überlassen,<br />

ob er auf Echtdatenvorschau, Drucker oder in eine Datei drucken möchte:<br />

'Die Variablen für den Syntax Check anmelden (mit Dummy-Inhalt)<br />

<strong>List</strong><strong>Label</strong>1.LlDefineVariableExt("ItemNo", "0815", LL_TEXT)<br />

<strong>List</strong><strong>Label</strong>1.LlDefineVariableExt("Description", "dummy", LL_TEXT)<br />

<strong>List</strong><strong>Label</strong>1.LlDefineVariableExt("Price", "123", LL_NUMERIC)<br />

<strong>List</strong><strong>Label</strong>1.LlDefineVariableExt("Deliverable", "T", LL_BOOLEAN)<br />

<strong>List</strong><strong>Label</strong>1.LlPrintWithBoxStart(LL_PROJECT_LABEL, "Item.lbl",<br />

LL_PRINT_USERSELECT, LL_BOXTYPE_NORMALWAIT, hWnd, "Printing <strong>Label</strong>")<br />

'Druckeroptionsdialog anzeigen<br />

<strong>List</strong><strong>Label</strong>1.LlPrintOptionsDialog(hWnd, "")<br />

'Gewünschtes Druckziel merken<br />

nDest = <strong>List</strong><strong>Label</strong>1.LlPrintGetOption(LL_PRNOPT_PRINTDLG_DEST)<br />

Data1.Recordset.MoveFirst()<br />

While (Not Form1.Data1.Recordset.EOF) and nLLError = 0<br />

<strong>List</strong><strong>Label</strong>1.LlPrintSetBoxText("Printing...",<br />

Form1.Data1.Recordset.PercentPosition)<br />

'Die Variablen anmelden und den Echtdateninhalt übergeben:<br />

contents$ = Form1.Data1.Recordset.Fields(1)<br />

<strong>List</strong><strong>Label</strong>1.LlDefineVariableExt("ItemNo", contents$, LL_TEXT)<br />

contents$ = Form1.Data1.Recordset.Fields(2)<br />

<strong>List</strong><strong>Label</strong>1.LlDefineVariableExt("Description", contents$, LL_TEXT)<br />

contents$ = Form1.Data1.Recordset.Fields(3)<br />

<strong>List</strong><strong>Label</strong>1.LlDefineVariableExt("Price", contents$, LL_NUMERIC)<br />

contents$ = Form1.Data1.Recordset.Fields(4)<br />

<strong>List</strong><strong>Label</strong>1.LlDefineVariableExt("Deliverable", contents$, LL_BOOLEAN)<br />

'Und nun das Etikett drucken:<br />

nLLError = <strong>List</strong><strong>Label</strong>1.LlPrint()<br />

if nLLError = 0 then<br />

31

logo

Produkte

Ressourcen

Unternehmen

AGB
Datenschutzerklärung
Cookie-Richtlinien
Cookie-Einstellungen
Impressum
Change language
Made with love in Switzerland
© 2024 Yumpu.com all rights reserved

Hurra! Ihre Datei wurde hochgeladen und ist bereit für die Veröffentlichung.

Erfolgreich gespeichert!

Leider ist etwas schief gelaufen!