Tüfftler - Code execution has been interrupted

Hallo,
ich führe folgenden Code aus:


Private Sub UF19_Button3_Click()
Dim Text
Dim sPreLayout As String
Dim iPreZoom As Integer
'Application.DisplayAlerts = False
' Speichere Text
Text = UF19_TextBox1
' Setze Focus
Worksheets("Druck").Select
' Seite einrichten
With ActiveSheet.PageSetup
sPreLayout = .Orientation
iPreZoom = .Zoom
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
' Kopiere Inhalt in die Erste Zelle des Tabellenblattes "Druck"
Worksheets("Druck").Cells(1, 1) = Text
' Formatiert die zelle auf die mögliche minimale Breite
'Worksheets("Druck").Cells(1, 1).Columns.AutoFit
' Druckerdialog
Application.Dialogs(xlDialogPrint).Show --- danach Fehlermeldung
' Seite zurückstellen
With ActiveSheet.PageSetup
.Orientation = sPreLayout
.Zoom = iPreZoom
End With
End Sub

Ich bekomme nach Ausführung an der Stelle "Application.Dialogs(xlDialogPrint).Show" die Fehlermeldung "Code execution has been interrupted"
Wie kann ich das ausschalten ? Bzw. wo ist das Problem?
Mit Application.DisplayAlerts = False geht es nicht. Auch die Zeile "ActiveSheet.PrintOut copies:=1" für einen Direktdruck funktioniert nicht bzw. er druckt aber es kommt die gleiche Fehlermedlung.
Bitte um schnelle Hilfe
Danke und Gruß
HaJo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() On Error GoTo fehler Dim Text Dim sPreLayout As String Dim iPreZoom As Integer Text = UF19_TextBox1 Worksheets(1).Select With ActiveSheet.PageSetup sPreLayout = .Orientation iPreZoom = .Zoom .Orientation = xlLandscape .FitToPagesWide = 1 .FitToPagesTall = 1 End With Worksheets(1).Cells(1, 1) = Text Application.Dialogs(xlDialogPrint).Show With ActiveSheet.PageSetup .Orientation = sPreLayout .Zoom = iPreZoom End With End fehler: Rem die naechste zeile ist nur zur erfasseng des fehlercodes,zelle A1 darstellung Rem und sollte nachdem geloescht werden Rem nachtraeglich der erfassung sollte DeineFehlerNummer in unterer zeile eingesetzt werden Rem resume next ohne fehlercode erfassung sollte nicht eingesetzt werden Range("A1") = Err If Err = DeineFehlerNummer Then Resume Next Rem eventuelle fehlerbehandlung End If End Sub

Beliebteste Forumthreads (12 Monate)

Tüfftler - Code execution has been interrupted

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tüfftler - Code execution has been interrupted

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread