🚀 go-pugleaf

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):
>>
>
>
> [...]
>
>> Mam jeszcze jedn± pro¶bê.
>>
>> Sci±gn±³em z sieci procedure do drukowania raportów z Akcesa 2003 do PDF,
>> za pomoc± 'PDF Creatora'.
>>
>> Oto ona:
>>
>> Sub DrukujPDF2(Raport As String, Sc As String, Plik As String)
>> 'Author       : Ken Puls ( www.excelguru.ca)
>> 'Macro Purpose: Print to PDF file using PDFCreator
>> '   (Download from http://sourceforge.net/projects/pdfcreator/ )
>> '   Designed for early bind, set reference to PDFCreator
>
> [...]
>
>> 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.

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