[vbnet]

.....

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

كود :

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)

.....