منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
معرفة نوع الورق المستخدم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة التقارير والطباعة تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=71)
+--- الموضوع : معرفة نوع الورق المستخدم (/showthread.php?tid=3844)



معرفة نوع الورق المستخدم - abuzzouz - 17-09-14

السلام عليكم

أخواني أرجو منكم توجيهي لمعرفة ما نوع الورق الذي تم اختياره في الطابعة هل هو A4 أو Letter أو ...
كيف يمكن معرفة ذلك بواسطة الكود

مع خالص الشكر التقدير


RE: معرفة نوع الورق المستخدم - vbnet - 18-09-14

.....

لمعرفة اسم الطابعة الافتراضية واسم الورق الافتراضي
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    ' معرفة الطابعة الإفتراضية
    Dim DefaultPrinter As Printing.PrinterSettings = New Printing.PrintDocument().DefaultPageSettings.PrinterSettings

    ' معرفة الورق الافتراضي
    Dim DefaultPaperSize As Printing.PaperSize = DefaultPrinter.DefaultPageSettings.PaperSize

    MsgBox("DefaultPrinter: " & vbTab & DefaultPrinter.PrinterName & vbNewLine & _
           "DefaultPaperSize: " & vbTab & DefaultPaperSize.PaperName)

End Sub

لمعرفة اسم الورق الافتراضي للطابعة الافتراضية بشكل مختصر
كود :
' معرفة اسم الورق الافتراضي للطابعة الافتراضية
Dim DefaultPaperName As String = New Printing.PrintDocument(). DefaultPageSettings.PrinterSettings.DefaultPageSettings.PaperSize.PaperName
MessageBox.Show(DefaultPaperName)

.....