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