---

Hallo! 

Folgendes Problem:
Mit untenstehenden Makro soll über Free-PDF die Zeichnung gedruckt werden.

Jetzt wirds eigenartig:
Beim Inventor 8 funktionieren alle Formate (A4 bis A0) ohne Probleme, beim 9er funzt nur bis A2.
Sollte es nicht eher umgekehrt sein??
Also ich find das zum  und bin    *hehe*

Anbei der Code: (Hab in mir aus einem Forum kopiert)

*******************************************************
Public Sub FileSavePDF()

Dim oPrintMgr As DrawingPrintManager
For Each s In ThisApplication.ActiveDocument.Sheets
    s.Activate
    Start_Zeit = Timer
    Do While Timer < Start_Zeit + 2
    Loop
    Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager
    oPrintMgr.NumberOfCopies = 1
    oPrintMgr.Printer = "FreePDF XP"
    PapierFormat = s.Size
    oPrintMgr.Orientation = kPortraitOrientation
    Select Case PapierFormat
        Case 9993 'A0
            oPrintMgr.PaperSize = kPaperSizeA0
        Case 9994 'A1
            oPrintMgr.PaperSize = kPaperSizeA1
        Case 9995 'A2
            oPrintMgr.PaperSize = kPaperSizeA2
        Case 9996 'A3
            oPrintMgr.PaperSize = kPaperSizeA3
        Case 9997 'A4
            oPrintMgr.PaperSize = kPaperSizeA4
    End Select
    Ausrichtung = s.Orientation
    Select Case Ausrichtung
        Case 10243 'Hochformat
            oPrintMgr.Orientation = kPortraitOrientation
        Case 10242 'Querformat
            oPrintMgr.Orientation = kLandscapeOrientation
    End Select
   
    Start_Zeit = Timer
    Do While Timer < Start_Zeit + 5
    Loop
    ThisApplication.ActiveView.WindowState = kMaximize
    oPrintMgr.SubmitPrint
    Start_Zeit = Timer
    Do While Timer < Start_Zeit + 5
    Loop
Next
End Sub

------------------
Grüße aus den schönen Oberösterreich
Thomas
-------------
Für Grammatik- und Rechtschreibfehler wird keine Haftung übernommen.

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

---

Hallo Thomas,

also das wundert mich jetzt auch, das es auf INV9 nicht
mehr funktioniert. Ich arbeite immer noch mit 8, ist
deshalb noch nicht aufgefallen. Habe auch nicht
direkt die Lösung oder eine Erklärung für das Phänomen.

Probier doch aber troztdem mal dies:
        Case 9993 'A0
            oPrintMgr.PaperSize = kPaperSizeCustom
            oPrintMgr.PaperHeight = 841
            oPrintMgr.PaperWidth = 1189

Kann es nicht direkt testen; vielleicht hilftŽs ja.

------------------
Gruß Jörn

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

---

Vielen Dank, so funzt es 

Verstehe wer die Eigenarten der DIVA *gg*

------------------
Grüße aus den schönen Oberösterreich 
Thomas
-------------
Für Grammatik- und Rechtschreibfehler wird keine Haftung übernommen.

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

---

Hallo!

Ich versuche mir gerade aus diversen Code-Schnipseln ebenfalls einen vollautomatischen PDF-Druck-Button zu stricken. Bei dem hier geposteten Makro werden bei mir alle Ausdrucke auf A0 quer gedruckt, obwohl ich für jede Blattgröße die Seitengröße als benutzerdefiniert übergebe.

Weiß jemand woran das liegt?

------------------
Cheers,
    Jochen

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

---

Habe jetzt die benutzerdefinierten Seitengrößen wieder rausgenommen, seither klappt es (wie bei den Vorusern) bis A2 problemlos. A1 und A0 kann ich damit nicht drucken. Auch der Tip von yamaha hilft nicht, die Formate A1 und A0 landen immer auf A4 quer.

Gibt es noch eine Möglichkeit, der DIVA mitzuteilen welches Papierformat ich gerne hätte?

P.S.:
Ich verwende IV2008

------------------
Cheers,
    Jochen

[Diese Nachricht wurde von Fyodor am 30. Sep. 2008 editiert.]

[Diese Nachricht wurde von Fyodor am 30. Sep. 2008 editiert.]

[Diese Nachricht wurde von Fyodor am 30. Sep. 2008 editiert.]

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

---

Mittlerweile kann ich auch im Format A1 fehlerfrei drucken, wenn ich die Größenangabe als benutzerdefiniert hinterlege. Gestern ging es noch nicht, ich habe zwischenzeitlich das Programm aber gar nicht mehr angerührt...  .

A0 funktioniert aber noch immer nicht, es landet immer auf A4.

------------------
Cheers,
    Jochen

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