Option to Print reports for selected records

Hello,

This is my VBA to open the report. Since there are hundered of pages, how
can I make it when we click the button, it opens the reports, and after that
at the same time on top of the report before we print it there is a kind of
filter to filter the report to print.

If the pop up is the small form the form should be above the reports and it
will closed when we clik OK to print. I just want the filter to pop up
simultaneously when opening the report. What should I add in this VBA:
Private Sub UpdateDatakeanggotaan_Click()
On Error GoTo Err_UpdateDatakeanggotaan_Click

Dim stDocName As String

stDocName = "Update Data Keanggotaan"
DoCmd.OpenReport stDocName, acPreview


Thanks for any help.

Frank