طباعة الform

مرحباً أخي الكريم .

يمكنك استخدام العملية ( DrawToBitmap ) ومن ثم إستخدام ( PrintDocument ) كالتالي :

Imports System.Drawing.Printing

Public Class Form1

Private WithEvents DocToPrint As New PrintDocument

Dim Bmp As Bitmap

Private Sub DocToPrint_PrintPage(ByVal Sender As Object, ByVal E As System.Drawing.Printing.PrintPageEventArgs) Handles DocToPrint.PrintPage

E.PageSettings.Landscape = True

E.Graphics.DrawImage(Bmp, 0, 0)

End Sub

Private Sub Button1_Click(ByVal Sender As System.Object, ByVal E As System.EventArgs) Handles Button1.Click

Bmp = New Bitmap(Width, Height)

DrawToBitmap(Bmp, New Rectangle(0, 0, Bmp.Width, Bmp.Height))

DocToPrint.Print()

End Sub

End Class

تحياتي BasharVS .