Private Sub cmdEtikettDrucken_Click()
 
On Error Resume Next
 
  With Printer
 
    .ScaleMode = 6    ' Maßeinheit "mm"
    xPos = 20         ' 20mm Rand link
 
    .Font.Name = "Arial"
    .Font.Size = 10
 
 
    .CurrentY = 5
    .CurrentX = 5
 
 
         With DataGrid1
         Data1.Recordset.MoveFirst
 
    For I = 0 To Data1.Recordset.RecordCount - 1         'bis zum letzten 
    ' Datensatz der Tabelle
 
 
    Printer.Font.Size = 21
    Printer.Font.Bold = True
              Printer.Print "Beschreibungstext"
    Printer.Font.Bold = False
    Printer.Font.Size = 8
              Printer.Print " Beschreibungstext2"
              Printer.Print "Beschreibungstext3"
              Printer.Font.Size = 10
              Printer.Print "_________________________"
    Printer.Font.Size = 10
              Printer.Print "lfd. Nr.    :   "; DataGrid1.Columns(0)
              Printer.Print "Größe        :   "; DataGrid1.Columns(5)
    Printer.Font.Size = 22
    Printer.Font.Bold = True
              Printer.Print "Preis: "; DataGrid1.Columns(8)
    Printer.Font.Bold = False
    Printer.Font.Size = 10
              Printer.Print "_________________________"
 
 
      ' nächster Datensatz
      Data1.Recordset.MoveNext
 
        Next I
 
       End With   
 
    .EndDoc
 
 End With      
 
 End Sub