List & Label

.NET

private void button2_Click(object sender, System.EventArgs e)
{
   try
   {
        // An ein DataSet Objekt binden
        LL.SetDataBinding(myDataSet, "Orders");

        // Setzen von Eigenschaften
        LL.AutoDesignerFile  = "supreport.lst";
        LL.AutoProjectType  = LlProject.List;
        LL.AutoDialogTitle  = "Beispiel";
        LL.AutoShowSelectFile = true;
  
        // Druck starten
        LL.Print();
   }
   // Ausnahmen abfangen:
   catch (Exception LlException)
   {
        MessageBox.Show("Information: " + 
           LlException.Message,"Information",
           MessageBox.IconInformation | MessageBox.OK);
   }
} 

Visual Basic

Private Sub ButtonPrint_Click()

 'Druckt das Projekt "test.lst" auf dem Drucker aus:
  Data1.Recordset.MoveFirst
  ListLabel1.Print(0, LL_PROJECT_LIST, "test.lst",_
    True, LL_PRINT_NORMAL,_
    LL_BOXTYPE_NORMALWAIT, hWnd,_
    "Drucken, True, Environ$("temp"))

End Sub

Private Sub ListLabel1_CmndDefineFields(ByVal nUserData As Long,
  ByVal bDummy As Long, nProgressInPerc As Long, pbLastRec As Long)

 'Dieser Event wird von den Befehlen Print und Design ausgelöst.
  'Er wird für jeden Datensatz aufgerufen, um die Felder und
  'deren Inhalt an List & Label zu übergeben.
  'Wiederholung für alle Felder eines Datensatzes:
  For i = 0 To Form1.Data1.Recordset.Fields.Count - 1
    content$ = Data1.Recordset.Fields(i)
    nRet = ListLabel1.LlDefineFieldExt _
      (Data1.Recordset.Fields(i).Name,_
      content$, LL_TEXT)
  Next i
  'Gehe zum nächsten Datensatz:
  Form1.Data1.Recordset.MoveNext
  'Wenn kein weiterer Datensatz mehr folgt, dann wird der Druck beendet:
  If Form1.Data1.Recordset.EOF = True Then
    pbLastRec = 1
  End If

End Sub

Delphi

{Druck aufrufen}
procedure TForm1.PrintButtonClick(Sender: TObject);
begin
     //Datenquelle zuweisen
     LL.DataSource := dsCustomers;

     //Die customer master Daten sollen als Felder angemeldet werden
     LL.AutoMasterMode := mmAsFields;

     //Den Standard-Projektnamen setzen
     LL.AutoDesignerFile := 'subrep.lst';

     //Printmode auf PreviewControl stellen
     LL.AutoDestination := adPreview;

     //Drucken
     LL.AutoPrint('Invoice List', '');
end;

C++

//=====================================
void CMainFrame::DoLabelPrint()
//=====================================
{
 // Normale Textvariable
  LLDefineVariableExt(job, "Text", "Testtext",LL_TEXT, NULL);

  // Numerische Variable
  LLDefineVariableExt(job, "Zwischensumme", "12.34",
    LL_NUMERIC, NULL);

  // Barcodevariable
  LLDefineVariableExt(job, "BC_EAN_128", "123456789abcd",
    LL_BARCODE_EAN128, NULL);

  // variable Grafiken über Dateinamen
  LLDefineVariableExt(job, "Normalbild","sunny.bmp", LL_DRAWING, NULL);

  // Druck starten
  LlPrintWithBoxStart(job, LL_PROJECT_LABEL, szFile,
    LL_PRINT_EXPORT, LL_BOXTYPE_BRIDGEMETER, hWnd, "Printing...");
 
  //Etikett drucken  
  nErrorValue = LlPrint(job);

  // Druck beenden
  LlPrintEnd(job,0);
}

Programmierbeispiele Starten des Designers