[VBA access] Stampare un report in pdf e su carta

[abellos]

Ciao avrei bisogno di stampare un report su carta e su PDFCreator (stampante virtuale per fare i pdf). Il mio report contiene un campo dati che sull'evento caricamento del report stesso viene valorizzato con una query seguente

Private Sub Report_Load()
'carico i dettagli prest in un campo
    Dim SQL As String
    Dim RS As DAO.Recordset
    Dim DB As DAO.Database
    Dim elenco As String
    
    SQL = "SELECT tipodoc.descTipoDoc, prest177dettagli.descrizione, prest177dettagli.idpratica" & _
    " FROM prest177dettagli INNER JOIN tipodoc ON prest177dettagli.codTipoDoc = tipodoc.codtipodoc " & _
    " WHERE (((prest177dettagli.idpratica)=" & Forms![dettagliPrest]![idpr].Value & "));"
    
    Set DB = CurrentDb
    Set RS = DB.OpenRecordset(SQL)
    
    While Not RS.EOF
        If RS!descrizione <> "" Then
            elenco = elenco & RS!descTipoDoc & " " & RS!descrizione & ",  "
        Else
            elenco = elenco & RS!descTipoDoc & ",  "
        End If
        RS.MoveNext
    Wend
    
    elenco = UCase(elenco)
    
    Me.dati = elenco
    
    RS.Close
    Set RS = Nothing
    DB.Close
    Set DB = Nothing
End Sub

Se visualizzo il report con

DoCmd.OpenReport NomeReport, acViewPreview

i valori nel campo dati vengono visualizzati normalmente, mentre se uso il seguente codice per inviare il report alla stampante pdf non mi fa vedere il campo dati, immagino che sia perche' non mi carica il report e non passa dall'evento load in cui dovrebbe generare i dati stessi

Dim strDefaultPrinter As String
    Dim stDocName As String
    Dim NomeReport As String
    Dim NomeStampante As String
    
    strDefaultPrinter = Application.Printer.DeviceName
    
    NomeReport = "prest"
    NomeStampante = "PDFCreator"
    Set Application.Printer = Application.Printers(NomeStampante)
    
    If Application.Printer.DeviceName <> "PDFCreator" Then
        MsgBox "Attenzione installare PdfCreator"
    Else
        DoCmd.OpenReport NomeReport, acViewNormal
        DoCmd.Close acReport, NomeReport
        
    End If

qualcuno mi saprebbe dare una mano a risolvere? grazie

[Kahm]

'facile: non esporti in formato PDF usa questo


Private Sub Create_PDF_Click()
DoCmd.OutputTo acOutputReport, , acFormatPDF, "name.pdf", True
End Sub