Private Sub Label12_Click()
If MsgBox(" Wollen Sie nun die Hinweise ausdrucken ? ", vbYesNo, "Ausdruck") = _
  vbYes Then
    Printer.ScaleLeft = -((Printer.Width - Text2.Width) / 3)
    Printer.ScaleTop = -((Printer.Height - Text2.Height) / 6)
    Printer.ScaleLeft = -((Printer.Width - Text1.Width) / 3)
    Printer.ScaleTop = -((Printer.Height - Text1.Height) / 4)
    Printer.ScaleLeft = -((Printer.Width - Text3.Width) / 3)
    Printer.ScaleTop = -((Printer.Height - Text3.Height) / 4)
    Printer.FontSize = 12
    Printer.Print Text2.Text
    Printer.Print Text1.Text
    Printer.Print Text3.Text
    Printer.EndDoc
End If
End Sub