Über ein Makro blende ich eine Registerblatt ein, lasse den Drucker manuell auswählen, Speichern unter, Registerblatt wird wieder ausgeblendet. Feste Seiteneinstellung ist A3, da es eine Menge Daten sind.
Das klappt soweit.
Code:
Sub PDFSOLLH1()
Sheets("Auswahl").Select
Sheets("H1 SOLL").Visible = True
Sheets("H1 SOLL").Select
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("H1 SOLL").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub
Ich benötige aber eine Art Pause, in der der Anwender manuell die Seite über Umbruchvorschau anpassen kann, da immer unterschiedlich viele Spalten mit Werten gefüllt sind.
Wie eine Msg Box, aber nach entsprechender manueller Skalierung mit irgendwo einen Haken setzen oder OK drücken oder oder?
Hat jemand eine Idee. Ich suche schon lange Zeit im Netz, war bisher aber nicht fündig. Immer nur Teilschritte....
Vielen Dank im voraus |