Spoolen in Ms-Access/VBA

[BartSr]

Mijn Boekhoudprogramma Boeket wil ik uitbreiden met een spool-functie. Dit als aanvulling op het aanmaken van pdf-bestanden middels DoCmd.OutputTo

Voor het vinden van de af te drukken pdf-bestanden gebruik ik Filedialog. Ik heb dus de namen, compleet met drive en map-benaming.
Voorbeeld: C:\Boeket\Data\15-05-06-RecCrtPrint10023.pdf
Maar hoe bereik ik nu dat deze bestanden vanuit VBA worden afgedrukt?

 

[BartSr]

Inmiddels heb ik de oplossing al gevonden. Daarbij ga ik er van uit dat de gebruiker ook Acrobat Reader heeft geïnstalleerd.
Onderstaande basisroutine doet de klus:

Sub spooler()
'Te gebruiken ib Boeket80 (boeket@engineer.com)
 
' Requires reference to Microsoft Office 11.0 Object Library.
   Dim fDialog As Office.FileDialog
   Dim varFile As Variant
   Set fDialog = Application.FileDialog(msoFileDialogFilePicker) '' msoFileDialogSaveAs
   With fDialog
      .AllowMultiSelect = True
      .Filters.Clear
      .Filters.Add "Selecteer de bestanden", "*.pdf"
      If .Show = True Then
         For Each varFile In .SelectedItems
            Shell ("C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe /t " & varFile)
         Next
      Else
         MsgBox "U heeft geen 'bestand gekozen"
      End If
   End With
End Sub