Modules & VBA :: How To Refer To Controls In Selected Report

i have created a module under module section of my DB My Report Name : "PURCH VB Query"

the code is as follows : (what is want tell you later..)

Code:

Sub Erlick()
DoCmd.SelectObject acReport, "PURCH VB Query", True
'"PURCH VB Query", acViewPreview, "PURCH VB Query"
For i = 1 To 3
DoCmd.PrintOut acPrintAll, , , , i
Next i

'This is for creating Seperate Text Per Copy in RptHeader Preview End Sub

i've placed a TextBox in my report named Text25 to the value :
=+1
properties-->data-->running sum--> Set to OVer all

i've also set a textbox in my report named CpyWord to the value : =IIf([Text25]=1,"Original Buyer Copy", IIf([Text25]=2,"Duplicate File copy",))

Now what is want is Three Copies of Report with Two copies marked seperately as per above IIF statement

As i want Three Copies with each Rpt-header as Different Text

Possible solutions (ba donna no a script) How do i refer to Report's control after Docmd.SelectObj.... if any facility then i can do easily thru the dazzling for next loop How do i increase Report's control Text25's value, if three copies r there I know there are many events in Report

I've stucked over this point. My all App in db is ready