CAD Fórum : Tisk pomocí VBA https://www.cadforum.cz/forum/ Fri, 15 May 2026 04:46:17 +0000 Thu, 25 Nov 2010 10:09:28 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=11651 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Tisk pomocí VBA : sorry, budu uprimnej. jak potlacit...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=11651&PID=57412&title=tisk-pomoci-vba#57412 Autor: VopluDa
Předmět: 11651
Zasláno: 25.lis.2010 v 10:09

sorry, budu uprimnej. jak potlacit prepinani zalozek, to zajimalo i mne. mam jeste par veci v vba, ktery jeste nemam predelany do lispu a tak sem to pouzil tam. ale jak uz tady bylo receno, vba je mrtvy. neni tedy prinos venovat cas a energii vyvoji cehokoliv noveho v vba, natoz ladit neco k dokonalosti.]]> Thu, 25 Nov 2010 10:09:28 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=11651&PID=57412&title=tisk-pomoci-vba#57412 <![CDATA[Tisk pomocí VBA : Výborné, pomohlo to na přeskakování...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=11651&PID=57400&title=tisk-pomoci-vba#57400 Autor: paveku
Předmět: 11651
Zasláno: 24.lis.2010 v 17:55

Výborné, pomohlo to na přeskakování listů. Teď už jen problikává okno "Postup vykreslování". Šlo by i to potlačit?]]> Wed, 24 Nov 2010 17:55:16 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=11651&PID=57400&title=tisk-pomoci-vba#57400 <![CDATA[Tisk pomocí VBA : prubni tohle: Private Declare...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=11651&PID=57388&title=tisk-pomoci-vba#57388 Autor: VopluDa
Předmět: 11651
Zasláno: 24.lis.2010 v 13:52

prubni tohle:

 
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hWndLock As Long) As Long

Sub SetLayoutsToPlot()
   
    Dim oPlot As AcadPlot
    Dim AddedLayouts() As String
    Dim LayoutList As Variant
    Dim oLayout As AcadLayout
    Dim ArraySize As Integer, BatchCount As Integer
    Dim MyValue
    Dim Style, Title
 
    Style = vbYesNoCancel + vbQuestion + vbDefaultButton2
    Title = "A co dál?"
       
       
    For Each oLayout In ThisDrawing.Layouts
    ArraySize = ArraySize + 1
    ReDim Preserve AddedLayouts(1 To ArraySize)
    MyValue = MsgBox("      Vytisknout " & oLayout.Name & " ?", Style, Title)
            If MyValue = vbYes Then
                                AddedLayouts(ArraySize) = oLayout.Name
              ElseIf MyValue = vbCancel Then
                                GoTo Line1
            End If
   
    Next
   
    LockWindowUpdate (ThisDrawing.hWnd)
   
   
    LayoutList = AddedLayouts
    Set oPlot = ThisDrawing.Plot
    oPlot.SetLayoutsToPlot LayoutList
    oPlot.PlotToDevice

    LockWindowUpdate (0)

Line1:
    ThisDrawing.ActiveSpace = acModelSpace

End Sub
 
 
ale na rychlosti to neprida jako u excelu "ScreenUpdating = False"   Wink
]]> Wed, 24 Nov 2010 13:52:27 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=11651&PID=57388&title=tisk-pomoci-vba#57388 <![CDATA[Tisk pomocí VBA : Nevíte někdo, jak odstranit to...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=11651&PID=57357&title=tisk-pomoci-vba#57357 Autor: paveku
Předmět: 11651
Zasláno: 23.lis.2010 v 17:10

Nevíte někdo, jak odstranit to blikání a přepínání záložek při tisku?

Už mě to docela začíná otravovat. Jinak to maká perfektně.


]]> Tue, 23 Nov 2010 17:10:27 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=11651&PID=57357&title=tisk-pomoci-vba#57357 <![CDATA[Tisk pomocí VBA : zkousel sem to a neblika mi to,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=11651&PID=57146&title=tisk-pomoci-vba#57146 Autor: VopluDa
Předmět: 11651
Zasláno: 11.lis.2010 v 08:40

zkousel sem to a neblika mi to, zalozky se mi pri vyberu neprepinaji. si ale myslim, ze to je nastavenim nejaky promenny Cadu, na kterou si moje potvora hlava mapa duta prave nechce vzpomenout
 
este sem si s  tim pak malinko hral, spis jen kosmeticky:
 
Sub SetLayoutsToPlot()
   
    Dim oPlot As AcadPlot
    Dim AddedLayouts() As String
    Dim LayoutList As Variant
    Dim oLayout As AcadLayout
    Dim ArraySize As Integer, BatchCount As Integer
    Dim MyValue
    Dim Style, Title
   
    Style = vbYesNoCancel + vbQuestion + vbDefaultButton2
    Title = "A co dál?"
       
    For Each oLayout In ThisDrawing.Layouts
    ArraySize = ArraySize + 1
    ReDim Preserve AddedLayouts(1 To ArraySize)
    MyValue = MsgBox("      Vytisknout " & oLayout.Name & " ?", Style, Title)
            If MyValue = vbYes Then
                                AddedLayouts(ArraySize) = oLayout.Name
              ElseIf MyValue = vbCancel Then
                                GoTo Line1
            End If
    Next
   
    LayoutList = AddedLayouts
    Set oPlot = ThisDrawing.Plot
    oPlot.SetLayoutsToPlot LayoutList
    oPlot.PlotToDevice
 
Line1:
    ThisDrawing.ActiveSpace = acModelSpace
 
End Sub
]]> Thu, 11 Nov 2010 08:40:37 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=11651&PID=57146&title=tisk-pomoci-vba#57146 <![CDATA[Tisk pomocí VBA : Ještě se vracím k tomuto tematu....]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=11651&PID=57130&title=tisk-pomoci-vba#57130 Autor: paveku
Předmět: 11651
Zasláno: 10.lis.2010 v 18:24

Ještě se vracím k tomuto tematu. Vše funguje jak má, ale otravuje mě blikání při přepínání mezi jednotlivými záložkami. Lze to potlačit, něco jako tisk na pozadí. Něco jako v excelu "ScreenUpdating = False" ?]]> Wed, 10 Nov 2010 18:24:32 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=11651&PID=57130&title=tisk-pomoci-vba#57130 <![CDATA[Tisk pomocí VBA : Super, díky moc, již to funguje....]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=11651&PID=56576&title=tisk-pomoci-vba#56576 Autor: paveku
Předmět: 11651
Zasláno: 15.říj.2010 v 16:29

Super, díky moc, již to funguje. Teď jdu hledat, kde jsem dělal chybu


]]> Fri, 15 Oct 2010 16:29:19 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=11651&PID=56576&title=tisk-pomoci-vba#56576 <![CDATA[Tisk pomocí VBA : a co tohle: Sub SetLayoutsToPlot()...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=11651&PID=56564&title=tisk-pomoci-vba#56564 Autor: VopluDa
Předmět: 11651
Zasláno: 15.říj.2010 v 11:04

a co tohle:
 
Sub SetLayoutsToPlot()
   
    Dim oPlot As AcadPlot
    Dim AddedLayouts() As String
    Dim LayoutList As Variant
    Dim oLayout As AcadLayout
    Dim ArraySize As Integer, BatchCount As Integer
    Dim retVal As String
    Dim MyValue
       
    For Each oLayout In ThisDrawing.Layouts
        ArraySize = ArraySize + 1
        ReDim Preserve AddedLayouts(1 To ArraySize)
        MyValue = InputBox("Vytisknout A/N?", oLayout.Name, "A")
            If MyValue = "A" Or MyValue = "a" Then AddedLayouts(ArraySize) = oLayout.Name
    Next
    LayoutList = AddedLayouts
    Set oPlot = ThisDrawing.Plot
    oPlot.SetLayoutsToPlot LayoutList
    oPlot.PlotToDevice
End Sub
 
je to silne surovy bez ladu a skladu s minimem casu tomu a jen pro inspiraci  Wink
]]> Fri, 15 Oct 2010 11:04:04 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=11651&PID=56564&title=tisk-pomoci-vba#56564 <![CDATA[Tisk pomocí VBA : jj, všechno chápu, znám trochu...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=11651&PID=56553&title=tisk-pomoci-vba#56553 Autor: paveku
Předmět: 11651
Zasláno: 15.říj.2010 v 06:42

jj, všechno chápu, znám trochu VBA z Excelu ,a nic jiného. Potřebuji jen vyřeštit problém toho tisku, protože to chci spouštět z excelu.

POMŮŽE NĚKDO ? ? ?
===============
]]> Fri, 15 Oct 2010 06:42:06 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=11651&PID=56553&title=tisk-pomoci-vba#56553 <![CDATA[Tisk pomocí VBA : To se mi moc nezdá ... jste si...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=11651&PID=56535&title=tisk-pomoci-vba#56535 Autor: Martin Bielina
Předmět: 11651
Zasláno: 14.říj.2010 v 13:42

[/QUOTE]

To se mi moc nezdá ... jste si tím jistý?

Pavel Štyl

[/QUOTE]

Ano, u VBA jsem si tím jistý. Next i na konci cyklu vždy přičte k ihodnotu kroku, a to i v případě, kdy se jedná o "poslední kolo"cyklu. Není přece nic jednoduššího, než si to vyzkoušet na jednoduchém případukdy v cyklu For budete mít jen výpis hodnoty i a pak poskončení cyklu ještě jednou provedete výpis hodnoty i.

Obzvlášť nebezpečný je případ, kdy se i deklaruje jakonapř. typ INTEGER a jeho horní mez je počtem cyklů právě (přesně) dosažena,protože po skončení cyklu dojde k "poslednímu přičtení" a tím i kpřetečení proměnné.

A omlouvám se, že původní dotaz na řešení problému se i mojí vinou poněkud zvrnul v nežádoucí diskuzi jak co funfuje. VBA je mrtev, v Autocadu bych se už s jeho existencí vůbec nezabýval. Je jen otázkou času, kdy zmizí zcela.

]]> Thu, 14 Oct 2010 13:42:05 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=11651&PID=56535&title=tisk-pomoci-vba#56535