---

Hallo Leute,

hab wieder an meinen makros weiterprogrammiert und hab ein vom hilfebsp. den pdf export (INV2010) enteckt und diesen besser gefunden als ein pdf zu drucken

nur mein problem ist ich versteh nicht wie ich zu einen "speichern unter" komme

Public Sub PDF()

    Dim oDoc As DrawingDocument
        Dim Msg
            ' If an error occurs, construct an error message
            On Error Resume Next    ' Defer error handling.
            Err.Clear
            'Err.Raise 6    ' Generate an "Overflow" error.
            ' Check for error, then show message.
        If Err.Number <> 0 Then
            Msg = "KeineZeichnung "
            MsgBox Msg
            End If
           
    Set oDoc = ThisApplication.ActiveDocument
   
    oDoc.SheetSettings.SheetColor = ThisApplication.TransientObjects.CreateColor(255, 255, 255)
   
    ' Get the PDF translator Add-In.
    Dim PDFAddIn As TranslatorAddIn
    Set PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")

    'Set a reference to the active document (the document to be published).
    Dim oDocument As Document
    Set oDocument = ThisApplication.ActiveDocument

    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(oDocument, 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

    'Set the destination file name
    oDataMedium.FileName = "c:\temp\test.pdf"                <------

   

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

   
    Dim oFarbe As DrawingDocument
                   
    Set oFarbe = ThisApplication.ActiveDocument
    oFarbe.SheetSettings.SheetColor = ThisApplication.TransientObjects.CreateColor(42, 42, 42)
   
End Sub

vielleicht kann mir einer dabei helfen
danke im voraus

------------------
mfg Ronald

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

---

Hallo Roland,

also ich verstehe Deine frage nicht ganz - wozu ein 'Speichern unter' ???

Du hast eine Zeile markiert:
oDataMedium.FileName = "c:\temp\test.pdf"                <------

meinst Du, wie Du zu einem gültigen Namen kommst ? Oder wie ?

' erzeugt ein pdf mit gleichem Namen im gleiche Verzeichnis wie die *.idw
oDataMedium.FileName = Replace(oDoc.FullDocumentName, ".idw", ".pdf")

HTH

------------------
Grüsse, Paul

Inventor-Programmierung, Inventor-Tools und Inventor API-Schulung

Meine Tochter auf Youtube

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

---

danke
ist hilfreich
besser wär noch wenn ich den ordner auch noch wählen könnt aber das reicht vorläufig

------------------
mfg Ronald

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

---

Hallo

Für eine Ordnerwahl schau dir mal das FileDialog-Objekt an. Da ist auch ein Beispiel für einen Öffnen-Dialog, der aber auch für Speichern-unter genutzt werden kann.

------------------
MfG
RK

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

---

Hallo rkauskh,

falls du das gemeint hast:

Public Sub TestFileDialog()
    ' Create a new FileDialog object.
    Dim oFileDlg As FileDialog
    Call ThisApplication.CreateFileDialog(oFileDlg)
   
    ' Define the filter to select part and assembly files or any file.
    oFileDlg.Filter = "Inventor Files (*.iam;*.ipt)|*.iam;*.ipt|All Files (*.*)|*.*"
   
    ' Define the part and assembly files filter to be the default filter.
    oFileDlg.FilterIndex = 1
   
    ' Set the title for the dialog.
    oFileDlg.DialogTitle = "Open File Test"
   
    ' Set the initial directory that will be displayed in the dialog.
    oFileDlg.InitialDirectory = "C:\Temp"
       
    ' Set the flag so an error will be raised if the user clicks the Cancel button.
    oFileDlg.CancelError = True
   
    ' Show the open dialog.  The same procedure is also used for the Save dialog.
    ' The commented code can be used for the Save dialog.
    On Error Resume Next
    oFileDlg.ShowOpen
'    oFileDlg.ShowSave
   
    ' If an error was raised, the user clicked cancel, otherwise display the filename.
    If Err Then
        MsgBox "User cancelled out of dialog"
    ElseIf oFileDlg.FileName  "" Then
        MsgBox "File " & oFileDlg.FileName & " was selected."
    End If
End Sub

da funktioniert nicht mal das testbsp.
fehler im fett-gedruckten

------------------
mfg Ronald

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

---

Zitat:

---

Original erstellt von KAME:
ElseIf oFileDlg.FileName  "" Then

---

Hast du mal versucht nachzudenken was da so fehlen könnte?

=

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools

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