Tisk na různé tiskárny
Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: Inventor
Popis fóra: Otázky k programům Autodesk Inventor Professional, Product Design & Manufacturing Collection, Factory Design; digitální prototypy
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=7295
Datum vytištění: 26.čvc.2026 v 02:05
Téma: Tisk na různé tiskárny
Odeslal: PeťaT
Předmět: Tisk na různé tiskárny
Datum odeslání: 30.zář.2008 v 10:38
|
Dobrý den Už mě přestalo bavit neustále vybírat tiskárnu a nastavovat formát S nějakým echt řešením u nás nikdo nepočítá. Mám makro které umí podle formátu aktuálního sheetu udělat preview (nebo i přímý tisk) správně nastavený (podle přednastastaveného schématu) U plotru nešel nastavit formát tak jsem musel instalovat více ovladačů s různým přednastavením. Public Sub My_PrintDrawing() Dim oPrintMgr As DrawingPrintManager Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager Dim oControlDef As ControlDefinition Select Case ThisApplication.ActiveDocument.Sheets.item(1).Size Case kA4DrawingSheetSize oPrintMgr.Printer = "hp LaserJet 1012" oPrintMgr.ColorMode = kPrintGrayScale oPrintMgr.NumberOfCopies = 1 oPrintMgr.Orientation = kPortraitOrientation oPrintMgr.PaperSize = kPaperSizeA4 oPrintMgr.PrintRange = kPrintCurrentSheet oPrintMgr.ScaleMode = kPrintFullScale Set oControlDef = ThisApplication.CommandManager.ControlDefinitions.item("AppFilePrintPreviewCmd") oControlDef.Execute Case kA3DrawingSheetSize oPrintMgr.Printer = "MP 2000 PCL 6" oPrintMgr.ColorMode = kPrintGrayScale oPrintMgr.NumberOfCopies = 1 oPrintMgr.Orientation = kLandscapeOrientation oPrintMgr.PaperSize = kPaperSizeA3 oPrintMgr.PrintRange = kPrintCurrentSheet oPrintMgr.ScaleMode = kPrintFullScale Set oControlDef = ThisApplication.CommandManager.ControlDefinitions.item("AppFilePrintPreviewCmd") oControlDef.Execute Case kA2DrawingSheetSize oPrintMgr.Printer = "HP 430 A2" oPrintMgr.ColorMode = kPrintGrayScale oPrintMgr.NumberOfCopies = 1 oPrintMgr.Orientation = kLandscapeOrientation oPrintMgr.PaperSize = kPaperSizeDefault oPrintMgr.PrintRange = kPrintCurrentSheet oPrintMgr.ScaleMode = kPrintFullScale Set oControlDef = ThisApplication.CommandManager.ControlDefinitions.item("AppFilePrintPreviewCmd") oControlDef.Execute Case kA1DrawingSheetSize oPrintMgr.Printer = "HP 430 A1" oPrintMgr.ColorMode = kPrintGrayScale oPrintMgr.NumberOfCopies = 1 oPrintMgr.Orientation = kLandscapeOrientation oPrintMgr.PaperSize = kPaperSizeDefault oPrintMgr.PrintRange = kPrintCurrentSheet oPrintMgr.ScaleMode = kPrintFullScale Set oControlDef = ThisApplication.CommandManager.ControlDefinitions.item("AppFilePrintPreviewCmd") oControlDef.Execute Case kA0DrawingSheetSize oPrintMgr.Printer = "HP 430 A0" oPrintMgr.ColorMode = kPrintGrayScale oPrintMgr.NumberOfCopies = 1 oPrintMgr.Orientation = kLandscapeOrientation oPrintMgr.PaperSize = kPaperSizeDefault oPrintMgr.PrintRange = kPrintCurrentSheet oPrintMgr.ScaleMode = kPrintFullScale Set oControlDef = ThisApplication.CommandManager.ControlDefinitions.item("AppFilePrintPreviewCmd") oControlDef.Execute End Select End Sub |
Odpovědi:
Odeslal: Charlee
Datum odeslání: 30.zář.2008 v 11:21
Perfektní  Mám něco podobného ale v menším  ------------- Včera jsem byl chytrý, proto jsem chtěl změnit svět. Dnes jsem moudrý, proto měním sám sebe. |
Odeslal: Seiner
Datum odeslání: 30.zář.2008 v 12:36
|
Používám také něco podobného, napsáno kdysi v Lispu:
- měřítko zjistí z měřítka razítka,
- podle výstupního formátu vybere tiskárnu (A4/3 nebo Plotter),
- umožňuje tisk zmenšených listů,
- je upraveno pro použití v script souborech pro tisk např. celé zakázky
- výstup volitelně na plotter, do plt nebo dwf souboru.
Kdyby to někoho zajímalo...
http://www.cadforum.cz/forum/uploads/20080930_123514_Tiskni8.zip - uploads/20080930_123514_Tiskni8.zip ------------- Vítězslav Seiner Chrudim |