wo muß der Druckdialog sgtehen?

Private Sub Drucken()
Dim strDruckbereich As String, wks As Worksheet
Dim intI As Integer, strPrintTitleRows$, strPrintTitleColumns$, strPrintArea$
Dim PrintTitleColumns
Dim Infobereich As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
On Error GoTo Fehler
'  strDruckbereich = "$BL$260:$CO$323" 'Lief-Informationsbereich in den Blättern
strDruckbereich = Range("Infobereich").Address 'Lief-Informationsbereich in den Blättern
'Listbox auswerten
With Me.ListBox1
For intI = 0 To .ListCount - 1
'Prüfen ob Listbox-Item gewählt ist, dabei andere Items überspringen
If .Selected(intI) = True Then
'Worksheet-Name eines ausgewählten Lieferanten aus der 2. Spalte der Listbox auslesen
Set wks = Worksheets(.List(intI, 1))
With wks.PageSetup
'Druck-Einstellungen merken
strPrintTitleRows = .PrintTitleRows
strPrintTitleColumns = .PrintTitleColumns
strPrintArea = .PrintArea
'Druckbereich setzen für Infobereich
.PrintArea = strDruckbereich
.PrintTitleRows = ""
.PrintTitleColumns = ""
.Orientation = xlLandscape
.LeftMargin = Application.InchesToPoints(0.2)
.RightMargin = Application.InchesToPoints(0.2)
.TopMargin = Application.InchesToPoints(0.2)
.BottomMargin = Application.InchesToPoints(0.2)
End With
Application.ScreenUpdating = False
'        wks.PrintPreview 'Seitenvorschau
'        wks.PrintOut 'Drucken
Application.ScreenUpdating = True
With wks.PageSetup
'Druck-Einstellungen zurücksetzen
.PrintArea = strPrintArea
.PrintTitleRows = strPrintTitleRows
.PrintTitleColumns = PrintTitleColumns
.Orientation = xlPortrait
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
End With
End If
NextName:
Next
End With
Application.Dialogs(xlDialogPrint).Show
MsgBox "Drucken fertig"
Err.Clear
...usw...