Excel Absturz bei Druckvorschau in UserForm
13.10.2003 10:23:16
Peter T
habe folgendes Problem: rufe einen Druckdialog (XLDialogPrint) aus einer UserForm heraus auf um vorher markierte Blätter zu drucken,
wenn nun in dem Druckdialog auf Druckvorschau gedruckt wird, erscheint zwar im Hintergrund die Druckvorschau, doch es kann in Excel NICHTS mehr gemacht werden,
d.h. weder die UserForm noch der Dialog der Druckvorschau nimmt irgendwelche Eingaben an, Excel kann nur mit Hilfe des Taskmanager's abgebrochen werden.
Weiß hier jemand Rat ?
Wenn nicht, wie kann ich im XLDialogPrint Aufruf einstellen das der Button für die Vorschau nicht angezeigt wird ? (da gibte es Argument mit Preview nur ich weiß nicht wie ich es einbinden kann, deshalb bitte genaue Syntax)
Hier noch mein Code zum aufrufen:
Private Sub OKBut_Click()
i = 0 - 1
'Sheets().Select False
For iloop = 1 To Druckauswahlbox.ListCount
If Druckauswahlbox.Selected(iloop - 1) = True Then
i = i + 1
ReDim Preserve DruckArray(i)
DruckArray(i) = Druckauswahlbox.List(iloop - 1, 0)
End If
Next
Set DruckBlaetter = Worksheets(DruckArray)
Application.ScreenUpdating = False
Call BlattEINblenden
DruckBlaetter.Select
Application.Dialogs(xlDialogPrint).Show (Preview = False)
Sheets("Home").Select
Call BlattAUSblenden
Application.ScreenUpdating = True
End Sub
Danke im Voraus
Peter