Dim frm As New PrintDialog
    frm.Document = PrintDocument1
    If frm.ShowDialog = Windows.Forms.DialogResult.OK Then
 
      s_wid = PrintDocument1.PrinterSettings.DefaultPageSettings.Bounds.Width - _
              PrintDocument1.PrinterSettings.DefaultPageSettings.Margins.Left - _
              PrintDocument1.PrinterSettings.DefaultPageSettings.Margins.Right
      s_hgt = PrintDocument1.PrinterSettings.DefaultPageSettings.Bounds.Height _
        - _
              PrintDocument1.PrinterSettings.DefaultPageSettings.Margins.Top - _
              PrintDocument1.PrinterSettings.DefaultPageSettings.Margins.Bottom
      save_Bitmap(s_wid, s_hgt, tmpBitmap, b_list)
 
      For i = b_list.Count - 1 To 0 Step -1
 
        tBmp = b_list(i)
        PrintDocument1.Print()
 
      Next
 
    End If