Fill Report with Enough Records for 1 page?

[mrmims]

Hello,

I have a query which will return 100s of dates for upcoming tests when run. I don't need to see ALL records when I print the report, only enough fill the page.

How do I tell the report to only run enough to fill the page? With the formatting I like, I know it is 25 records. I can set the Top Values to 25 and that works all dandy, but I was wondering if there is another to do this? Especially if later on I want to change formatting. The Top Values method seems sloppy.

Thank you

[ranman256]

dont filter the data, but let this code print only 1 page....

Private Sub cmdPrintInvoice_Click()
On Error GoTo Err_cmdPrintInvoice_Click
 
Dim stDocName As String
 
stDocName = "Invoice"
DoCmd.OpenReport stDocName, acHidden  '<=== acHidden is KEY
DoCmd.PrintOut acPages, 1, 1, acHigh, 1, yes
DoCmd.Close acReport, stDocName, acSaveNo
 
Exit_cmdPrintInvoice_Click:
Exit Sub
 
Err_cmdPrintInvoice_Click:
MsgBox Err.Description
Resume Exit_cmdPrintInvoice_Click
 End Sub