منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

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

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

.....

لمعرفة اسم الطابعة الافتراضية واسم الورق الافتراضي

كود :

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)

.....

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

abuzzouz

vbnet