---

Guten Tag zusammen,
ich habe folgendes Problem - hoffentlich weiß jemand eine Lösung.
Ich versuche mit dem folgendem Code PDFŽs von Bauteilen und Baugruppen views zuerzeugen - das geht auch alles sehr gut - nur das zoomen geht noch nicht bzw. wenn ich den code aus dem editor starte zoomed er die Ansicht - starte ich Sie per Knopf, wird nicht gezoomed?

Weiß jemand woran es liegen könnte?

Public Sub PrintPDF()

Dim colorSchemes As colorSchemes
Set colorSchemes = ThisApplication.colorSchemes
colorSchemes.Item("Präsentation").Activate
colorSchemes.BackgroundType = kOneColorBackgroundType

' Zoom die Ansicht
    ThisApplication.ActiveView.Fit
   
    Dim oPrintMgr As PrintManager
    Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager
    oPrintMgr.Printer = "PDFCreator"
   
       
    ' Eintellen der Druckerfarbe
    oPrintMgr.ColorMode = kPrintColorPalette

    ' Einstellen der Blattrichtung
    oPrintMgr.Orientation = kLandscapeOrientation

    ' Einstellen der Papiergröße
    oPrintMgr.PaperSize = kPaperSizeA4

    ' Drucken via PDF Creator
    oPrintMgr.SubmitPrint
   
    colorSchemes.Item("Millennium").Activate
    colorSchemes.BackgroundType = kGradientBackgroundType
End Sub

Vielen Dank schon mal

MFG

------------------
MFG

BlueJay

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

---

hmmmm... vielleicht versuchst Du mal folgendes:

nach der Zeiel mit 'ThisApplication.ActiveView.Fit' noch ein

ThisApplication.ActiveView.Update

HTH

------------------
Grüsse, Paul

Inventor-Programmierung, Inventor-Tools und Inventor API-Schulung

Online 3D-Ersatzteilkataloge

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

---

Danke dafür hat super funktioniert!

------------------
MFG

BlueJay

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