السلام عليكم ورحمة الله وبركاتة
اخواني الافاضل الان انا لدي صوره مصممه سابقا بنفس حجم ورقة الـ a4 و اريد طباعة الصوره
الصوره موجوده داخل picturebox1 ياريت طريقة طباعتها و جزاكم الله خيرا
وعليكم السلام ورحمة الله وبركاته
كود :
Dim Print As New Printing.PrintDocument
AddHandler Print.PrintPage, Sub(obj As Object, ev As Printing.PrintPageEventArgs)
ev.Graphics.DrawImage([color=#ff0000]PictureBox1[/color].Image, 0, 0)
End Sub
[COLOR=#0000cd]For Each Printer In Printing.PrinterSettings.InstalledPrinters
If MsgBox(Printer, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
Print.PrinterSettings.PrinterName = Printer
Exit For
End If
Next
[/COLOR] Print.Print()
المحدد بالأزرق يظهر للمستخدم أسماء الطابعات وإذا اختار Yes في أي من الطابعات سوف يطبع الصفحة من خلالها وإذا لم يختر شيئ سيتم الطباعة بالطابعة الإفتراضية
اذا كان لدي صفحة اكسل واريد ان اطبعها تكون على صفحة واحدة ولكن احيانا يتم تكبير احد الاعمدة تلقائيا وتاتي على اكثر من صفحة هل من طريقة لكي ابقي على نفس التصميم ف صفحة واحدة