PrintPreview
13.05.2003 13:22:51
Roger
Ich habe folgenden Code im userform zum ausdrucken von Tabellenblättern welche in der Listbox aufgelistet sind.
Private Sub cmdDrucken_Click()
Dim arrWks()
Dim iCounter As Integer, iCount As Integer
For iCounter = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iCounter) Then
Worksheets(ListBox1.List(iCounter)).PrintOut
End If
Next iCounter
Unload Me
End Sub
Wie krieg ich es nun hin das ich vor dem Ausdruck das Tabellenblatt in der Seitenvorschau sehe und zwar so das dass UserForm nicht geschlossen werden muss und das Blatt danach trotzdem ausgedruckt werden kann.
Vielen Dank für eure Hilfe
Gruss Roger