---

Hallo,

ich habe im Netz ein VBA gefunden, das PDF's abspeichert.
Da aber der Speicherordner der Quellordner war, habe ich versucht das zu ändern..leider meckert er immer wieder bei dem Punkt "oDoc.SaveAs ExportFile, True" (424 Fehler)

Public Sub PlotPDF()

If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then

Dim oDrgDoc As DrawingDocument

Set oDrgDoc = ThisApplication.ActiveDocument

' Set reference to drawing print manager

Dim oDrgPrintMgr As DrawingPrintManager

Set oDrgPrintMgr = oDrgDoc.PrintManager

'Set the paper size , scale and orientation

oDrgPrintMgr.ScaleMode = kPrintBestFitScale

oDrgPrintMgr.PaperSize = kPaperSizeLetter

oDrgPrintMgr.PrintRange = kPrintAllSheets

oDrgPrintMgr.Orientation = kLandscapeOrientation

oDrgPrintMgr.AllColorsAsBlack = True

'Set the file name

Dim ExportFile As String

ExportFile = "\\ABCDE\" & Left$(oDrgDoc.DisplayName, Len(oDrgDoc.DisplayName) - 3) & "pdf"

oDoc.SaveAs ExportFile, True

End If

Exit Sub
ErrorHandler:
MsgBox Err.Description
End Sub

Was kann der Fehler sein?
Über eine Korrektur wäre ich sehr erfreut 
Und mit einer Erklärung noch viel mehr

Gruß
Starbuzz

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

---

Hallo Starbuzz,

das Beispiel aus der API sieht ungefähr so aus:

Code:

---

Dim PDFAddIn As TranslatorAddIn
Set PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
   
Dim oContext As TranslationContext
Set oContext = ThisApplication.TransientObjects.CreateTranslationContext
oContext.Type = kFileBrowseIOMechanism
       
' Create a NameValueMap object
Dim oOptions As NameValueMap
Set oOptions = ThisApplication.TransientObjects.CreateNameValueMap

' Create a DataMedium object
Dim oDataMedium As DataMedium
Set oDataMedium = ThisApplication.TransientObjects.CreateDataMedium

' Check whether the translator has 'SaveCopyAs' options
If PDFAddIn.HasSaveCopyAsOptions(oDrgDoc, oContext, oOptions) Then

    ' Options for drawings...
    oOptions.Value("All_Color_AS_Black") = 0
    'oOptions.Value("Remove_Line_Weights") = 0
    'oOptions.Value("Vector_Resolution") = 400
    oOptions.Value("Sheet_Range") = kPrintAllSheets
    'oOptions.Value("Custom_Begin_Sheet") = 2
    'oOptions.Value("Custom_End_Sheet") = 4
End If 'PDFAddIn.HasSaveCopyAsOptions

'Set the destination file name
oDataMedium.FileName = Ziel

'Publish document.
Call PDFAddIn.SaveCopyAs(oDrgDoc, oContext, oOptions, oDataMedium)

---

------------------
Gruß Roland

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

---

Versuch einfach mal ein Call davor zu setzen:

Code:

---

Call oDoc.SaveAs ExportFile, True

---

VBA braucht das im Normalfall.

------------------
MFG

Chris

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

---

Hallo

Code:

---

Public Sub SaveAsPDF()

    Dim oDoc As Document
    Set oDoc = ThisApplication.ActiveDocument

    Call oDoc.SaveAs("C:\Temp\TestFile.pdf", True)
End Sub

---

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

---

Nach längerer Abwesendheit (Schande über mein Haupt).
Den kleinen Code finde ich sehr gut gelungen.
Wie kriege ich es hin, das er den DisplayName als Speichernamen nutzt?

Kann mir jemand dabei helfen? 

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

---

Hallo

Code:

---

Public Sub SaveAsPDF()

    Dim oDoc As Document
    Set oDoc = ThisApplication.ActiveDocument

Speichername = oDoc.DisplayName

    Call oDoc.SaveAs("C:\Temp\" & Speichername & ".pdf", True)
End Sub

---

Gruß Berno

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