Problem mit Druck Makro

Sub cmd_druckGutsch()
Dim wks As Worksheet
For Each wks In Worksheets
If InStr(wks.Name, "Gutschein") > 0 And wks.Range("L28").Value > 0 Then  ' alle Tabellenblätter, _
die mit Gutschein beginnen werden gedruckt
wks.PageSetup.Orientation = xlPortrait
wks.PrintOut Copies:=1, Collate:=True
End If
Next wks
End Sub

Nun möchte ich aber, das vorher einmalig das Druckermenü angezeigt wird, um den Drucker auszuwählen.
Ich habe ein anderes Makro gefunden, über das die Funktion aufgerufen wird, jedoch muss ich da für jedes Tabellenblatt den Drucker aussuchen. Ich will aber nur beim Start des Druckauftrages einmalig den Drucker auswählen.

Sub SelectPrinter()
Dim sPrinter As String
sPrinter = Application.ActivePrinter
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveSheet.PrintPreview
Application.ActivePrinter = sPrinter
End Sub

Könnt ihr helfen?
Gruß Willi