Dim fmt As String
    Dim sRow As String
    Dim xPos As Long
    Dim i As Integer
 
     Screen.MousePointer = 11
 
  With Printer
    .ScaleMode = 6    ' Maßeinheit "mm"
    xPos = 5         ' 20 mm Rand link
 
    .Font.name = "Arial"
    .Font.Size = 12
 
    .CurrentY = 10
    .CurrentX = xPos
    .Font.Bold = True
    Printer.Print "Kassenbuch:  " & Text1(0) & vbCrLf
    .Font.Bold = False
 
 
    .Font.name = "Arial"
    .Font.Size = 10
    .CurrentX = xPos
    .Font.Bold = True
 
 
    ' Format (Spaltenbreiten)
    fmt = "12|20|22|>15|>15|>15>10|>15|>15|>15|>15|>10"
 
    ' Listenkopf
    .Font.Bold = True
    .Font.Size = 8
    sRow = "Beleg|Datum|Vorgang|brutto|MwSt.|netto|MwSt" & _
      "|brutto|Vorsteuer|netto|Ust.%"
    PrintRow xPos, fmt, sRow
    Font.Bold = False
 
 
    ' Artikelpositionen
    .CurrentY = .CurrentY + 1
    For i = 1 To ListView1.ListItems.Count
      With ListView1.ListItems(i)
        sRow = .Text & "|" & .SubItems(1) & "|" & _
          .SubItems(2) & "|" & .SubItems(3) & "|" & _
          .SubItems(4) & "|" & .SubItems(5) & "|" & .SubItems(6) & "|" & _
          .SubItems(7) & "|" & . SubItems(8) & "|" & .SubItems(9) & "|" & _
          .SubItems(10) '& "|" & .SubItems(11)
      End With
      PrintRow xPos, fmt, sRow
    Next i
 
 
    .EndDoc
  End With
 
    Screen.MousePointer = 0
    MsgBox ("Druckauftrag beendet"), vbInformation, "Drucken..."
 
 
End Sub