Ma per esempio potresti provare a scaricare CutePDF e utilizzando il suo ActiveX per richiamare la stampa del report in questo modo?
Dim PDF As Object
Set PDF = CreateObject("CutePDF.Writer")
PDF.Init "C:\Percorso\nomefile.pdf"
DoCmd.OpenReport "NomeReport", acViewPreview, , , acHidden
PDF.PrintOut
PDF.Exit
Mentre con ActiveX di PdfCreator dovrebbe essere:
Dim pdfjob As Object
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
pdfjob.Initialize
pdfjob.StartPrinting "Titolo del documento"
pdfjob.PrintOut "C:\Path\To\Your\File"
pdfjob.cOption("UseAutosave") = 1
pdfjob.cOption("UseAutosaveDirectory") = 1
pdfjob.cOption("AutosaveDirectory") = "C:\Path\To\Your\Directory"
pdfjob.cOption("AutosaveFilename") = "YourFileName.pdf"
pdfjob.cOption("AutosaveFormat") = 0 ' 0 = PDF
pdfjob.cClearCache
pdfjob.StopPrinting