Print Preview A Report In Another Database

[rcorbett]

Have a form that is used to access reports that are located in several databases. Below is the code for one control on the form - it is set to print. I want to have it go to print preview instead. Well according to my research all I need to do is change acViewNormal to acViewPreview which I have tried but it doesn't come up at all. Does anyone have any suggestions? Thanks.

Private Sub Command0_Click()

Dim appAccess As New Access.Application

appAccess.OpenCurrentDatabase "\\Nts02\Vax Files\Donor Master & History.mdb"
appAccess.DoCmd.OpenReport "Donor Inquiry by BBCS #", acViewNormal
appAccess.CloseCurrentDatabase
appAccess.Quit
Set appAccess = Nothing
End Sub

 

[BillPower]

This should do it for you:

appAccess.OpenCurrentDatabase "\\Nts02\Vax Files\Donor Master & History.mdb"
appAccess.Visible = True
appAccess.DoCmd.OpenReport "Donor Inquiry by BBCS #", acViewPreview

Bill

 

[rcorbett]

Thanks Bill - it definitely makes the db visible, but the report just prints and doesn't let me view it first.

 

[BillPower]

Hi rcorbett,

This is my full code:

Dim appAccess As New Access.Application
appAccess.OpenCurrentDatabase "\\Nts02\Vax Files\Donor Master & History.mdb"
appAccess.Visible = True
appAccess.DoCmd.RunCommand acCmdAppMaximize
appAccess.DoCmd.OpenReport "Donor Inquiry by BBCS #", acViewPreview
appAccess.DoCmd.Maximize
Set appAccess = Nothing

You can delete references to Maximize if not needed. Also, if Print Previewing. You don't need:

appAccess.CloseCurrentDatabase
appAccess.Quit

The DB should close when the user closes the Report.

Bill