[kslawy]

بالنسبة للطابعات :

ملء الـ ComboBox بأسماء الطابعات :

PHP كود :

Private Sub GetPrinters()
        Dim strPrinter As String
        ComboBox1.Items.Clear()
        If Printing.PrinterSettings.InstalledPrinters.Count > 0 Then
            For Each strPrinter In Printing.PrinterSettings.InstalledPrinters
                ComboBox1.Items.Add(strPrinter)
            Next
        Else
            MsgBox("لا توجد طابعات مثبتة علي جهاز الحاسوب")
        End If
    End Sub 


لتعيين طابعة ما كطابعة افتراضية نستخدم دالة الـ API التالية :

PHP كود :

Declare Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Boolean 


نختار اسم الطابعة من الـ ComboBox مثلا ونجعلها افتراضية كالتالي :

PHP كود :

Dim setDefaul As Boolean = False

        setDefaul = SetDefaultPrinter(ComboBox1.SelectedItem.ToString) 


اسندنا القيمة الراجعة لمتغيير من نوع Boolean لأن دالة الـ API تعود بقيمة منطقية .


****
***
**
*