تقييم الموضوع :
  • 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 واريد عند عرض تقرير ما عدم ظهور عنوان التقرير في الأعلى الا في الصفحة الأولى وليس في كل صفحات التقرير
الرد }}}
تم الشكر بواسطة:
#4
(02-02-22, 07:26 PM)عبدالله الدوسري كتب :
كود :
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

السلام عليكم الاستاذ الدوسري
البرنامج وضع خطا أحمر تحت هذه العبارة     WsNetwork.SetDefaultPrinter(strCurrPrinter) و كتب option strict reject any late binding 
علما أنني أختار الخاصية ON في الخيار OPTION STRICT
ما هو الحل ؟


    Heart ربي زدني علما  Heart

الرد }}}
تم الشكر بواسطة:
#5
(09-04-23, 01:45 PM)kebboud كتب : السلام عليكم الاستاذ الدوسري
البرنامج وضع خطا أحمر تحت هذه العبارة     WsNetwork.SetDefaultPrinter(strCurrPrinter) و كتب option strict reject any late binding 
علما أنني أختار الخاصية ON في الخيار OPTION STRICT
ما هو الحل ؟



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


الـ OPTION STRICT إذا كان ON :
يعني أنت مانع الربط المتأخر ، بمعنى أن يجب أن يتم تعريف كل شي، وممنوع إستخدام وظيفة في كائن Object






أضف مرجع COM للمكتة التالية :
ابحث  في القسم COM  عن ( Windows Script Host Object Model ) 
قم بإضافتها.



احذف السطر :
كود :
Dim WsNetwork = Microsoft.VisualBasic.CreateObject("WScript.Network")

إستبدلة بـ:
كود :
Dim WsNetwork As New IWshRuntimeLibrary.WshNetwork
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تغيير اعدادت الطابعة i1982 6 906 10-04-23, 03:24 PM
آخر رد: أبو خالد الشكري
Photo خطأ عند اختيار الصف الدراسي مصمم هاوي 5 832 05-02-23, 02:31 AM
آخر رد: مصمم هاوي
  اختيار عنصر معين من قائمة تتولد فيها ازار عددها متغير atefkhalf2004 16 1,167 22-01-23, 12:56 AM
آخر رد: atefkhalf2004
  مساعدة في حل لمشكله الخطأ عند محاولة الاتصال ونسيان اختيار البورت mohamedallams 7 1,086 30-07-22, 10:17 PM
آخر رد: asmarsou
  لا توجد امكانية اختيار splshscreen سعود 0 347 15-07-22, 07:22 AM
آخر رد: سعود
  [VB.NET] اختيار نص معين من تكست بوكس ميدو الفنان 2 1,949 28-01-22, 04:26 AM
آخر رد: ميدو الفنان
  فتح نموذج عند اختيار سجل محدد من نموذج اخر Arfat007 7 1,743 28-11-21, 06:49 PM
آخر رد: Arfat007
  [SQL] اختيار سجل محدد من الجدول على أساس ترتيبه mmaalmesry 2 949 20-09-21, 08:25 AM
آخر رد: mmaalmesry
  كيف يتم ملئ خلية فى الداتا جريد فيو بناء على اختيار قيمة خلية اخرى عبارة عن كومبو بوك talatm 1 1,078 14-08-21, 08:27 PM
آخر رد: اسامه الهرماوي
  [VB.NET] اختيار البيانات غير مكررة من الداتاتابل محمد اسماعيل 3 1,406 24-04-21, 06:23 AM
آخر رد: محمد اسماعيل

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


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