---

Hallo,

ich habe einen simplen code um eine idw als pdf zu speichern, funktioniert auch soweit. Allerdings möchte ich nur das aktive Blatt speichern, es werden aber alle Blätter im Dokument exportiert.

Dateipfad = ThisDoc.Path
Dateiname = ThisDoc.FileName(False)
Pfad_Name = Dateipfad & "\" & Dateiname
ThisDoc.Document.SaveAs(Pfad_Name & ".pdf", True)

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

---

Hallo

Nimm das Translator-Addin.

Code:

---

    Dim PDFAddIn As TranslatorAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
    Dim oDocument As Document=ThisDoc.Document
    Dim oContext As TranslationContext= ThisApplication.TransientObjects.CreateTranslationContext
    oContext.Type = kFileBrowseIOMechanism

    Dim oOptions As NameValueMap= ThisApplication.TransientObjects.CreateNameValueMap
    Dim oDataMedium As DataMedium = ThisApplication.TransientObjects.CreateDataMedium

    If PDFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then
        oOptions.Value("All_Color_AS_Black") = 0
        oOptions.Value("Sheet_Range") = kPrintCurrentSheet
End If

Dateipfad = ThisDoc.Path
Dateiname = ThisDoc.FileName(False)
Pfad_Name = Dateipfad & "\" & Dateiname

    oDataMedium.FileName = Pfad_Name
    Call PDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)

---

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

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