Private Sub cmdPRINT_Click()
cmdPRINT.Visible = False
 
' Text im Winkel von 0° auf Drucker ausgeben
Printer.ScaleMode = vbMillimeters
Printer.Print
PrintRotatedText Printer, 20, 20, _
"Meine Tochter / mein Sohn " & txtVName.Text & " " & txtNName.Text, _
", " & ComboALTER.Text & " Jahre alt", _
"wird am " & txtTAG.Text & "." & txtMONAT.Text & "." & ComboJAHR.Text, _
" von der erziehungsbeauftragten Person " & txtEBVName.Text & " " & _
txtEBNName.Text, _
" gemäß § 1 Abs. 1 Nr. 4 des Jugendschutzgesetzes begleitet.", 0
 
 
Printer.EndDoc
 
End Sub