[mh66]

هذا كود الطباعة


'*****************************************************
    'طباعة
    Dim WithEvents printDoc As New Printing.PrintDocument()

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        printDoc.Print()
    End Sub

    Private Sub PrintImage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles printDoc.PrintPage
        e.Graphics.DrawImage(PictureBox1.Image, e.MarginBounds.Left, e.MarginBounds.Top)
    End Sub
    '****************************************************


1 - عندما انفذ اجراء الطباعة يظهر مربع حوار يطالبني بكتابة اسم للملف هل من الممكن تعديل الكود لعدم ظهور هذا المربع
2 - هل من الممكن تعديل الابعاد لتظهر على كامل ورقة A4 وليس حجم البيكتشر بوكس

شكرا