🚀 go-pugleaf

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" ;-)

-- 
Pozdrowienia
BraZby
www.faq.accdb.pl
www.accdb.pl