CrystalDecisions.CrystalReports.Engine.ReportDocument only generating one page

[Matthew Butler]

I am creating a datable applying it to the reportdocument but when i export
it there is only one page?

can someone advise as to what i am missing.

my code is as follows:

Dim CrystalDS As New DataTable

CrystalDS.Colum ns.Add("DEBTOR" , System.Type.Get Type("System.St ring"))

CrystalDS.Colum ns.Add("DEBTORS URNAME", System.Type.Get Type("System.St ring"))

CrystalDS.Colum ns.Add("ADDRESS 1", System.Type.Get Type("System.St ring"))

CrystalDS.Colum ns.Add("ADDRESS 2", System.Type.Get Type("System.St ring"))

CrystalDS.Colum ns.Add("ADDRESS 3", System.Type.Get Type("System.St ring"))

CrystalDS.Colum ns.Add("CITY", System.Type.Get Type("System.St ring"))

CrystalDS.Colum ns.Add("COUNTY" , System.Type.Get Type("System.St ring"))

CrystalDS.Colum ns.Add("POSTCOD E", System.Type.Get Type("System.St ring"))

CrystalDS.Colum ns.Add("TELEPHO NE", System.Type.Get Type("System.St ring"))

Dim AddRow(8) As String

AddRow(0) = "MR":AddRow (1) = "BUTLER":AddRow (2) = "4 MILLMEAD":AddRo w(3) =
"":AddRow(4 ) = "":AddRow(5 ) = "BYFLEET":AddRo w(6) = "SURREY":AddRow (7) =
"KT14 7DA":AddRow(8) = "0794993838 6"

CrystalDS.Rows. Add(AddRow)

AddRow(0) = "MRS":AddRo w(1) = "SMART":AddRow( 2) = "4 MILLMEAD":AddRo w(3) =
"":AddRow(4 ) = "":AddRow(5 ) = "BYFLEET":AddRo w(6) = "SURREY":AddRow (7) =
"KT14 7DA":AddRow(8) = "0148382576 5"

CrystalDS.Rows. Add(AddRow)

Dim reportDocument1 As New
CrystalDecision s.CrystalReport s.Engine.Report Document

With reportDocument1

..Load("C:\Offe rArrears.rpt",
CrystalDecision s.Shared.OpenRe portMethod.Open ReportByDefault )

..SetDataSource (CrystalDS)

..Refresh()

..ExportToDisk( CrystalDecision s.Shared.Export FormatType.Port ableDocFormat,
"C:\EXPORT.PDF" )



..Close()

End With