- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Export PDF Optionen verteilen
Hallo,
hat von euch jemand eine Möglichkeit gefunden die Export-Optionen für eine PDF grundsätzlich einheitlich an User zu Verteilen?
Es geht mir explizit um den Haken "Publizierte Datei in Viewer anzeigen" ich würde gerne diesen Haken standardmäßig raus haben. Da ich nicht will das beim benutzen meines ExportPDF VBA Makros der Viewer geöffnet wird. Da dies unnötig zeit kostet.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Kannst du dein ExportPDF VBA Makro anfügen?
Ich dachte, dass nach Export durch PDFAddIn, standardmäßig kein Viewer anziegt wird?
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi, klar hier ist es:
Option Explicit
Const EXPORTPATH As String = "C:\Temp\"
Public Sub ExportPDF()
On Error Resume Next
Dim oApp As Inventor.Application
Set oApp = ThisApplication
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
'Prüfung richtiges Dokument geöffnet
If oApp.Documents.Count = 0 Then Exit Sub
If oApp.ActiveDocument.DocumentType <> kDrawingDocumentObject Then
MsgBox "Funktion ist nur in Zeichnungen zulässig"
Exit Sub
End If
Dim oFileSystem As Object
Set oFileSystem = CreateObject("Scripting.FilesystemObject")
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
Dim oOptions As NameValueMap
Set oOptions = ThisApplication.TransientObjects.CreateNameValueMap
Dim oDataMedium As DataMedium
Set oDataMedium = ThisApplication.TransientObjects.CreateDataMedium
'Optionen für PDF Export wählen
If PDFAddIn.HasSaveCopyAsOptions(oDrawDoc, oContext, oOptions) Then
oOptions.Value("All_Color_AS_Black") = 0
oOptions.Value("Remove_Line_Weights") = 1
oOptions.Value("Vector_Resolution") = 4800
oOptions.Value("Sheet_Range") = kPrintAllSheets
'oOptions.Value("Custom_Begin_Sheet") = 2
'oOptions.Value("Custom_End_Sheet") = 4
End If
'Titel
Dim oTitle As String
oTitle = oDrawDoc.PropertySets.Item(1).Item(1).Expression
'Teilenummer
Dim oPrtNo As String
oPrtNo = oDrawDoc.PropertySets.Item("Design Tracking - Eigenschaften").Item("Part Number").Expression
'Zeichen aus Titel filtern
oTitle = Replace(oTitle, "/", "-")
oTitle = Replace(oTitle, "\", "-")
oTitle = Replace(oTitle, ":", "-")
oTitle = Replace(oTitle, "*", "-")
oTitle = Replace(oTitle, "?", "-")
oTitle = Replace(oTitle, "<", "-")
oTitle = Replace(oTitle, ">", "-")
oTitle = Replace(oTitle, "|", "-")
'Zeichnungsnummer
Dim oDrwNo As String
oDrwNo = oFileSystem.GetFilename(oDrawDoc.FullFileName)
'Revision
Dim oRev As String
oRev = oDrawDoc.PropertySets.Item("Inventor User Defined Properties").Item("Revision").Expression
'Dateiname ermittlen
Dim oDaNa As String
oDaNa = EXPORTPATH + oPrtNo & "_" & oDrwNo & "_" & oRev & "_" & oTitle
'Dateierweiterung ermitteln
Dim oDen As String
oDen = ".pdf"
'Dateiname festlegen
Dim FileName As String
FileName = oDaNa & oDen
' PDF speichern unter
oDataMedium.FileName = FileName
Call PDFAddIn.SaveCopyAs(oDrawDoc, oContext, oOptions, oDataMedium)
' Zoom
oDrawDoc.Views.Item(1).Fit
' Explorer starten
'Call VBA.Shell("explorer " & EXPORTPATH, vbNormalFocus)
End Sub
Ich habe gesucht ob in der Registry noch ein "oOptions.Value("")" schaltet habe aber nichts gefunden.
Das Kontrollkästchen im Inventor Export "Publizierte Datei Im Viewer anzeigen" demnach vermutlich nicht über die Registry mit beeinflusst. Sondern ist eine manuelle ak- oder deaktiverung.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hast du geprüft wie deine Inventor Optionen beim Exportieren von PDF bei Zeichnungen sind?
Ob hier das Kontrollkästchen bei der Option "Publizierte Datei in Viewer anzeigen" aktiviert ist oder nicht?
Ist ein Haken gesetzt geht der Viewer auf, ist das Kontrollkästchen leer dann nicht.
Also bei mir wird der Adobe Reader gestartet wenn ich den Haken manuell setze.
Da ich mit dem Makro diesen anscheinend nicht ansteuere.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Du hast recht.
Mit der Option "Publizierte Datei in Viewer anzeigen" aktiviert, pdf window erscheint.
Ich habe also erfahen, dass deises Problem mehr problematisch ist, als ich dachte. In Inventor von alten versionen Inventor, konnte man auch eine andere Option andern:
oOptions.Value("Launch_Viewer") = true ' or falseSeit Inventor 2018 wirkt es aber nicht mehr.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Mine wird so angegeben:
oOptions.Value("Launch_Viewer") = 0 ' 0 = False, 1 = True
sehen Sie, ob dies für Sie funktioniert
FYI: Ich verwende Inventor Pro 2021.1 und aktualisierte Adobe Reader DC auf einem vollständig aktualisierten Windows 10-PC. Ich kann diese Einstellung von 0 auf 1 und zurück auf 0 umstellen, und es tut immer das, was erwartet wird.
If this solved your problem, or answered your question, please click ACCEPT SOLUTION.
Or, if this helped you, please click 'LIKE'
.
Wesley Crihfield
(Not an Autodesk Employee)
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Wenn Sie in Ihrem Windows-Dateimanagerfenster auf ein PDF-Dokument doppelklicken, wird es automatisch in einem Viewer geöffnet? Verfügen Sie über eine Standardanwendung zum Öffnen von PDF-Dokumenten auf allen Zielcomputern?
Wesley Crihfield
(Not an Autodesk Employee)
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Ich habe die Option nun mit eingefügt:
'Optionen für PDF Export wählen
If PDFAddIn.HasSaveCopyAsOptions(oDrawDoc, oContext, oOptions) Then
oOptions.Value("All_Color_AS_Black") = 0
oOptions.Value("Remove_Line_Weights") = 1
oOptions.Value("Vector_Resolution") = 400
oOptions.Value("Sheet_Range") = kPrintAllSheets
oOptions.Value("Launch_Viewer") = 0 ' 0 = False, 1 = True
End If
Hat jedoch nicht den gewünschten Effekt, es scheint bei der Inventor Version 2019.4.2 noch nicht zu funktionieren
Der Eintrag "Launch Viewer" ist auch nicht in der Registry zu finden sieh Bild.
Der Einzige Wert der einem "Viewer anzeigen" am nähesten kommt ist der DisplayPublishedFileInViewer
Dieser hat aber bei der Exportieren PDF Funktion keine Auswirkung.
Es ist ein Standard-Viewer für PDF hinterlegt, das ganze ist aber kein Windows-Thema sondern eine Inventor Funktion die ich manuell ein- und ausschalten kann. Ich finde aber leider eben nicht heraus wie ich ihn ansteuern kann oder in welchem Registry-Wert oder Konfigurationsdatei der Wert gespeichert.