Dim C As Control 
Dim Index As Integer 
 
With Printer 
  ' Maßeinheit auf mm setzen 
  .ScaleMode = 6 
 
  ' Textfelder 4 - 58 drucken
  For Index = 4 To 58
    If Text1(Index).Text <> "" Then 
      ' zunächst Labelfeld drucken 
      Printer.Print Label1(Index).Caption; 
 
      ' jetzt Textbox-Inhalt drucken (Beginn 30 mm von links) 
      .CurrentX = 30 
      Printer.Print Text1(Index).Text 
    End If 
  Next 
 
  ' Druckauftrag beenden 
  .EndDoc 
End With