---

2018-07-0909_43_04-Systemoptionen-PDF.jpg

Hallo an alle Interessierten,

Ich habe bereits seit längerem ein PDF Makro in Benutzung welches prüft ob ein PDF vorhanden ist und ob dies Schreibgeschützt ist wenn man es überschreiben möchte.

(Leichte Modifikation des Makor von Andreas Bacher)

Code:

---

' ******************************************************************************
' C:\DOKUME~1\ast06\LOKALE~1\Temp\swx2140\Macro1.swb - macro recorded on 14/04/04 by Andreas Bacher
' ******************************************************************************

Dim Value As Integer
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Dim saveFileName As String

Sub main()
' **
Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch

If (swApp.ActiveDoc.GetPathName = "") Then          'Abfrage ob Name vergeben wurde
    MsgBox ("Bitte zuerst Zeichnung speichern!")
    Exit Sub
End If

'swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swPDFExportInColor, False 'PDF in SW

saveFileName = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".PDF" ' Speichern als PDF-Datei
If Part.SaveAs2(saveFileName, 0, True, True) = 0 Then
'MsgBox ("PDF erstellt")
Else
  MsgBox ("PDF scheint schreibgeschützt zu sein")
End If

End Sub

---

Es geht mir um die Auskommentierte Zeile

Code:

---

'swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swPDFExportInColor, False 'PDF in SW

---

Hier möchte ich das das PDF in schwarz/weiß erzeugt wird, aber ich bekomme immer Laufzeitfehler 424 und weis nicht direkt was ich dagegen tun kann.
Die Zeile habe ich mir einfach aus einem selbst aufgezeichnet Makro entnommen, bei dem ich bei den Einstellungen zu PDF den Haken entferne.

Code:

---

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swPDFExportInColor, False
End Sub

---

Weis einer wie Ich den Code anpassen kann.
Bin nicht sehr erfahren, aber man lernt ja immer dazu.

Gruß Klaus

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

---

Hallo Klaus

Das liegt an den fehlenden Referenzen.
Im VBA-Editor musst du unter Tools->References... die Haken bei SOLIDWORKS 201X Commands type library
und  SOLIDWORKS 201X Constant type library setzten.

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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

---

Hallo Klaus,

bei mir sieht die Code-Zeile so aus:

Code:

---

swApp.SetUserPreferenceToggle swPDFExportInColor, False    'PDF nicht in Farbe exportieren

---

Und damit funktioniert es.

------------------
Viele Grüße aus Brackenheim

Lars Pauly

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

---

2018-07-0912_41_59-Verweise-Export_pdf_dxf.jpg

JAA!!

Das ist es Danke! Darauf bin ich nicht gekommen!

Für alle die es wissen möchten hier die Einstellungen.

Und hier der Code zum PDF in farbe

Code:

---

' ******************************************************************************
' C:\DOKUME~1\ast06\LOKALE~1\Temp\swx2140\Macro1.swb - macro recorded on 09/07/18 by Marco Hörnig
' ******************************************************************************

Dim Value As Integer
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Dim saveFileName As String
Dim pdfColor As Boolean

Sub main()
' **
Set swApp = Application.SldWorks

pdfColor = swApp.GetUserPreferenceToggle(swUserPreferenceToggle_e.swPDFExportInColor) 'Fragt akutellen Status zu PDF farbig oder schwarz/weis ab
Set Part = swApp.ActiveDoc

swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch

If (swApp.ActiveDoc.GetPathName = "") Then          'Abfrage ob Name vergeben wurde
    MsgBox ("Bitte zuerst Zeichnung speichern!")
    Exit Sub
End If
swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swPDFExportInColor, True 'True =frabig, False =schwarz/weiß
saveFileName = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".PDF" ' Speichern als PDF-Datei
If Part.SaveAs2(saveFileName, 0, True, True) = 0 Then
'MsgBox ("PDF erstellt")
Else
   MsgBox ("PDF scheint schreibgeschützt zu sein")
End If
swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swPDFExportInColor, pdfColor 'stellt alte Einstellung von PDF farbig oder schwarz/weis wieder her
'MsgBox pdfColor, , "PDF scheint schreibgeschützt zu sein"

End Sub

---

[Diese Nachricht wurde von klaus0815 am 09. Jul. 2018 editiert.]

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