Hallo,
hab mir da ein Makro gebaut, das einer Excelvorlage einen anderen Namen als den Vorlagennamen simulieren soll und mit dem anderen Namen eine PDF drucken und speichern soll.
Hier der Code:
Name = Sheets("allgemeine schreiben").Range("f10")
Speichername = Sheets("korrektur").Range("bh133") & " " & Date & ".pdf"
Sheets("allgemeine Schreiben").Select
Application.ScreenUpdating = False
Application.DisplayAlerts = False
SendKeys "F:\001 Arbeitsordner\A 01 Ausbau-Service-Müller\003 PDF-Kopien\Speichername"
'SendKeys "C:\allgemeine Schreiben.pdf"
SendKeys "{enter}"
SendKeys "J"
ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="maxx PDFMAILER Standard", Copies:=1, Collate:=True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Klappt aber nicht ganz, da es nichts speichert, das Makro selber läuft aber durch.
Weiss jemand von Euch noch einen Tipp oder besser ein fertiges Makro.
Gruß
Stefan