Hi zusammen,
Ich hab da gerade etwas sehr komisches...
Ich will einfach ein drw als pdf abspeichern und das funkt nur wenn SWX vorher gestartet wurde.
Wenn ich SWX via VB starte (CreateObject) dann klappt das Speichern nicht..
bin ich Blind ? oder hab ich etwas vergessen
---------------------------------
Dim swapp As Object
Dim swMdl As Object
Const sFile As String = "C:\Zeichnung1.slddrw"
Const sPDF As String = "C:\test.pdf"
Set swapp = CreateObject("SldWorks.Application")
Dim oe As Long, ow As Long
swapp.Visible = True
Set swMdl = swapp.OpenDoc6(sFile, 3, 32 Or 1, "", oe, ow)
Dim bRes As Boolean, se As Long, sw As Long
bRes = swMdl.SaveAs4(sPDF, 0, 0, se, sw)
If bRes = False Then
MsgBox "plöp " & se & " / " & sw, vbExclamation, "Plöp"
End If
Gruß
Micha
------------------
http://classicvb.org/petition/
Zitat:
Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP