heres my loop and code on how to print mulitple reports
VB Code:
  1. For i = 1 To rsDis.RecordCount

  2.         Set rsDis1 = New ADODB.Recordset

  3.         Set rsDis1 = cn.Execute("select * from checktable where account_id = " & i)

  4.         Set DataReport1.DataSource = rsDis1

  5.         DataReport1.Sections(1).Controls("lblAccount").Caption = rsDis1.Fields("chkname").Value

  6.         DataReport1.Sections(1).Controls("lblDate").Caption = rsDis1.Fields("chkdate").Value

  7.         DataReport1.Sections(1).Controls("lblTotal").Caption = rsDis1.Fields("chkTotal").Value

  8.         DataReport1.Sections(1).Controls("lblNum2Wrd").Caption = rsDis1.Fields("chknumtoword").Value

  9.         DataReport1.Refresh

  10.         DataReport1.PrintReport False, rptRangeFromTo, 1, 1

  11.         rsDis1.Close

  12.     Next i

if i run this code it will only print once and the only first page will print.. but when i use breakpoints on the datareport1.printreport.. it will print as many times as the loop is.. pls help!