CAD Fórum : Tisk r�zn�ch form�t� .....

Tisk r�zn�ch form�t� ..... : Makro na tisk máme u nás ve firmě...

Tue, 10 Jan 2012 21:20:00 +0000

Autor: maiklss
P�edm�t: 14211
Zasl�no: 10.led.2012 v 21:20

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

V iforma�nim syst�mu ur��m jednou form�t u ka�d�ho v�kresu a p��t� u� jen vyb�r�m soubory kter� se mi roze�lou do slo�ek s n�zvama form�tu a pomoc� vytvo�en� slu�by tisk n�m to samo po�le na tisk�rnu podle form�tu kter� nadefinuju.

Pokud se ti jedn� o tisk dokumentace tak bych i volil t�eba Pl�nova� �loh a tam je hromadn� tisk

Tisk r�zn�ch form�t� ..... : Dobrý den, pokud by jste používal...

Thu, 05 Jan 2012 08:00:09 +0000

Autor: hoboj
P�edm�t: 14211
Zasl�no: 05.led.2012 v 08:00

Dobr� den, pokud by jste pou��val jen funkci tisk (ctrl+p) potom se V�m vytiskne v�kres na pap�r, kter� m�te nastaven v nastaven� tisku.

Vhodn� je pou��vat stejn� form�ty, kter� tisknout najednou a potom dal��, kde bude sta�it jen jedna zm�na form�tu na jin� a potom se vytiskne dal��ch t�eba 100.

Dobr� je pou��vat makro, ale nejlep�� je pou��vat p��mo od Autodesku Multi sheet plot, kde si jednou nastav�te tisk�rnu a potom u� jen vyberete v�kresy stejn�ho form�tu, kter� tisknout a je to rychlej�� i ne� makro. Z�le��, jak m�te ulo�en� v�kresy a pokud z nich jde na prvn� pohled vy��st form�t v�kresu.

A potom nemus�te �e�it, jak p�ete, �e je to otravn�. V�hoda maker v tomto p��pad� je kdy� nem��ete vy��st p��mo ze souboru, jak� je to typ form�tu.

�lo by tak� vytvo�it makro, ve kter�m si vyberete cestu v�kres� a potom jen nastavit makro, aby se rozd�lovaly form�ty v�kres� na r�zn� tisk�rny.

A potom sta�� tisknout o sto �et :-D

P�kn� den.

Tisk r�zn�ch form�t� ..... : Makro vyzkouším, pro pana duska:...

Wed, 04 Jan 2012 14:36:23 +0000

Autor: Lestr
P�edm�t: 14211
Zasl�no: 04.led.2012 v 14:36

Makro vyzkou��m,

pro pana duska: jde mi oto, �e kdy� chci tisknout tak mus�m nastavit na ten form�t jak tabulku tisk�rny, tak tabulku v nastaven�, tedy nastavit v�e dle obr. 01 a� 03

nech�pu pro� to mus� b�t tak divn� ....

T�eba jsem se blb� vyj�d�il ,ale nejv�c mi vad�, �e tisk�rnu m�m nastavenou po��d na form�t A4, kdy� chci tisknout form�t A3 tak mus�m otev��t v menu nastaven� tisku /obr 02/ a nastavit A3, pak d�t teprve tisk a vytiskne mi to A3 ikdy� v nastaven� tisk�rny je po��d to A4, vad� mi ale to zbyte�n� kliknut� na nastaven� tisku a pot� na samotnou ikonu tisku .

Bral bych , kdyby prost� nastaven� form�tu bylo u� p��mo v mo�nostech tisku po kliknut� na samotn� tisk.

Opa�n� mi to toti� nefunguje. Kdy� nastav�m v tisku form�t na A3 a d�m tisk, tak mi to vytiskne na A4 kter� je nastaven� v nastaven� obr 02.

Nev�m jestli jsme to vysv�tlil spr�vn�.

V�m, �e u verze 2010 a nebo i 2011 jsem prost� klikl na ikonu tisku, vybral form�t dle form�tu v�kresu a jen klikl na tisk ......

Nyn� to mus�m slo�it� nastavovat a p�i tisku na to myslet co� mi u��r� �as ..... Ur�it� v tom bude n�jak� volovina v nastaven� ......

Tisk r�zn�ch form�t� ..... : Díky, to je užitečné makro. ...

Wed, 04 Jan 2012 14:23:16 +0000

Autor: VlJanecek
P�edm�t: 14211
Zasl�no: 04.led.2012 v 14:23

D�ky, to je u�ite�n� makro.

Tisk r�zn�ch form�t� ..... : Mám makro na tisk na A3, ale určitě...

Wed, 04 Jan 2012 13:43:19 +0000

Autor: Charlee
P�edm�t: 14211
Zasl�no: 04.led.2012 v 13:43

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

Tisk r�zn�ch form�t� ..... : Myslím, že automaticky to nastavit...

Wed, 04 Jan 2012 13:13:51 +0000

Autor: dusek
P�edm�t: 14211
Zasl�no: 04.led.2012 v 13:13

Mysl�m, �e automaticky to nastavit nep�jde. Jak by pak tisk�rna poznala, �e chcete velk� v�kres tisknout na men��m form�tu? Ale t�eba se m�l�m.

J� tento probl�m �e��m tak, �e si otev�u v�kresy od jednoho form�tu, ty vytisknu, a po vytisknut� v�ech si otev�u form�t dal�� form�t.

Jinak nastavit form�t pro tisk jde u� i po kliknut� na ikonu tisk�rny (obr�zek �.2), po kliknut� na Vlastnosti pak m��ete nastavit form�t pap�ru.

Tisk r�zn�ch form�t� ..... : Dobrý den, prosím o radu. Tisknu...

Wed, 04 Jan 2012 11:36:08 +0000

Autor: Lestr
P�edm�t: 14211
Zasl�no: 04.led.2012 v 11:36

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��.