TextBox in UserDialog ausdrucken
07.06.2006 19:03:27
HaJo
ich habe folgendes Problem. Ich habe ein UserDialog mit einer TextBox. Ich möchte den Text in der TextBox auf Knopfdruck ausdrucken. Hierfür habe ich folgenden Code aus diesem Forum erhalten.
Private Sub Drucken()
Text = UF19_TextBox1
Worksheets("Druck").Select
Worksheets("Druck").Cells(1, 1) = Text
Application.Dialogs(xlDialogPrint).Show
ActiveSheet.PrintOut copies:=1 <--- Hier bleibt er im Debugger stehen
End Sub
Jetzt bekomme ich beim Ausdrucken folgende Fehlermeldung:
"Code execution has been interrupted"
Kann mir jemand bitte helfen, wie ich den VBA-Code anpassen muß damit es geht?
Danke und Gruß
HaJo