Problema con PrintDocument

[jjap_unefa]

Hola a todos. Tengo el siguiente codigo

Código:

Col1 = 35
  Col2 = 50
  Col3 = 280

e.Graphics.DrawString("Item", New Font("Courier", 11, FontStyle.Bold), Brushes.Black, Col1, Fil2)
e.Graphics.DrawString("Estante", New Font("Courier", 11, FontStyle.Bold), Brushes.Black, e.MarginBounds.Left + Col2, Fil2)
e.Graphics.DrawString("Almacen", New Font("Courier", 11, FontStyle.Bold), Brushes.Black, e.MarginBounds.Left + Col3, Fil2)

   For row = (fila + (pagina * 24)) To Dttemp.Rows.Count - 1
       e.Graphics.DrawString(row + 1, New Font("Courier", 10, FontStyle.Bold), Brushes.Black, Col1, Fil1 + (lin * 30))
       e.Graphics.DrawString(Dttemp.Rows(row).Item(0), New Font("Courier", 10, FontStyle.Regular), Brushes.Black, e.MarginBounds.Left + Col2, Fil1 + (lin * 30))
       e.Graphics.DrawString(Dttemp.Rows(row).Item(1), New Font("Courier", 10, FontStyle.Regular), Brushes.Black, e.MarginBounds.Left + Col3, Fil1 + (lin * 30))

       If (row Mod 24) = 0 And lin <> 1 Then
            pagina += 1
            fila = 1
                If (pagina * 24) > Dttemp.Rows.Count - 1 Then
                    e.HasMorePages = False
                    Exit Sub
                End If
            e.HasMorePages = True
            Exit For
       End If
       lin = lin + 1
  Next

mi problema esta, que tengo un impresora pdf instalada para mostrar mis reportes, yo en un printdialog le muestro al usuario varias hojas, pero cuando las manda a imprimir solo sale la ultima hoja. Si tengo 4 hojas imprime la numero 4 y las otras no. Me pueden ayudar...???? Que es lo que estoy haciendo mal?