Dim fmt As String
Dim sRow As String
Dim xPos As Long
Dim i As Integer
Dim titel As String
 
titel = "Bestellliste vom " & Date
 
  Screen.MousePointer = 11
  With Printer
    .ScaleMode = 6    ' Maßeinheit "mm"
    xPos = 10         ' 20mm Rand links
 
    .Font.Name = "Arial"
    .Font.Size = 12
 
    .CurrentY = 20
    .CurrentX = xPos
    .Font.Bold = True
     Printer.Print titel + vbCrLf
    .Font.Bold = False
 
    ' Format (Spaltenbreiten)
    fmt = "20|30|40|40|40|40"
 
    ' Listenkopf
    .Font.Bold = True
    .Font.Size = 10
    sRow = "Anzahl|BestNr|Bezeichnung|Zusatz|€/Stück|Gesamt"
    PrintRow xPos, fmt, sRow
    .Font.Bold = False
 
    ' Artikelpositionen
    .CurrentY = .CurrentY + 0.2
    For i = 1 To frmBestandListe.ListView1.ListItems.Count
      With frmBestandListe.ListView1.ListItems(i)
        sRow = .Text & "|" & .SubItems(1) & "|" & .SubItems(2) & "|" & _
          .SubItems(3) & "|" & .SubItems(4) & "|" & .SubItems(5)
      End With
      PrintRow xPos, fmt, sRow
    Next i
 
    ' Druckauftrag beenden
    .EndDoc
  End With
  Screen.MousePointer = 0
 
  MsgBox "Bestellliste wird ausgedruckt!", 64, "Drucken..."