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