Access vs Pdf creator

[Sanders69]

Een opdrachtgever werkt pdf creator opeens niet meer.
Het was een oude pdf creator, namelijk: pdf creator1.7.3
Pdf creator gebruiken ze in MS access om losse pdf's te bundelen.
Het hoef niet perse pdf creator te zijn en kan ook een andere programma zijn om pdf bestanden in één pdf te bundelen.
Hebben jullie een ervaring en een advies wat ik het beste kan gebruiken?
Liefst met een linkje waar ik de syntaxis kan kopieren.

 

[route99]

?
Kun je toch gewoon bij hen zelf vinden lijkt me?
https://docs.pdfforge.org/pdfcreator/en/pdfcreator/using-pdfcreator/command-line-parameters/

MergeFilesMerges multiple PS or PDF files and add them to the PDFCreator queue. This call will fail with an exit code for other formats, as they can’t be processed directly.
You can use this in combination with other parameters, e.g. /Profile and /OutputFile.
The original file name and directory will be available in the Tokens <InputFilename> and <InputFilepath>.
Example:

pdfcreator-cli.exe MergeFiles /Profile=HighQualityGuid /OutputFile="C:\test-converted.pdf" "C:\file 1.pdf" "C:\file 2.ps"

 

[NoellaG]

nieuwe versie gratis downloaden: https://www.nchsoftware.com/pdfprinter/index.html?kw=pdf%20creator&msclkid=c4426063dacb1c895ac5027dcad27bc1&utm_source=bing&utm_medium=cpc&utm_campaign=EN-C2&utm_term=pdf%20creator&utm_content=Bolt%20-%20PDF%20Maker

 

[Sanders69]

Onderstaande syntaxis werkt wanneer je PDFCreator-4_4_1-Setup.exe installeert en via MS Access in je referenties deze aanvinkt.
Maak een formulier aan met 5 tekstvakken en noem ze Tekst1 t/m Tekst5 en zorg dat je 5 pdf bestanden hebt zoals ik hieronder genoemd heb.
Maak een knop aan genaamd: Knop0 en run onderstaande syntaxis dan moet het werken.

Option Compare Database

Dim objPdf As PDFCreator_COM.PdfCreatorObj
Dim objQue As PDFCreator_COM.Queue
Dim objPjb As PDFCreator_COM.PrintJob
Dim strFiles() As String
Dim intFiles As Integer
Const sMergedPDFname = "C:\test.pdf"

Private Sub Form_Load()
    
    Me.Tekst1 = "C:\1.pdf"
    Me.Tekst2 = "C:\2.pdf"
    Me.Tekst3 = "C:\3.pdf"
    Me.Tekst4 = "C:\4.pdf"
    Me.Tekst5 = "C:\5.pdf"
    
End Sub

Private Sub Knop0_Click()
ReDim strFiles(5) As String

    intFiles = 0
    For i = 1 To 5
        If Dir(Me.Form("Tekst" & i)) <> "" Then
            intFiles = intFiles + 1
            strFiles(intFiles) = Me.Form("Tekst" & i)
        End If
    Next i
    
    If intFiles > 0 Then
        Call PDFCreatorCombine
    End If
    
End Sub

 

[Sanders69]

En NoellaG en Route99 nog bedankt voor de adviezen!

 

[AccessGuru]

Nu nog wat slimmer leren programmeren, en je komt een heel eind

Private Sub Form_Load()
    
    For i = 1 To 5
        Me.Form("Tekst" & i) = "C:\" & i & ".pdf"
    Next i
    
End Sub

Private Sub Knop0_Click()
Dim strFiles() As String
Dim x As Integer
    
    For i = 1 To 5
        If Dir(Me.Form("Tekst" & i)) <> "" Then
            x = x + 1
            ReDim Preserve strFiles(x)
            strFiles(x) = Me.Form("Tekst" & i)
        End If
    Next i
    If UBound(strFiles) > LBound(strFiles) Then PDFCreatorCombine
    
End Sub

Waarbij ik er vanuit ga dat je Option Base 1 gebruikt. Zo niet, dan moet je twee regels omdraaien:

            ReDim Preserve strFiles(x)
            x = x + 1

Een array moet je pas groter maken als dat nodig is. Zeker in het geval van variabele gegevens die je in wilt laden.

 

[Sanders69]

Haha helemaal gelijk!
Ik ben heel praktisch en werk gewoon met de riemen die ik heb.
ReDim Preserve strFiles(x) vind ik zkr handig, de rest wist ik wel maar even snel in elkaar zetten.
Je weet toch....