🚀 go-pugleaf

Dnia Mon, 14 May 2018 23:21:24 +0200, Zbigniew Bratko napisa³(a):

> W dniu 2018-05-14 o 11:46, Jacek pisze:
>> Dnia Mon, 14 May 2018 10:00:04 +0200, Zbigniew Bratko napisa³(a):
>>
>>> W dniu 2018-05-11 o 15:06, Jacek pisze:
>>>> Dnia Tue, 24 Apr 2018 18:21:16 +0200, Zbigniew Bratko napisa³(a):
>>
>>> [...]
>>>
>>>> End Sub
>>>>
>>>> Potrzebujê j± tak przerobiæ, ¿eby móc wywo³aæ wiele razy z kolejnymi
>>>> raportami.
>>>> Pomo¿esz, proszê?
>>>
>>> [...]
>>>
>>>
>>> A takie co¶ nie pójdzie ?
>>>
>>> '___________________________________________________________________
>>> Private Sub Polecenie0_Click()
>>>     Dim vArray As Variant
>>>     Dim i As Long
>>>     vArray = Array("nazwaRaportu_1", "C:\tmp\", "Raport_1.pdf", _
>>>                    "nazwaRaportu_2", "C:\tmp\", "Raport_2.pdf", _
>>>                    "nazwaRaportu_3", "C:\tmp\", "Raport_3.pdf")
>>>
>>>     For i = LBound(vArray) To UBound(vArray) Step 3
>>>       Call DrukujPDF2(vArray(i), vArray(i + 1), vArray(i + 2))
>>>     Next
>>>
>>> End Sub
>>>
>>> Sprawd¼, czy w ¶cie¿ce jest potrzebny backslash na koñcu.
>>> Daj znaæ, czy siê uda³o.
>>
>> Hej.
>>
>> No w³a¶nie nie.
>> Trzeba przerobiæ DrukujPDF tak, ¿eby w obiekcie 'pdfjob' metoda
>> .cOption("AutosaveFilename") = sPDFName bangla³a.
>
> [...]
>
> Je¿eli za pomoc± tej procedury da siê wydrukowaæ jeden raport,
> to dlaczego nie da siê wydrukowaæ jednego raportu, a potem za sekundê
> (po zakoñczeniu dzia³ania procedury) drugiego raportu ???
>
> Niestety, nie jestem w stanie Ci pomóc.
> Ja przerabia³em Access 97, 2000, a potem 2007, 2010, 2016.
> Nie wiem jak jest w Access 2003.
>
> W Access 2007 i zapewne w wy¿szych wersjach jest bardziej prosto:
> '_________________________________
> Private Sub Polecenie0_Click()
>      DoCmd.OutputTo acOutputReport, "NazwaRaportu", _
>                    acFormatPDF, "C:\tmp\MojRaport.pdf", True
> End Sub
>
> i wszystko "bangla" ;-)

Uda³o mi siê z banglaniem;)
Okaza³o siê, ¿e zamkniêcie procesu przed inicjalizacj±, dzia³a.

---
Ta wiadomo¶æ zosta³a sprawdzona na obecno¶æ wirusów przez oprogramowanie antywirusowe Avast.
https://www.avast.com/antivirus