[VB6] Stampa di Report

[Dave Pantera]

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..