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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : حفظ طابعه أفتراضية (/showthread.php?tid=34656)



حفظ طابعه أفتراضية - DOX.1 - 07-05-20

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

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

كود :
  Dim InstalledPrinters As String

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


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


RE: حفظ طابعه أفتراضية - DOX.1 - 08-05-20

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


RE: حفظ طابعه أفتراضية - SABER_ZINOUBI - 09-05-20

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