One method is to add a column to your query like:
NumToPrint: [Enter number of records to print]
Add two text boxes in the detail section:
Name: NumToPrint
Control Source: NumToPrint
Name: txtCount
Control Source: =1
Running Sum: Over All
Then in the On Format event of the detail section, add code like:
Cancel = (Me.txtCount > Me.NumToPrint)