---

Hallo,

wir benutzen seit IV9 ein Makro wie dieses hier http://ww3.cad.de/foren/ubb/Forum258/HTML/000356.shtml#000000 zum erzeugen von PDFs.

Seit Inventor 2008 funktioniert das nur noch bis A3, ab A2 ist die Seitenausrichtung fehlerhaft, bzw. nur noch Hochformat.
War aber mit IV10 noch kein Problem.

Gibt es eine Lösung, bzw. ist das ein IV Bug oder ein neues Feature??

------------------
mfg
ftg

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

---

Hallo und eine schönen guten Morgen,

Probier mal den Teil des Makros für A2 damit zu ergänzen...

'----------------------------------------------------------------------------------
    ' Read-write property that gets and sets whether the drawing should be
    ' rotated 90 degrees when printed. This property only applies to drawing documents.
    ' It is initialized to False.
    '----------------------------------------------------------------------------------
    oDrgPrintMgr.Rotate90Degrees = False

------------------
Grüsse, Toni

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

---

Wir benutzen dieses Makro:

Als PDF Drucker nutzen wir PDCreator http://www.zdnet.de/downloads/prg/d/k/de0EDK-wc.html

VielSpaß schöne Weihnacht:

  If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
        Dim oDrgPrintMgr As DrawingPrintManager
        Set oDrgPrintMgr = ThisApplication.ActiveDocument.PrintManager
        oDrgPrintMgr.PrintRange = kPrintCurrentSheet
        oDrgPrintMgr.Rotate90Degrees = False
        'oDrgPrintMgr.TilingEnabled = False
        oDrgPrintMgr.Printer = "PDCreator" hier den richtigen Drucker eintagen..
        oDrgPrintMgr.ScaleMode = kPrintFullScale
        If ComboBoxDruckFarbe.Value = "S/W Drucken" Then
            oDrgPrintMgr.AllColorsAsBlack = True
        Else
            oDrgPrintMgr.AllColorsAsBlack = False
        End If
        On Error Resume Next
        Select Case ThisApplication.ActiveDocument.ActiveSheet.Size
            Case kA4DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
            Case kA3DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA3
            Case kA2DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA2
            Case kA1DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA1
                oDrgPrintMgr.Rotate90Degrees = True
            Case kA0DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA0
                oDrgPrintMgr.Rotate90Degrees = True
            Case Else ' Andere Werte.
                Debug.Print "ungültiges Papierformat"
        End Select
        Select Case ThisApplication.ActiveDocument.ActiveSheet.Orientation
            Case kLandscapePageOrientation
                oDrgPrintMgr.Orientation = kLandscapeOrientation
            Case kPortraitPageOrientation
                oDrgPrintMgr.Orientation = kPortraitOrientation
            Case Else ' Andere Werte.
                Debug.Print "ungültige Orientierung"
        End Select
        oDrgPrintMgr.SubmitPrint
    Else

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

---

Hallo,

ich hab dieses Makro jetzt in IV2009 eingebunden, funktioniert
auch soweit gut, allerdings dreht er jetzt ab Blattgröße A1 das Blatt auf den Kopf (180° verdreht).
Auskommentieren der Rotate90Degrees Funktion brachte keine Änderung.
Wahrscheinlich nur wieder eine Kleinigkeit, aber ich brings nicht zum laufen.

------------------
mfg
ftg

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