Private Sub cmdPRINT_Click()
cmdPRINT.Enabled = False
cmdNEU.Enabled = True
 
 
' Text im Winkel von 0° auf Drucker ausgeben
Printer.ScaleMode = vbMillimeters
Printer.Print
PrintRotatedText Printer, 20, 20, "Erziehungsbeauftragung gemäß" & _
  "Jugendschutzgesetz" & vbCrLf & "(Gültig nur mit aktuellem Personalausweis)" _
  & vbCrLf & vbCrLf & vbCrLf & "Name des Jugendlichen: " & txtVName.Text & " " _
  & txtNName.Text & vbCrLf & vbCrLf & vbCrLf & "Eltern: " & vbCrLf & _
  txtEVName.Text & " " & txtENName.Text & vbCrLf & "Adresse: " & txtPLZ.Text & _
  " " & txtStadt.Text & vbCrLf & "Tel.: " & txtEVorwahl.Text & " / " & _
  txtENR.Text & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "Meine Tochter / mein Sohn:" & _
  "" & vbCrLf & txtVName.Text & " " & txtNName.Text & ", " & ComboALTER.Text & _
  " Jahre alt" & ", " & vbCrLf & "wird am " & ComboTAG.Text & "." & _
  ComboMONAT.Text & "." & ComboJAHR.Text & " von der erziehungsbeauftragten" & _
  "Person gemäß § 1 Abs. 1 Nr. 4 des Jugendschutzgesetzes begleitet." & vbCrLf _
  & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "Erziehungsbeauftragte Person" & _
  "ist: " & vbCrLf & txtEBVName.Text & " " & txtEBNName.Text & vbCrLf & "Tel.:" _
  & txtVorwahl.Text & " / " & txtNR.Text, 0
 
 
 
Printer.EndDoc
 
End Sub