CAD Fórum : Tisk na různé tiskárny

CAD Fórum : Tisk na různé tiskárny https://www.cadforum.cz/forum/ Tue, 19 May 2026 01:43:11 +0000 Tue, 30 Sep 2008 12:36:28 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=7295 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Tisk na různé tiskárny : Používám také něco podobného,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7295&PID=36131&title=tisk-na-ruzne-tiskarny#36131 Autor: Seiner
Předmět: 7295
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...

uploads/20080930_123514_Tiskni8.zip

]]> Tue, 30 Sep 2008 12:36:28 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7295&PID=36131&title=tisk-na-ruzne-tiskarny#36131 <![CDATA[Tisk na různé tiskárny : Perfektní Mám něco podobného...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7295&PID=36130&title=tisk-na-ruzne-tiskarny#36130 Autor: Charlee
Předmět: 7295
Zasláno: 30.zář.2008 v 11:21

Perfektní

Mám něco podobného ale v menším

]]> Tue, 30 Sep 2008 11:21:10 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7295&PID=36130&title=tisk-na-ruzne-tiskarny#36130 <![CDATA[Tisk na různé tiskárny : Dobrý denUž mě přestalo bavit...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7295&PID=36128&title=tisk-na-ruzne-tiskarny#36128 Autor: PeťaT
Předmět: 7295
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

]]> Tue, 30 Sep 2008 10:38:11 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7295&PID=36128&title=tisk-na-ruzne-tiskarny#36128