🚀 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