Makro für Druckdialog auf Mac
01.02.2024 08:48:34
MaxVie
mir wird von einem Dienstleister ein Excel zur Verfügung gestellt, das ich verwenden muss. Es dürfte auf Windows-User zugeschnitten sein.
Ich muss in mehreren Arbeitsblättern Daten eintragen und habe dann einen Print Button der mit einem Makro hinterlegt ist durch den ein Formular generiert wird.
So weit so gut. Nur ist das Makro so programmiert, dass der Druck sofort startet. Ich will aber das Formular (nicht die Datei) als pdf speichern um sie meinen Kunden zu schicken. Das Makro soll also das Formular generieren und dann in den Druckdialog gehen, wo ich "speichern als pdf" auswählen kann. Hier das Makro:
Sub DruckenAntrag()
testvar = Sheets("Kundendaten").Range("C45").Value
Application.ScreenUpdating = False
With Worksheets("Antrag")
.PageSetup.PrintArea = Range(testvar).Address
Dim Drucker$
Drucker = ActivePrinter
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("Antrag").PrintOut
ActivePrinter = Drucker
.PageSetup.PrintArea = ""
End With
Application.ScreenUpdating = True
End Sub
Danke euch!