+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] طريقة تغيير مقاس صفحة الطباعة (/showthread.php?tid=40297)
طريقة تغيير مقاس صفحة الطباعة - mmaalmesry - 21-12-21
السلام عليكم و رحمة الله و بركاته
الكود التالى يقوم بجلب مقاس صفحة الطباعة :
Dim P As New System.Drawing.Printing.PageSettings
MsgBox(P.PaperSize.ToString)
و السؤال هو كيف يمكن تغيير مقاس الصفحة (بالكود أيضا) و شكرا جزيلا
RE: طريقة تغيير مقاس صفحة الطباعة - aljzazy - 23-12-21
جرب التالي
PHP كود :
PrintForm1.Form = Me
PrintForm1.PrinterSettings.DefaultPageSettings.Landscape = True
PrintForm1.PrinterSettings.DefaultPageSettings.PaperSize = New Printing.PaperSize("Custom", Me.Height, (Me.Width + 47))
PrintForm1.PrinterSettings.DefaultPageSettings.Margins = New Printing.Margins(3, 3, 3, 3)
PrintForm1.PrinterSettings.DefaultPageSettings.PaperSize.RawKind = Printing.PaperKind.A4Small
PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview 'PrintForm1.PrintAction = Printing.PrintAction.PrintToPrinter
PrintForm1.Print() 'PrintForm1.Print(Me, PowerPacks.Printing.PrintForm.PrintOption.Scrollable) '
RE: طريقة تغيير مقاس صفحة الطباعة - mmaalmesry - 26-12-21
جزاكم الله خيرا