Split image across pages to print

Question

I am trying to print an image in vb.net. The size of the image is dynamic, and is derived from a panel, so can span more than 1 page. For this, I am cropping the image and printing the first part, then recursively calling the procedure to print the next section. The first page prints okay, but the subsequent pages are blank, as is the image that is supposed to be on them.
800 is height of page, 1100 is width. All the save images are to pinpoint the problem: restimg.bmp comes up as blank, so the problem seems to be in the second using statement. I know very little about image manipulation, so simple terms and example please. This is the code.

Sub recersive_print(ByVal WholeImg As Bitmap)
    If WholeImg.Height > 800 Then
        Dim CropRect As New Rectangle(0, 0, 1100, 800)
        Dim CropImage = New Bitmap(CropRect.Width, CropRect.Height)
        Dim restofimg = New Bitmap(1100, WholeImg.Height - 800)
        Dim restofingrect As New Rectangle(0, 0, restofimg.Height, restofimg.Width)
        Using grp = Graphics.FromImage(CropImage)
            grp.DrawImage(WholeImg, New Rectangle(0, 0, CropRect.Width, CropRect.Height), CropRect, GraphicsUnit.Pixel)
        End Using
        CropImage.Save("E:\cropped.bmp")
        Using grp = Graphics.FromImage(restofimg)
            grp.DrawImage(WholeImg, New Rectangle(0, CropRect.Height, restofimg.Width, restofimg.Height), restofingrect, GraphicsUnit.Pixel)
        End Using
        'img_filepath = Application.StartupPath & "\out" & Val(img_filepath) + 1 & ".bmp"
        img_to_print = CropImage
        'CropImage.Save(img_filepath)
        PrintDocument1.Print()
        'WholeImg.Dispose()
        restofimg.Save("E:\Rest.bmp")
        recersive_print(restofimg)

    Else
        img_to_print = WholeImg
        img_to_print.Save("E:\out.bmp")
        PrintDocument1.Print()
    End If
End Sub  

Thanks

EDIT: img_to_print is used in the following way

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    Dim g As Graphics = e.Graphics
    g.DrawImage(img_to_print, 5, 5)
End Sub

Answer 1

800 is width of page, 1100 is height. i believe you mean 1100 width and 800 height.

Sub recersive_print(ByVal WholeImg As Bitmap)
    Static i As Integer = 0

    i += 1
    If WholeImg.Height > 800 Then
        Dim CropRect As New Rectangle(0, 0, 1100, 800)
        Dim CropImage = New Bitmap(CropRect.Width, CropRect.Height)
        Dim restofimg = New Bitmap(1100, WholeImg.Height - 800)
        Dim restofingrect As New Rectangle(0, 0, restofimg.Width, restofimg.Height)

        Using grp = Graphics.FromImage(CropImage)
            grp.DrawImage(WholeImg, CropRect, CropRect, GraphicsUnit.Pixel)
        End Using

        CropImage.Save("E:\cropped" & i.ToString ".bmp")

        Using grp = Graphics.FromImage(restofimg)
            grp.DrawImage(WholeImg, restofingrect, New Rectangle(0, CropRect.Height, restofimg.Width, restofimg.Height), GraphicsUnit.Pixel)
        End Using

        restofimg.Save("E:\Rest" & i.ToString ".bmp")
        recersive_print(restofimg)

    Else
        WholeImg.Save("E:\out.bmp")
    End If
End Sub  

valter