PDF per VBA aus Corel Exportieren

[koter]

Hallo Olaf,

ich hatte diesen Beitrag übersehen, deshalb antworte ich erst jetzt.

Du kannst es mit diesen Code probieren:

Code:

Sub ExportPDF()
   Dim l As Layer
   Dim Pfad As String, Dateiname As String
   Dim Anzahl As Integer
   For Each l In ActivePage.Layers: l.Printable = False: Next  'Alle Ebenen nicht druckbar schalten
   ActivePage.Layers("Export").Printable = True    'Ebene druckbar schalten
   Pfad = "\\hb-dc01\work\Hauptordner_FERTIGUNG\_3_LASER\Sonderanfertigung\"
   Anzahl = Dialog1.TextBox7 'Anzahl frtelegen
   Dateiname = Dialog1.TextBox6 'Dateiname festlegen
   Dateiname = Pfad & Dateiname & Replace("AF_Stck_X.pdf", "X", Anzahl) 'Dateiname vervollständigen und Anzahl einfügen
   
   With ActiveDocument.PDFSettings
       .PublishRange = 1
       .PageRange = "1"
       .Author = "Erstellt durch Makro"
       .TextAsCurves = True
       .Encoding = 1
       .pdfVersion = 6
   End With
   ActiveDocument.PublishToPDF Dateiname
End Sub

Was genau wie und wo skaliert werden soll, habe ich leider noch nicht verstanden.
Auf einen PDF-Betrachter kann man mit VBA natürlich nicht zugreifen.

Gruß

Koter