Good day to All!

I use the the crystal Report 8 control in my application to produce reports needed. I first write the records i need to a temporary table and then store their record Id's in a Array called IRecNo.

Dim iRecNo(1 to 1000) as Long
Dim icounter as long ' Each time i write a new record icounter + 1

'This is where where the array gets its values.
iRecNo(icounter) = rsUpdate.fields("Cert_Number") ' AutoNUmber


After all the records have been written to the temp tables i do the following.
For i = 1 to iCounter
Call PrintCMForm ("ReportName.rpt". IrecNo(i))
Next i

The problem is the following. Sometimes when I need to print more than one copy of the same report to the screen "crptToWindow" and then the report displays blank on some record. But if i pass it right through to the printer it prints the record. What could be the reason????? No matter what i try I cant get it right.