تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ارجو مساعدتي بالاجابة عن سؤال
#1
   
السلام عليكم اخوتي
ارجو المساعدة
لدي طابعتين على كومبيوتري كل واحدة اطبع فيها على حدا . فعندما احتاج الطابعة الاولى اقوم
بالنقر عليها كلك ايمن واضغط set default printer كما موضح بالصورة A . وعندما احتاج الطباعة
على الطابعة الثانية افعل نفس الشيء للطابعة الثانية .
احتاج الى برنامج بسيط يتكون كما موضح من button عدد 2 كما موضح بالصورة B . فعند الضغط
على button الطابعة رقم 1 يقوم بجعل الطابعة الاولى هي الطابعة الdefault و عند الضغط
على button الطابعة رقم 2 يقوم بجعل الطابعة الثانية هي الطابعة الdefault

وجزاكم الله خيرا

http://im54.gulfup.com/myIFKB.jpg

http://im54.gulfup.com/ofrMU9.jpg
الرد }}}}
تم الشكر بواسطة:
#2
اهلا اخي Smile
جرب هذا الكود , و ضع بدل كلمة Printer اسم الطابعة
كود :
Shell("RUNDLL32 PRINTUI.DLL,PrintUIEntry /y /n ""printer""")
مثلا :
كود :
Shell("RUNDLL32 PRINTUI.DLL,PrintUIEntry /y /n ""HP Deskjet F2100 series""")
و للامانة فان امر الـ CMD منقول .. Wink

تحياتي :")
الرد }}}}
تم الشكر بواسطة:
#3
تفضل أخي Smile

كود :
'كود جلب أسماء كل الطابعات المثبتة على الجهاز
Public Sub LoadAllPrinters()
    For Each Name As String In Printing.PrinterSettings.InstalledPrinters
        ComboBox1.Items.Add(Name)
    Next

    Dim PrintDoc As New Printing.PrintDocument()
    ComboBox1.Text = PrintDoc.PrinterSettings.PrinterName
End Sub

'كود تعيين الطابعة الافتراضية
Public Function SetDefaultPrinter(ByVal Name As String) As Boolean
    Dim PrintDoc As New Printing.PrintDocument()
    Dim WshNetwork As Object = Nothing
    Dim OldPrinterName As String = String.Empty

    Try
        OldPrinterName = PrintDoc.PrinterSettings.PrinterName
        WshNetwork = Microsoft.VisualBasic.CreateObject("WScript.Network")
        WshNetwork.SetDefaultPrinter(Name)
        PrintDoc.PrinterSettings.PrinterName = Name

        If PrintDoc.PrinterSettings.IsValid Then
            Return True
        Else
            WshNetwork.SetDefaultPrinter(OldPrinterName)
            Return False
        End If

    Catch ex As Exception
        If WshNetwork IsNot Nothing Then
            WshNetwork.SetDefaultPrinter(OldPrinterName)
        End If

    Finally
        PrintDoc = Nothing
        WshNetwork = Nothing
    End Try

    Return False
End Function

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

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    If SetDefaultPrinter(ComboBox1.Text) Then
        MessageBox.Show(String.Format("الطابعة ""{0}"" أصبحت هي الطابعة الافتراضية", ComboBox1.Text),
                        "الطابعة", MessageBoxButtons.OK, MessageBoxIcon.Information,
                        MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)
    End If
End Sub

المرجع: Setting Windows default printer
الرد }}}}
تم الشكر بواسطة: سعود , احمد129 , a_almisery


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو المساعده للانتهاء من مرحله كبيره فى البرنامج نبيل كونكت 1 88 منذ 3 ساعة مضت
آخر رد: محمود صالح
  [VB.NET] لكل خبير ارجو الحل Engmtamous 8 143 21-09-17, 07:52 PM
آخر رد: alsouf
  [مشروع] سؤال حول كيفية ربط السكانر بمشروع vb.net safalo 1 53 19-09-17, 03:48 PM
آخر رد: أبو نوره
  [سؤال] اعذروني اخواني سؤال في الفيس بوك لسه مبتدئ 0 41 16-09-17, 02:09 PM
آخر رد: لسه مبتدئ
  الرجاااااااء مساعدتي في المشكلة التالية VB.NET 6 215 09-09-17, 04:33 AM
آخر رد: طـلال
  سؤال مستعجل اخواني Amjad 5 146 08-09-17, 07:20 PM
آخر رد: طـلال
  سؤال مستعجل اخواني وضروري Amjad 2 103 08-09-17, 05:42 AM
آخر رد: Amjad
  [سؤال] الى الاساتذة الكرام ارجو المساعدة(تعديل كود) gharib 5 164 06-09-17, 08:32 AM
آخر رد: gharib
  [سؤال] سؤال ضروري (الصوره) DF.12 0 77 28-08-17, 03:08 PM
آخر رد: DF.12
  ارجو المساعدة من اهل الخبرة اريد كود لعمل فورم نقل او تحويل الاصناف من مخزن الى مخزن احمد الامين 8 265 24-08-17, 06:23 AM
آخر رد: احمد الامين

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


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