Multiple Page Print using e.HasMorePages [VB 2010 Express]

Question

What I want to do is to print all data from DataGridView1, when it reach the bottom of the page (i use variable panjang to compare), it will generate new page and then continue print the page from the DataGridView1 iteration.
From My Code, it generates unlimited pages(loading pages forever), when I cancel it, all the page is same (print from the first row until the vairable panjang end it)
Dim p As Pen
p = New Pen(Brushes.Black, 2.5)
For i As Integer = 0 To DataGridView1.RowCount - 1 Step 1
For ic As Integer = 0 To DataGridView1.ColumnCount - 1 Step 1
e.Graphics.FillRectangle(Brushes.DarkGray, New Rectangle(lebar, panjang, DataGridView1.Columns(ic).Width, DataGridView1.Rows(i).Height))
e.Graphics.DrawRectangle(p, New Rectangle(lebar, panjang, DataGridView1.Columns(ic).Width, DataGridView1.Rows(i).Height))
hasil = DataGridView1.Rows(i).Cells(ic).FormattedValue.ToString
e.Graphics.DrawString(hasil, font2, Brushes.Black, lebar + 0.12, panjang + 0.12)
lebar = lebar + DataGridView1.Columns(ic).Width
Next ic
panjang = panjang + 20
lebar = 20
If (panjang = 800) Then
e.HasMorePages = True
panjang = 40
lebar = 20
Exit Sub
End If
Next i
e.HasMorePages = False
Please help me, thanks...

Answer 1

But
For I As Integer = 0 to DataGridview1.RowCount - 1
is the iteration of DataGridView1's data
if i use 
For I As Integer = panjang To DataGridView1.RowCount -1
The result could not retrieve all the data from DataGridView1
panjang is use for indicator for if it reach some number, generates new pages