CAD FÓRUM - TIPY A TRIKY | UTILITY | DISKUZE | BLOKY | PODPORA | POMOC A RADY
Registrujte se na 22. ročník konference CADfórum 2025 - 30.9. Zámek Valeč.
Přes 119.000 registrovaných u nás, celkem 1.099.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků.
Vyzkoušejte nový přesný Inženýrský kalkulátor a aktualizovaný Generátor čarových kódů.
AUTOCAD
INVENTOR
REVIT
CIVIL 3D
FUSION
Diskuzní fórum, poradna
?CAD diskuze, rady, výměna zkušeností
Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion, 3ds Max, Vault a s dalšími CAD/BIM/PDM aplikacemi.
Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.
Fórum nenahrazuje technický support firmy ARKANCE (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.cz
|
Tisk na různé tiskárny
Odpovědět 
|
archiv |
| Autor | |
Seiner 
CAD/BIM manager 
Přihlášen: 01.říj.2004 Lokalita: ČR (PA) Používám: Mechanical 2017, Inventor 2017 a starší Stav: Offline Bodů: 1662 |
 Téma: Tisk na různé tiskárnyZasláno: 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...
|
|
|
Vítězslav Seiner
Chrudim |
|
 |
|
|
Charlee
TOP uživatel
Přihlášen: 11.dub.2006 Lokalita: ČR (ZL) Používám: Inventor, Vault, Mechanical a další ver.2021 Stav: Offline Bodů: 280 |
Zasláno: 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.
|
|
|
|
|
PeťaT
Profil člena
Odeslat soukromou zprávu
Najít příspěvky člena
Navštívit stránky člena
Přidat do seznamu známých
Diskutér 
Přihlášen: 17.čer.2008 Lokalita: ČR (OL) Používám: Inventor 2008, Logocad Triga Stav: Offline Bodů: 27 |
Zasláno: 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 |
|
|
|
Možnosti tématuPro technickou podporu CAD
kontaktujte Helpdesk
|
Odpovědět
|
|
| Přejít na fórum | Oprávnění fóra Nemůžete vytvářet nová témata v tomto fóru Nemůžete odpovídat na témata v tomto fóru Nemůžete vymazávat vaše příspěvky v tomto fóru Nemůžete upravovat vaše příspěvky v tomto fóru Nemůžete vytvářet ankety v tomto fóru Nemůžete hlasovat v anketách v tomto fóru |
Stránka byla vygenerována za 0,414 sekund.
CADfórum
Tipy, triky, podpora, pomoc a rady pro AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion, Forma, Vault, PowerMill a další Autodesk aplikace (support firmy ARKANCE). Viz O portálu.
Copyright © 2025 | Web reklama na tomto serveru | Ochrana soukromí, podmínky
