🚀 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