07-06-14, 12:25 PM
(07-06-14, 11:51 AM)vbnet كتب : .....
منقول
كود :
Public Class Form1
Dim WithEvents doc As New Printing.PrintDocument
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
doc.Print()
End Sub
Private Sub doc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles doc.PrintPage
e.Graphics.DrawImage(PictureBox1.Image, e.PageBounds)
End Sub
End Class
.....
جزيل الشكر اخي الكريم نفذت الكود واصبحت الصورة بحجم الورقة لكن ضهرت مشكلة بدقة الصورة اي ان الصورة غير واضحة
ادرجت التنفيذ بلمرفقات ارجو المساعدة
الصورة الاصلية
بعد التنفيذ
document.pdf (الحجم : 27.15 ك ب / التحميلات : 101)