| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PDM System exakt anpassen an Anwenderforderungen (GAIN Collaboration,PDM,PDM System,PLM,PLM System) |
Autor
|
Thema: Automatsich A4/A3 (2913 mal gelesen)
|
Bud87 Mitglied
Beiträge: 157 Registriert: 11.09.2008 Catia V5 R17 Autodesk Inventor 2017 Windows Vista 32bit
|
erstellt am: 17. Mai. 2011 08:10 <-- editieren / zitieren --> Unities abgeben:
Hallo, Ich arbeite mit A4 und mit A3 Arbeitsblattformaten. Bei Mechanical wird das Druckformat automatisch erkannt und weitergegeben. Bei Inventor muss ich das Format immer manuell auf A3 einstellen damit er das richtige Format auch druckt. Ist es möglich das dies automatisch geht? Danke Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
freierfall Ehrenmitglied V.I.P. h.c. Techniker
Beiträge: 11547 Registriert: 30.04.2004 WIN10 64bit, 32GB RAM IV bis 2022
|
erstellt am: 17. Mai. 2011 09:12 <-- editieren / zitieren --> Unities abgeben: Nur für Bud87
|
Husky Ehrenmitglied V.I.P. h.c.
Beiträge: 5718 Registriert: 10.07.2002 No Sysinfo
|
erstellt am: 17. Mai. 2011 09:52 <-- editieren / zitieren --> Unities abgeben: Nur für Bud87
|
muellc Ehrenmitglied V.I.P. h.c. ICT Specialist
Beiträge: 3501 Registriert: 30.11.2006 Inventor 2017.4.12 64 bit Windows 10 Enterprise 64 bit 3DEXPERIENCE R2016x -------------------- HP Z-Book 15 G4 32 Gig Ram NVIDIA Quadro M2200 2x HP E243i
|
erstellt am: 17. Mai. 2011 10:41 <-- editieren / zitieren --> Unities abgeben: Nur für Bud87
Hallo, automatisch gehts nicht, aber du kannst dir verschiedene Makros mit dne voreingestellten Blattformaten anlegen. Code:
'Get the active document and check whether it is a drawing document If Not ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then Exit Sub End If Dim oDrgDoc As DrawingDocument Set oDrgDoc = ThisApplication.ActiveDocument ' Set reference to drawing print manager ' DrawingPrintManager has more options than PrintManager ' as it's specific to drawing document Dim oDrgPrintMgr As DrawingPrintManager Set oDrgPrintMgr = oDrgDoc.PrintManager '---------------------------------------------------------------------------------- ' Set the printer name ' comment this line to use default printer or assign another one '---------------------------------------------------------------------------------- ' oDrgPrintMgr.Printer = "Kyocera Mita KM-1650 KX" '---------------------------------------------------------------------------------- ' Set the printers ColorMode '---------------------------------------------------------------------------------- ' kPrintColorPalette Print using color ' kPrintDefaultColorMode Default setting for color mode ' kPrintGrayScale Print using a gray scale '---------------------------------------------------------------------------------- oDrgPrintMgr.ColorMode = kPrintDefaultColorMode '---------------------------------------------------------------------------------- ' Set the printers scale-mode '---------------------------------------------------------------------------------- ' kPrintBestFitScale Print using a best-fit scale for the Drawing ' kPrintCurrentWindow Print the contents of the window as-is ' kPrintCustomScale Print usign the custom scale specified elsewhere ' kPrintFullScale Print using full scale of the Drawing '---------------------------------------------------------------------------------- oDrgPrintMgr.ScaleMode = kPrintBestFitScale '---------------------------------------------------------------------------------- ' Gets/Sets the scale of the print. ' Meaningless when the ScaleMode is not kPrintCustomScale ' ' if you need to plot as drawing as 1/4 scale, this property should be set to 0.25. ' If you need to plot at twice the scale this property should be set to 2. ' If the paper is smaller than the specified sheet size, a portion of the sheet will not print. ' '---------------------------------------------------------------------------------- Dim dScale As Double dScale = 1 oDrgPrintMgr.[Scale] = dScale '---------------------------------------------------------------------------------- ' Set the paper size. '---------------------------------------------------------------------------------- ' kPaperSize10x14 ' kPaperSize11x17 ' kPaperSizeA2 ' kPaperSizeA3 ' kPaperSizeA4 ' kPaperSizeA4Small ' kPaperSizeA5 ' kPaperSizeB4 ' kPaperSizeB5 ' kPaperSizeCSheet ' kPaperSizeCustom ' kPaperSizeDefault ' kPaperSizeDSheet ' kPaperSizeESheet ' kPaperSizeExecutive ' kPaperSizeFolio ' kPaperSizeLedger ' kPaperSizeLegal ' kPaperSizeLetter ' kPaperSizeQuarto '---------------------------------------------------------------------------------- oDrgPrintMgr.PaperSize = kPaperSizeA3 '---------------------------------------------------------------------------------- ' Change the paper size to a custom size. The units are in centimeters. ' only valid if PaperSize is set to custom size '---------------------------------------------------------------------------------- oDrgPrintMgr.PaperHeight = 15 oDrgPrintMgr.PaperWidth = 10 '---------------------------------------------------------------------------------- ' Set the orientation '---------------------------------------------------------------------------------- ' kDefaultOrientation ' kLandscapeOrientation ' kPortraitOrientation '---------------------------------------------------------------------------------- oDrgPrintMgr.Orientation = kLandscapeOrientation '---------------------------------------------------------------------------------- ' 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 '---------------------------------------------------------------------------------- ' Read-write property that gets and sets which sheets to print. ' ' kPrintCurrentSheet the active sheet will be printed. ' kPrintAllSheets all sheets will be printed. ' kPrintSheetRange the sheets defined using SetSheetRange will be printed. ' '---------------------------------------------------------------------------------- oDrgPrintMgr.PrintRange = kPrintAllSheets '---------------------------------------------------------------------------------- ' Get and set the current sheet range. '---------------------------------------------------------------------------------- ' Dim iFromSheet As Long ' Dim iToSheet As Long ' Call oDrgPrintMgr.GetSheetRange(iFromSheet, iToSheet) ' MsgBox "Current sheet range is " & iFromSheet & " to " & iToSheet & Chr(13) & _ "Setting to print sheets 1-2." '---------------------------------------------------------------------------------- ' Change the print range to print sheets 1 through 2. '---------------------------------------------------------------------------------- ' oDrgPrintMgr.PrintRange = kPrintSheetRange ' Call oDrgPrintMgr.SetSheetRange(1, 2) ' Change the number of copies to 1. Dim iNumberOfCopies As Long iNumberOfCopies = 1 oDrgPrintMgr.NumberOfCopies = iNumberOfCopies ' Submit the print. oDrgPrintMgr.SubmitPrint
------------------ Gruß, Gandhi It's not a bug, it's a feature! CAD-RPG - Anleitungen IVNGWC Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Harry G. Ehrenmitglied V.I.P. h.c. one-man-show
Beiträge: 4585 Registriert: 24.01.2003 PDSP2014.1.3; W7.1-64 E3-1240, 16 GB Quadro K2000
|
erstellt am: 17. Mai. 2011 14:03 <-- editieren / zitieren --> Unities abgeben: Nur für Bud87
|
SEHER Mitglied Systemanalytiker
Beiträge: 1203 Registriert: 13.03.2001 Inventor 2 bis 2022 häufig wechselnder Rechnerverkehr
|
erstellt am: 18. Mai. 2011 17:21 <-- editieren / zitieren --> Unities abgeben: Nur für Bud87
|