🚀 go-pugleaf

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.

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