Jen bych trošku poopravil, jestli můžu. 

Mohlo by se Vám stát, že to tiskne špatně, záleží také hodně na tiskárně a vyzkoušet to, jak se to chová. 

viz. 

oPrintMgr.ColorMode bych změnil na oPrintMgr.AllColorsAsBlack = True

oPrintMgr.PrintRange= bych zvolil kPrintAllSheets

oPrintMgr.ScaleMode= kPrintBestFitScale by bylo možná příhodnější, ale záleží opravdu, jak se to chová. 

Jinak makra se nikde nenaučíte, pouze se dá naučit jazyk VBA, který je dost těžký pro amatéry, kteří neví o čem je řeč. Je to programování. 

Sám mám pár maker, které sem po úpravě přidám ;)

 

 

makro je :

 

Public Sub TiskA3A4()

    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 kA4DrawingSheetSize
        oPrintMgr.Printer = "NÁZEV VAŠÍ TISKÁRNY"
        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 = "NÁZEV VAŠÍ TISKÁRNY"
        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

    End Select
   
    Set oDoc = Nothing
    Set oDrawDoc = Nothing
    Set oPrintMgr = Nothing
End Sub

 

 

Kód vložte do editoru VBA pod ikonkou Makra v možnostech Inventoru.

Makra jsou pak uložená v souboru Bin s koncovkou .bas

 

 

Pomineme-li vyšší programování (.Net, C++), pak v Inventoru může každý pokročilejší uživatel využít dva druhy maker - VBA makra a makra iLogic. Nějaký konkrétní návod (zejména u VBA) ale nehledejte, jsou to nástroje pro programování, takže je k dispozici popis API a řada ukázek/příkladů.

přes 6let, ale makra jsem do teď nepotřeboval.

Poslední dobou slyším ohledně nastavení a ulehčení práce v Inventoru možnost použití maker. Jaká , pro zjednodušení práce v Inventoru, používáte a je možnost je poskytnout i dalším ????

 

Já osobně dle doporučení využívám Makra na tisk formátu A3 A4 a v případě zájmu ho sem dám .

Přidal by se někdo další  ???....