Zum ausdrucken als PDF sollte ich den Standarddrucker wechseln
Mit Druckerdialog und manuell auswählen klappt das :
Application.Dialogs(9).Show
Range("$B$3:Total").Select
Selection.PrintOut
Gerne würde ich aber ohne Dialogfeld arbeiten aber so geht das nicht:
Application.Printer = Application.Printers("Aloaha PDF Drucker")
Range("$B$3:Total").Select
Selection.PrintOut
Vielen Dank für Hilfe und einen schönen Abend