---

Hallo Freunde,

ich möchte ein idw zeichnung mit ein klick an ein Button PDF erzeugen...Blatt wird A3 automatisch erkennen und in entsprechend Ordner gespeichert werden.

Danke - Singoi

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

---

Hallo Singoi,
wenn du dir die Threads anschaust, hast du schon alle Zutaten.
http://ww3.cad.de/foren/ubb/Forum258/HTML/000977.shtml http://ww3.cad.de/foren/ubb/Forum258/HTML/000969.shtml

Gruß
Peter

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

---

Also bei mir funktioniert das PDF Translator AddIn nicht wirklich!
Bei mir fehelen Linien oder es kommt nur ein weißes Blatt heraus!

Ich arbeite noch immer über einen guten alten PS Drucker und speichere es dann mit
GhostScript!

mfg Bernhard

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

---

Hallo Bernhard,

laut amerikanischem Forum liegt das an der PDF-Auflösung. http://discussion.autodesk.com/adskcsp/thread.jspa?messageID=5973309

Gruß
Peter

[Diese Nachricht wurde von pd65 am 01. Aug. 2008 editiert.]

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

---

Also bei mir hilft das Ändern der Resolution nichts!
??

mfg Bernhard

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

---

Hallo

ich habe den Free-PDF installiert und sage Inventor, er solle zum erzeugen einer PDF, diese Print-Routine laufen lassen:

Sub PlotAllSheetsInDrawing()

    If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
       
        Dim oDrgDoc As DrawingDocument
        Set oDrgDoc = ThisApplication.ActiveDocument
       
        Dim oDrgPrintMgr As DrawingPrintManager
        Set oDrgPrintMgr = oDrgDoc.PrintManager
        oDrgPrintMgr.Printer = "FreePDF XP"
        'oDrgPrintMgr.Printer = "Dell MFP Laser 3115cn PS"
       
        'Set the paper size , scale and orientation
        oDrgPrintMgr.ScaleMode = kPrintBestFitScale
        oDrgPrintMgr.PaperSize = kPaperSizeA4
        oDrgPrintMgr.PrintRange = kPrintAllSheets
        oDrgPrintMgr.Orientation = kLandscapeOrientation
       
        oDrgPrintMgr.SubmitPrint
        oDrgDoc.Save
        oDrgDoc.Close
    End If
End Sub

Der Nachteil ist, dass du bei jedem PDF-File sagen musst, wo es abgespeichert werden soll. Im Moment funktionierts, aber ich werkle daran, ein Makro zu schreiben, bei welchem dies nicht mehr nötig sein wird! Bin aber bis jetzt noch nicht sehr erfolgreich gewesen!

abendliche Grüsse

Mike

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

---

Also FreePDF brauche ich nicht! ich mache das gleiche selbst. PS Datei ausdrucken und mit GhostScript zu PDF oder Tiff umwandeln (genau wie FreePDF nur ohne zusätzliches Programm).
Aber ich wollte gleich das Translator AddIn verwenden! Ist ja jetzt schon dabei! nur halt nicht ganz funktionstüchtig!

mfg Bernhard

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