Dim C As Control
 
With Printer
  <font color=green>' Maßeinheit auf mm setzen</font>
  .ScaleMode = 6
 
  <font color=green>' alle Textfelder durchlaufen</font>
  For Each C In Me.Controls
    If TypeOf C Is TextBox Then
      Select Case Val(Mid(C.Name, 5))
        <font color=green>' nur Text 8-12 drucken</font>
        Case 8 To 12 
          If C.Text <> "" Then
            <font color=green>' zunächst Labelfeld drucken</font>
            Printer.Print Me.Controls("Label" & Mid(C.Name, 5)).Caption;
 
            <font color=green>' jetzt Textbox-Inhalt drucken (Beginn 30 mm von 
            ' links)</font>
            .CurrentX = 30
            Printer.Print  C.Text
          End If
      End Select
    End If
  Next
 
  <font color=green>' Druckauftrag beenden</font>
  .EndDoc
End With