Verwende den Adobe Distiller.
Hab schon das Archiv durchgestöbert.
Problem ist das ich den Dateinamen und den Speicherpfad nicht manuell wählen will sondern durch das makro (sendkeys) vorgebe.
Und das funktioniert nicht.
Ich möchte in einer Schleife aus einer Exceldatei 50 pdf-files erzeugen. Und dabei nicht 50 mal auf Enter klicken und auch nicht den Speicherpfad manuell wählen.
ChDir ThisWorkbook.Path
Application.ActivePrinter = "Acrobat Distiller auf Ne00:"
Application.ScreenUpdating = False
For i = 1 To 50
Range("K2").Select
ActiveCell.FormulaR1C1 = i
ActiveWorkbook.Names.Add Name:="Print_Area", RefersToR1C1:="=Druckbereich1, Druckbereich2...Druckbereich9"
ActivePrinter:="Acrobat Distiller", Collate:=True
strFile = Worksheets("AuswNeu").Range("I1").Value & " " & Worksheets("AuswNeu").Range("H1").Value & ".pdf"
SendKeys strFile
SendKeys "{Enter}", true
Selection.PrintOut
next
Danke für jeden Tip
Wolfgang