Printer.ScaleMode = vbCentimeters 'Einheiten wählen
    'Ränder einstellen
 
      tmp = IIf(frmPicProgrammer.frmGB.BackColor = cGrün, "offen", "gedrosselt")
       HorizontalMargin = (21 - Printer.ScaleWidth) / 2
       VerticalMargin = (29.7 - Printer.ScaleHeight) / 2
       HorizontalMargin = 1 + HorizontalMargin
       VerticalMargin = 1 + VerticalMargin
    'Init Printer
       Printer.Print ""
    'Draw Box
       Printer.Line (HorizontalMargin, VerticalMargin)-(21 - HorizontalMargin, _
         29.7 - VerticalMargin), RGB(0, 0, 0), B
          Printer.CurrentX = HorizontalMargin
          Printer.CurrentY = VerticalMargin
         Printer.FontSize = 10
          Printer.Print "Version " & tmp