ich ersuche um Eure Hilfe:
Mit Makro "DrucktEinzelneTabBlaetterAus" möchte ich in eien Mappe bestimmte Tabellen Blätter (FILIALE von A bis G") ausdrucken.
Es sollen ausgedruckt werden nur die Tabellen Blätter (FILAIALE von A bis G) die eingeblendet sind.
In diese Mappe habe ich noch ca 20 verschiedene Tabellen Blätter.
Da ich mir verschiednen Drucker arbeite habe ich den Drucker Auswahl Fenster dazu genommen,
"Application.Dialogs(xlDialogPrinterSetup).Show" wo ich den Drucker auswählen kann.
Sehr selten drucke ich mit Standard Drucker meisetens wird mit anderen Drucker gedruckt der nicht als Standard Drucker festgelegt ist.
Der Makro läuft ohne Fehler durch aber es wird nichts gedruckt. Da ich der Anfänger bin weiß ich leider nicht wo der Fehler liegt.
Konnte mir jemand bitte helfen und den Fehler finden?
Danke für Eure Hilfe.
Daniel
Sub DrucktEinzelneTabBlaetterAus()
Dim wks As Worksheet
Dim vVisible As Variant
Dim sPrinter As String
sPrinter = Application.ActivePrinter
Application.Dialogs(xlDialogPrinterSetup).Show
For Each wks In Worksheets
If Left(wks.Name, 7) = "FILIALE" Then
vVisible = wks.Visible
wks.PrintPreview
wks.Visible = vVisible
End If
Next wks
Application.ActivePrinter = sPrinter
End Sub