Hi Bijon
make a global variable with module level scope (dimension it at top of the module before any procedures) and a Sub and a Function in a general module:
CODE
dim gCopyNo as integer
Sub InitializeCopyNo()
gCopyNo = 0
end function
function GetCopyNo() as Integer
gCopyNo = gCopyNo + 1
GetCopyNo = gCopyNo
if gCopyNo = 3 then gCopyNo = 0
end function
before you send three copies of the report to render,
CODE
InitializeCopyNo
on the report, make a combobox where you want the information to print
Name --> ReportCopyNo
Controlsource -->
RowsourceType --> Value List
RowSource --> 1; Customer Copy; 2; Seller Copy; 3; Office Copy
columncount --> 2
ColumnWidths --> 0;1
in the Format event of the Report header section:
CODE
Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer)
If FormatCount = 1 Then me.ReportCopyNo =GetCopyNo()
End Sub