Tisk makrem
Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: iLogic a ETO
Popis fóra: Funkce a makra iLogic, Inventor Engineering to Order (ETO), automatizace a konfigurace výrobků
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=27929
Datum vytištění: 09.kvě.2026 v 09:19
Téma: Tisk makrem
Odeslal: PopelkaM
Předmět: Tisk makrem
Datum odeslání: 02.lis.2018 v 06:19
Dobrý den,
chtěl bych do makra přidat řádek, tak abych u tisku formátu A2 výbral roli na plotru
Oce TDS300 číslo 2 kde je příslušný papír.
Makro přikládám níže.
Přidaný řádek je tučně ,ale nefunguje mi to.
Nemáte někdo s tím zkušennosti?
Děkuji za snahu Popelka
--------------------------------------------------------------------------------------------------------
Public Sub Tisk_2()
Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument
If oDoc.DocumentType <> kDrawingDocumentObject Then
Set oDoc = Nothing
Exit Sub
End If
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
Dim oPrintMgr As DrawingPrintManager
Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager
Dim oControlDef As ControlDefinition
Select Case oDrawDoc.ActiveSheet.Size
Case kA2DrawingSheetSize
oPrintMgr.Printer = "\\ivczvys50vaie10\CZVYS50P-811"
oPrintMgr.AllColorsAsBlack = True
oPrintMgr.NumberOfCopies = 1
oPrintMgr.Orientation = kLandscapeOrientation
oPrintMgr.PaperSize = kPaperSizeA2
oPrintMgr.PaperSource = 2
oPrintMgr.PrintRange = kPrintCurrentSheet
oPrintMgr.ScaleMode = kPrintFullScale
Set oControlDef = ThisApplication.CommandManager.ControlDefinitions.Item("AppFilePrintPreviewCmd")
oControlDef.Execute
End Select
Set oDoc = Nothing
Set oDrawDoc = Nothing
Set oPrintMgr = Nothing
End Sub
|
|