....
 
  Screen.MousePointer = 1
  With Printer
    .ScaleMode = 6    ' Maßeinheit "mm"
    xPos = 8         ' 20mm Rand link
 
  Screen.MousePointer = 11
  'With Printer
    .ScaleMode = 6    ' Maßeinheit "mm"
    xPos = 10         ' 20mm Rand link
 
    .Font.Name = "Arial"
    .Font.Size = 12
 
    .CurrentY = 50
    .CurrentX = xPos
    .Font.Bold = True
 
    .Font.Bold = False
 
    ' Format (Spaltenbreiten)
    fmt = "60|^30|^30|^30|30"
 
    ' Listenkopf
    .Font.Bold = True
    .Font.Size = 10
    sRow = "Artikel|Liefermenge|Einzelpreis|Gesamtpreis|Lieferdatum"
    PrintRow xPos, fmt, sRow
    .Font.Bold = False
 
 
    hoehe = 65
 
 
 
 
    ' Artikelpositionen
    .CurrentY = .CurrentY + 5
    For I = 1 To ListView1.ListItems.Count
      With ListView1.ListItems(I)
        sRow = .SubItems(2) & "|" & .SubItems(3) & "|" & _
         .SubItems(4) & "|" & .SubItems(5) & "|" & _
         .SubItems(6)
      End With
      PrintRow xPos, fmt, sRow
 
       'Flagnummern
     Artikel = ListView1.ListItems(I).SubItems(1)
 
     Set rsDruck = New ADODB.Recordset
     rsDruck.ActiveConnection = connAllgemein
     rsDruck.Source = "SAM_przAccFlagVerkaufFlagnummerRechts(' " & Val(Artikel) _
       & " ',' " & Val(txtVorgang) & " ')"
     rsDruck.LockType = adLockOptimistic
     rsDruck.CursorLocation = adUseClient
     rsDruck.CursorType = adOpenStatic
     rsDruck.Open Options:=adCmdStoredProc
 
     breite = 10
     If I > 1 Then hoehe = hoehe + 18
 
    For Zaehler = 0 To (rsDruck.RecordCount - 1)
 
           With Printer
               .FontBold = False
               .CurrentX = breite
               .CurrentY = hoehe
           End With
 
           Printer.Print (rsDruck.Fields(0).Value)
           breite = breite + 20
           Zaehler2 = Zaehler + 1
 
           If (Zaehler2 > 0 And (Zaehler2 Mod (8) = 0)) Then    '8 Nummern 
           ' pro Zeile
               hoehe = hoehe + 5
               breite = 10
               AnzZeile = AnzZeile + 1
           End If
 
 
           Zaehler2 = Zaehler2 + 1
           rsDruck.MoveNext
 
      Next Zaehler
      Printer.Print "" + vbCrLf 'leerzeile
 
 
 
    Next I
    Zaehler = 0
 
    ' Druckauftrag beenden
    .EndDoc
  End With
  Screen.MousePointer = 0