---

Hallo,
wie müsste ich dieses Makro umschreiben damit er mir das letzte Blatt nie als pdf mitspeichert (letztes Blatt soll immer ausgelassen werden):

Sub CATMain()

Dim oDoc As Document
    Dim DocName As String
    Dim DocPath As String
    Dim PDFPath As String
 
    Set oDoc = CATIA.ActiveDocument
 
    DocName = oDoc.Name
    DocPath = oDoc.Path
    PDFPath = DocPath & "\" & Left(DocName, Len(DocName) - 11) & ".pdf"
 
    'Debug.Print "PDF Path: " & PDFPath
 
    oDoc.ExportData PDFPath, "pdf"

End Sub

Vielen Dank im Voraus 

Beste Grüße
Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Noch eine Info:
Das letzte Blatt ist immer ein "Detailblatt".
Gibt es irgendeine Möglichkeit die "Detailblätter" beim speichern als pdf auszuschließen?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus Stefan

Ich meine dieses Thema wurde schon öfters angesprochen (bitte Forensuche verwenden).
Mögliche Lösungen sind:

• Zeichnung per PDF-Drucker ausdrucken (dabei Detailsheet ausschließen)
  
• PDF per ExportData erstellen und mit einem externen Tool (Ghostscript?) die falschen Seiten entfernen
  
• PDF per ExportData erstellen (pro Seite eine Datei) und mit einem externen Tools Seiten zusammenfügen

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP