Weiss jemand, wie man den Inhalt einer Textbox auf einer Userform ausdrucken kann. Es handelt sich hierbei um ein mehrzeiliger Text. Leider kann ich den Text nicht in eine Zelle zuerst einfügen .
Danke
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim printsh As Worksheet
Set printsh = Worksheets.Add
printsh.Columns("a").ColumnWidth = Me.TextBox1.Width * 0.13
With printsh.Cells(1, 1).Font
.Bold = True
.Underline = True
End With
printsh.Cells(1, 1) = "Der folgende Text wurde in der Textbox eingegeben:"
printsh.Cells(3, 1) = Me.TextBox1.Text
printsh.Cells(3, 1).BorderAround , xlMedium, 1
printsh.printout
Application.DisplayAlerts = False
printsh.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Unload Me
End Sub
Da passiert im Hintergrund naemlich vieles, sehen wirst Du das aber nicht und somit wirds Dich auch nicht stoeren! Your feedback is appreciated...
Gruss
Rainer