Print certain number of copies of filtered record

[Ramzess II]

PrintOut many copies of filtered records?

Hi,
There is form based on query. When I click a button in a form (with many records of course) this code in buttons OnClick event is executed:

Dim filtr As String
Me.Refresh
filtr = "(((tblSchools.schID)=" & CLng(Me![schID]) & "))"
DoCmd.OpenReport "rptRepPils", acNormal, , filtr

It works just as I need and prints out one page with certain filtered record.

But what I need is to make another button, which would print out the same filtered record in many copies where number of copies is defined by a number I enter in a text field which is represented on this form. (it is not unbound text box where I enter the number for amount of copies, this number is stored in the table which is a part of a query my form is based on)

Can anybody help me on this, please?

Thank you in advance.

 

[Ramzess II]

Maybe this should be moved to Reports forum, I don't know. Anyway I guess it is not that hard to manage, the thing is I always stuck on such small things. Probably because I am not a progammer but an artist