[sayedf1]

كود :

Imports System.Drawing.Printing

Public Class Form1

   Dim WithEvents mPrintDocument As New PrintDocument
   Dim mPrintBitMap As Bitmap


   Private Sub m_PrintDocument_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles mPrintDocument.PrintPage
       ' Draw the image centered.
       Dim lWidth As Integer = e.MarginBounds.X + (e.MarginBounds.Width - mPrintBitMap.Width) \ 2
       Dim lHeight As Integer = e.MarginBounds.Y + (e.MarginBounds.Height - mPrintBitMap.Height) \ 2
       e.Graphics.DrawImage(mPrintBitMap, lWidth, lheight)

       ' There's only one page.
       e.HasMorePages = False
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       ' Copy the form's image into a bitmap.
       mPrintBitMap = New Bitmap(Me.Width, Me.Width)
       Dim lRect As System.Drawing.Rectangle
       lRect.Width = Me.Width
       lRect.Height = Me.Width
       Me.DrawToBitmap(mPrintBitMap, lRect)


       ' Make a PrintDocument and print.
       mPrintDocument = New PrintDocument
       mPrintDocument.Print()
   End Sub
End Class