16-12-16, 06:10 PM
السلام عليكم اساتذتي الكرام ,,
عندي فورم يحتوي على PictureBox1 , و أريد طباعة الصورة الموجودة عليها
إستخدمت هذا الكود بإستخدام أداة printform
إشتغل معي تمام و لكن الصورة ظهرك اكبر من الصفحة ,,
المطلوب هو كيفية طباعة الصورة بعرض الصفحة و شكراً
هكذا طلعت معي النتيجة كما بالصورة
عندي فورم يحتوي على PictureBox1 , و أريد طباعة الصورة الموجودة عليها
إستخدمت هذا الكود بإستخدام أداة printform
كود :
Dim WithEvents printDoc As New Printing.PrintDocument()
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.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إشتغل معي تمام و لكن الصورة ظهرك اكبر من الصفحة ,,
المطلوب هو كيفية طباعة الصورة بعرض الصفحة و شكراً
هكذا طلعت معي النتيجة كما بالصورة