https://www.cadforum.cz/forum/ Wed, 06 May 2026 22:57:34 +0000 Fri, 02 Nov 2018 06:19:33 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=27929 https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ https://www.cadforum.cz/forum/forum_posts.asp?TID=27929&PID=114401&title=tisk-makrem#114401 Autor: PopelkaM
Předmět: 27929
Zasláno: 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

]]> Fri, 02 Nov 2018 06:19:33 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=27929&PID=114401&title=tisk-makrem#114401