Ho provato implementando una call ad un'altra routine
...
call anteprima(app.Path & "\archivio.mdb","Report")
...
private sub anteprima(a as string, b as string)
Dim appAccess As Object
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase a
appAccess.doCmd.OpenReport b, acPreview
appAccess.CloseCurrentDatabase
Set appAccess = Nothing
end sub
Vorrei ottenere solo l'anteprima perke la stampa funziona,ma l'anteprima non la visualizza proprio.. Ho provato con acPreview ma nulla di fatto..
Spero possiate aiutarmi..