Dobrý den,

prosím o radu. Tisknu výkresy ve formátu A4 a A3 . Při každém tisknutí musím - nejprve kliknout na menu viz. příloha 01, vyskočí mi okno viz. příloha 02 a v této tabulce nastavím formát výkresu dle výkresu. Když toto neudělám a tisknu přímo přes příkaz viz. příloha 03 a mám za sebou rozdílné formáty A3 a A4 vytisknou se mi všechny na formát nastavený dle okna příloha 02. Jde nějak nastavit abych mohl použít jen příkaz 03 a tiskárna si brala formát automaticky z výkresu ??? Když mám totiž více výkresů otevřených a musím pokaždé překlikávat a měnit formáty, tak je tento postup značně zdlouhavý .

Děkuji za odpověď.

Připojené náhledy

Připojené náhledy

Mám makro na tisk na A3, ale určitě pújde upravit aby nejdřív zjistil formát a podle toho vytiskl. Dělal jsem ho asi ve verzi 2009 či 2010 ale furt mi funguje i ve 2012. Nevím jak se zobrazí speciální znaky, ale jak se mi zadaří, přepíšu ho na blog.

Public Sub TiskA3()

'Print all sheets in drawing document
'Get the active document and check whether it's drawing document
On Error Resume Next
If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
If Err.Number = 91 Then
MsgBox "Musí být otevřen výkres"
Exit Sub
End If

Dim oDrgDoc As DrawingDocument
Set oDrgDoc = ThisApplication.ActiveDocument
' Set reference to drawing print manager
' DrawingPrintManager has more options than PrintManager
' as it's specific to drawing document
Dim oDrgPrintMgr As DrawingPrintManager
Set oDrgPrintMgr = oDrgDoc.PrintManager
Dim JmenoAktualnihoListu As String
Dim JmenaListu As String
Dim PocetListu As Long
PocetListu = oDrgDoc.Sheets.Count
Dim ListyKTisku As Boolean
ListyKTisku = False

' Set the printer name
' comment this line to use default printer or assign another one
oDrgPrintMgr.Printer = "\\VFS01\Canon iR3025 PCL55"
'Nastavení měřítka, papíru, které listy, orientace listu, všechno černě
oDrgPrintMgr.ScaleMode = kPrintFullScale
oDrgPrintMgr.PaperSize = kPaperSizeA3
oDrgPrintMgr.PrintRange = kPrintCurrentSheet
oDrgPrintMgr.Orientation = kPortraitOrientation
oDrgPrintMgr.AllColorsAsBlack = True
' Change the number of copies to 1.
oDrgPrintMgr.NumberOfCopies = 1
JmenoAktualnihoListu = oDrgDoc.ActiveSheet.Name
Dim CisloAktivnihoListu As Long
Dim i As Variant
'Zjištění čísla aktivního listu
For i = 1 To PocetListu
JmenaListu = oDrgDoc.Sheets.Item(i).Name
If JmenoAktualnihoListu = JmenaListu Then
CisloAktivnihoListu = i
End If
Next
' Zjištění velikosti aktivního listu
Dim VelikostListu As String
Select Case oDrgDoc.ActiveSheet.Size
Case kA0DrawingSheetSize
VelikostListu = "A0"
Case kA1DrawingSheetSize
VelikostListu = "A1"
Case kA2DrawingSheetSize
VelikostListu = "A2"
Case kA3DrawingSheetSize
VelikostListu = "A3"
Case kA4DrawingSheetSize
VelikostListu = "A4"
Case Else
VelikostListu = "nestandartní"
End Select
' Zjištění natočení listu a případná změna
Dim OtoceniListu As String
If oDrgDoc.ActiveSheet.Orientation = kPortraitPageOrientation Then
oDrgPrintMgr.Rotate90Degrees = 0
OtoceniListu = "na výšku"
Else
oDrgPrintMgr.Rotate90Degrees = 1
OtoceniListu = "na šířku"
End If
'Ověření údajá a jestli oraavdu tisknout
If MsgBox("Tisknout aktuální list číslo " & CisloAktivnihoListu & Chr(13) & _
"(" & JmenoAktualnihoListu & ", " & VelikostListu & ", " & OtoceniListu & ", " & " ze " & PocetListu & " listů)" & Chr(13) & _
"na tiskárnu " & oDrgPrintMgr.Printer & Chr(13) & "na A3, 1 : 1, na výšku?", vbYesNo + vbQuestion) = vbYes Then
oDrgPrintMgr.SubmitPrint
End If
'Když dokument není výkres
Else
MsgBox "Lze tisknout jen výkresy"
End If
End Sub

Makro vyzkouším,

Makro na tisk máme u nás ve firmě a tisk dokumentace a nemá to  chybu.