Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk - od firmy Arkance Systems [www.cadforum.cz]
CZ | SK | EN | DE
Přihlášení
či registrace
   právě nás čte: 7353 
Arkance Systems CZ
FB TW YT LN Blog
PORTÁLY PRODUKTŮ
AutoCAD AutoCAD a LT
Inventor Inventor
Revit Revit
Civil 3D Civil 3D
Fusion 360 Fusion 360
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

 

NápovědaCAD diskuze, rady, výměna zkušeností

 
CAD Fórum - Homepage 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 360, 3ds Max a s dalšími CAD 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 Systems (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.cadstudio.cz
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřenoTisk na různé tiskárny
 Odpovědět Odpovědět archiv
Autor
  Najít Téma Najít Téma  Možnosti tématu Možnosti tématu
PeťaT Zobrazit panel
Diskutér
Diskutér

Přihlášen: 17.čer.2008
Lokalita: ČR (OL)
Používám:
Inventor 2008, Logocad Triga
Stav: Offline
Bodů: 27
 Přímý odkaz na tuto zprávu Téma: Tisk na různé tiskárny
    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
Zpět nahoru
Charlee Zobrazit panel
TOP uživatel
TOP uživatel
Avatar

Přihlášen: 11.dub.2006
Lokalita: ČR (ZL)
Používám:
Inventor, Vault, Mechanical a další ver.2021
Stav: Offline
Bodů: 279
 Přímý odkaz na tuto zprávu 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.
Zpět nahoru
Seiner Zobrazit panel
CAD/BIM manager
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
 Přímý odkaz na tuto zprávu Zaslá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
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 7472:VIPHromadný tisk různých výkresových listů Inventoru do PDF.
Tip 2170:VIPJak vytvořit nástrojový panel s tlačítky pro přímý tisk na různé tiskárny?
Tip 7733:Dávkové publikování téhož výkresu na různé tiskárny.
Tip 10851:iLogic - jak ve výkresu zpracovat materiál a cestu součásti?
Tip 9476:Ukládání DWG kopie IDW výkresu pojmenované podle revize.
Tip 8717:Jak ve výkresu zobrazit těžiště podsestavy?


 Odpovědět Odpovědět

Přejít na fórum Oprávnění fóra Zobrazit panel



Stránka byla vygenerována za 0,762 sekund.
CF
CAD Fórum - tipy, triky, podpora, pomoc a rady pro AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion 360 a další Autodesk aplikace (support firmy Arkance Systems)
ARKANCE (CAD Studio) - Autodesk Platinum Partner & Training Center & Services Partner
KONTAKT:
webmaster.cz@arkance-systems.com
tel. +420 910 970 111
  Copyright ©2024 | Web reklama na tomto serveru | Ochrana soukromí, podmínky
FB TW YT LN Blog
TOPlist
img