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

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

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

كود :

  Dim InstalledPrinters As String

        ' Find all printers installed

        For Each InstalledPrinters In

            System.Drawing.Printing.PrinterSettings.InstalledPrinters

            Me.ComboBox1.Items.Add(InstalledPrinters)

        Next InstalledPrinters

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

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

(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))

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

DOX.1

DOX.1

SABER_ZINOUBI