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