Ho questo codice:

codice:
Dim PrtAccess As New Access.Application
With PrtAccess
    .OpenCurrentDatabase App.Path & "\Pippo.mdb"
    .DoCmd.OpenReport "ReportPippo", acViewPreView, , "[Pippo].[Pippo]=" & MyVar
    .DoCmd.PrintOut
    .CloseCurrentDatabase
End With
Set PrtAccess = Nothing
Il problema è che non mi mostra l'anteprima di stampa del report.

PS: Questo sistema funziona se l'utente non ha installato access nel proprio PC