Druckervorschau
09.01.2022 22:17:00
Siegfried
stehe leider wieder einmal vor einem Problem für welches ich im WEB leider keine Lösung gefunden habe.
Ich habe ein Tabellenblatt mit über 6000 Zeilen zum Drucken, da dies ja etwas Zeit und Materialaufwendig ist habe ich mir eine Druckvorschau eingebaut.
Über diese ist es super den Druckbereich anzusehen, wenn nötig auch noch Einstellungen zu ändern bevor die Ausgabe an den ausgewählten Drucker erfolgt, welcher auch mit dieser Funktion ausgewählt wird.
Ich würde gerne an diese Funktion sowohl den ZielOrdner als auch den zu speichernden Namen übergeben, nur die Frage wie bzw. ist/wäre dies überhaupt möglich?
Sub SelectPrinter(DruName)
Dim sPrinter As String
sPrinter = Application.ActivePrinter
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveSheet.PrintPreview
Application.ActivePrinter = sPrinter
End Sub
Mit der Übergabe von DruName würde ich ja diese Werte übergeben, nur wie kann ich sie an "ActiveSheet.PrintPreview" weiter übergeben?
Dazu einige Bilder zum besser Verständnis.
DANKE für Eure Hilfe!!!