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