[nabil.1710]

السلام عليكم اساتذتنا 

هذا الكود يقوم بطباعة الفورم مباشرتا ولكن يوجد مشكلة بحواف الورقة 

اول الطباعة تكون بعد اول الورقة بحوالى 4 سنتى

اريد ان اتحكم فى الحواف لطباعة الورقة و شكرا


الكود


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) \ 1.5
        Dim lHeight As Integer = e.MarginBounds.Y + (e.MarginBounds.Height - mPrintBitMap.Height) \ 1.5
        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


يوجد مثال فى المرفقات