[mmaalmesry]

السلام عليكم و رحمة الله و بركاته

الكود التالى يقوم بجلب مقاس صفحة الطباعة :
Dim P As New System.Drawing.Printing.PageSettings
MsgBox(P.PaperSize.ToString)

و السؤال هو كيف يمكن تغيير مقاس الصفحة (بالكود أيضا) و شكرا جزيلا

[aljzazy]

جرب التالي

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)  ' 


[mmaalmesry]

جزاكم الله خيرا