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