VBA Code für PDF Druck
11.04.2016 09:11:27
Eurich
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
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