ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
Přes 123.000 registrovaných u nás, celkem 1.129.000 registrovaných (CZ+EN). Tipy pro AutoCAD 2027, pro Inventor 2027 a pro Revit 2027. Nový Kalkulátor nosníků, Spirograf generátor a Regresní křivky v sekci Převodníky. Kompletní příkazy a proměnné AutoCADu 2027.
Konference CADfórum 2026 - automatizace navrhování
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

?
CAD 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, 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 emea.support.arkance.world
  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ů: 281
 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 9798:VIPiLogic pravidlo pro automatické směrování tisku (formát/tiskárna).
Tip 9476:Ukládání DWG kopie IDW výkresu pojmenované podle revize.


 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,336 sekund.
CADfórum
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 © 2026 | Web reklama na tomto serveru | Ochrana soukromí, podmínky
ARKANCE (CAD Studio) - Autodesk Platinum Partner & Training Center & Services Partner
KONTAKT:
webmaster.cz@arkance.world | tel. +420 910 970 111
FB LN TW YT TW Blog RSS
.
TOPlist
img