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

 

 

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