[DOX.1]

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

هذا الكود عبـاره عن عرض الطابعات في الجهاز 

كود :

  Dim InstalledPrinters As String

       ' Find all printers installed
       For Each InstalledPrinters In
           System.Drawing.Printing.PrinterSettings.InstalledPrinters
           Me.ComboBox1.Items.Add(InstalledPrinters)
       Next InstalledPrinters

ستظهر في كمبوبكس كيف يمكنني بعد أختيار الطابعه أحفظها طابعه أفتراضيه للبرنامج وأعدلها في الجهاز أنها الأفتراضيه 
أنا أستخدم تقارير الديف أكسبرس

[DOX.1]

شباب كيف اجعل الطابعه افتراضيه 
اللي مختارها

[SABER_ZINOUBI]

(08-05-20, 08:40 PM)DOX.1 كتب : شباب كيف اجعل الطابعه افتراضيه 
اللي مختارها

هذا الكود لاضافة الطابعات الى كومبوبوكس

كود :

For Each strprinter In Printing.PrinterSettings.InstalledPrinters
           ComboBox1.Items.Add(strprinter)

       Next

 
هذا كود جعل الطابعة المختارة من الكومبوبس افتراضية

كود :

       Shell(String.Format("rundll32 printui.dll,PrintUIEntry /y /n ""{0}""", ComboBox1.Text))