تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اختيار نوع الطابعة
#1
اريد تحميل انواع الطابعات التى تم تعريفها فى الجهاز الى كومبو بوكس وعند اختيار طابعة اضغط على الزر فيجعلها الطابعة الافتراضية للجهاز
الرد }}
تم الشكر بواسطة:
#2
   



كود :
Imports System.Drawing.Printing

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, _
               ByVal e As System.EventArgs) Handles MyBase.Load

       Dim strInstalledPrinters As String
       Dim prntDoc As New PrintDocument

       'check if there is installed printer
       If PrinterSettings.InstalledPrinters.Count = 0 Then
           MsgBox("No printer installed")
           Exit Sub
       End If

       'display installed printer into combobox list item
       For Each strInstalledPrinters In PrinterSettings.InstalledPrinters
           ComboBox1.Items.Add(strInstalledPrinters)
       Next strInstalledPrinters

       'Display current default printer on combobox texts
       ComboBox1.Text = prntDoc.PrinterSettings.PrinterName

       Button1.Text = "Set Default Printer"


   End Sub

   'Function to set a printer as default
   Function SetDefaulPrinter(ByVal strPrinterName As String) As Boolean
       Dim strCurrPrinter As String
       Dim WsNetwork As Object
       Dim prntDoc As New PrintDocument

       strCurrPrinter = prntDoc.PrinterSettings.PrinterName
       WsNetwork = Microsoft.VisualBasic.CreateObject("WScript.Network")

       Try
           WsNetwork.SetDefaultPrinter(strPrinterName)
           prntDoc.PrinterSettings.PrinterName = strPrinterName

           'set default if selected printer name is a valid installed printer
           If prntDoc.PrinterSettings.IsValid Then
               Return True
           Else
               WsNetwork.SetDefaultPrinter(strCurrPrinter)
               Return False
           End If
       Catch ex As Exception
           WsNetwork.SetDefaultPrinter(strCurrPrinter)
           Return False
       Finally
           WsNetwork = Nothing
           prntDoc = Nothing
       End Try
   End Function
   Private Sub Button1_Click(ByVal sender As System.Object, _
               ByVal e As System.EventArgs) Handles Button1.Click
       If SetDefaulPrinter(ComboBox1.Text) = True Then
           MsgBox("Printer default " & ComboBox1.Text)
       Else
           MsgBox("Printer name " & ComboBox1.Text & " is not valid!")
       End If
   End Sub

End Class
الرد }}
#3
عندي برنامج شؤون عاملين بالفيجوال بيسك 6 وكريستال ريبورت 8 واريد عند عرض تقرير ما عدم ظهور عنوان التقرير في الأعلى الا في الصفحة الأولى وليس في كل صفحات التقرير
الرد }}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في حل لمشكله الخطأ عند محاولة الاتصال ونسيان اختيار البورت mohamedallams 7 316 30-07-22, 10:17 PM
آخر رد: asmarsou
  لا توجد امكانية اختيار splshscreen سعود 0 136 15-07-22, 07:22 AM
آخر رد: سعود
  [VB.NET] اختيار نص معين من تكست بوكس ميدو الفنان 2 1,364 28-01-22, 04:26 AM
آخر رد: ميدو الفنان
  فتح نموذج عند اختيار سجل محدد من نموذج اخر Arfat007 7 936 28-11-21, 06:49 PM
آخر رد: Arfat007
  [SQL] اختيار سجل محدد من الجدول على أساس ترتيبه mmaalmesry 2 629 20-09-21, 08:25 AM
آخر رد: mmaalmesry
  كيف يتم ملئ خلية فى الداتا جريد فيو بناء على اختيار قيمة خلية اخرى عبارة عن كومبو بوك talatm 1 658 14-08-21, 08:27 PM
آخر رد: اسامه الهرماوي
  [VB.NET] اختيار البيانات غير مكررة من الداتاتابل محمد اسماعيل 3 978 24-04-21, 06:23 AM
آخر رد: محمد اسماعيل
  كيفية معرفة حالة الطابعة ؟ programmer_25 0 734 30-01-21, 10:58 PM
آخر رد: programmer_25
  [VB.NET] تقنية linq اختيار عدد معين من ListBox الماجيك مسعد 6 1,209 26-12-20, 08:10 PM
آخر رد: الماجيك مسعد
  [VB.NET] محتاج كود عرض اكثر من جدول فى داتا جرد فيو واحدة عن طريق اختيار الجدول من كومبوكس mohammed1994 1 1,205 01-09-20, 04:56 PM
آخر رد: اسامه الهرماوي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم