Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As _
   System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
 
    Dim tBmp As Bitmap = New Bitmap(10, 10, Imaging.PixelFormat.Format32bppArgb)
    Dim gr As Graphics = e.Graphics
    Dim i As Integer
 
    'Dim s_wid As Integer
    'Dim s_hgt As Integer
    Dim p As Point
    Dim r As Rectangle
 
    's_wid = e.MarginBounds.Width
    's_hgt = e.MarginBounds.Height
    'save_Bitmap(s_wid, s_hgt, tmpBitmap, b_list)
 
    'For i = b_list.Count - 1 To 0 Step -1
 
    tBmp = b_list(akt_bld_nr)
    p = New Point(e.MarginBounds.Left, e.MarginBounds.Top)
    r = New Rectangle(p.X, p.Y, tBmp.Width, tBmp.Height)
 
    gr.DrawImage(tBmp, r)
    akt_bld_nr = akt_bld_nr - 1
    If akt_bld_nr > 0 Then
      e.HasMorePages = True
      gr.Dispose()
      PrintDocument1_PrintPage(sender, e)
 
    Else
      e.HasMorePages = False
    End If
 
    'Next
 
    gr.Dispose()
 
  End Sub