How to make my print preview button refresh my form?

I figured it out on my own (which is a suprise), for anyone wanting to know how, add the following code inside your print preview code.

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Here is what the full code example will look like.

Private Sub btn_openreport_Click()
On Error GoTo Err_btn_openreport_Click

Dim stDocName As String

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
stDocName = "Account Inquiry"
DoCmd.OpenReport "account inquiry", acPreview, , "[ID] = " & Me.ID

Exit_btn_openreport_Click:
Exit Sub

Err_btn_openreport_Click:
MsgBox Err.Description
Resume Exit_btn_openreport_Click

End Sub

Slowly but surely, I am learning . . .
=)

OverDrive~