اريد كود يختبر ان كانت الطابعة مثبتة ام لا

Private Sub Main()

    Set Cn = New ADODB.Connection
    Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=optimize; Data Source=" & App.Path & "\data.mdb"

    'البحث عن الطابعة الافتراضية المثبته
    '=========================================================
    PrinterIsFound = PrinterInstalled()
    If PrinterIsFound = True Then
        frmProgres.Caption = "تأهيل الطابعة ..."
        frmProgres.Text1.Text = "تهانينا!! تم العثور على الطابعة , يتم الآن تعيين الوضع الإفتراضى للطابعة ..."
        frmProgres.PrBar.Max = 1
        frmProgres.PrBar.Visible = True
        '    PrBar.Min = 1
        'frmProgres.PrBar.Min = 1
        frmProgres.PrBar.Max = المهنا
        Dim الفريق_العربي_للبرمجة As Long
        For الفريق_العربي_للبرمجة = 1 To المهنا
            frmProgres.PrBar.Value = الفريق_العربي_للبرمجة
        Next
        frmProgres.PrBar.Value = 1
        'FrmPassword.show
        ''Unload frmProgres
        'Set frmProgres = Nothing

        frmProgres.Show
        '    frmProgres.Refresh
        frmProgres.PrBar.Max = 100
        frmProgres.PrBar.Value = 100
        frmProgres.PrBar.Enabled = False
        Dim PrintW As New PrinterControl
        PrintW.ReSetOrientation
        PrintW.ChngOrientationPortrait
        Unload frmProgres
    Else
        MsgBox "لا توجد طابعة مثبتة.. لن تتمكن من معاينة الكشوفات", vbMsgBoxRtlReading, "تنبيه"
    End If

End Sub

اخى مشكور

بس ممكن ترفق هذا المثال

مع شرحة

ولك منى فائق الاحترام

هذا المثال هو من البرنامج والكود الاشهر في جميع المنتديات وهو كود مصنع الطابوق للعماني

وهو في هذا الرابط مشروحا بعون الله في توقيع العماني

http://204.157.36.16/index.php?showtopic=77869&hl=الطابوق#

بدايةً اسأل الله أن يوفق أخونا { مهنا } صاحب الكود الخاص بفحص وجود طابعة مثبتة على الجهاز ..

وسؤال هل ممكن التعديل على كود الأخ { مهنا } وشرح أهم الأجزاء فيه.

وإذا كان هناك كود مختصر وفعال يفي بالغرض ..

Private Sub Main()

 'البحث عن الطابعة الافتراضية المثبته
   '=========================================================
   PrinterIsFound = PrinterInstalled()
   If PrinterIsFound = True Then
	   frmProgres.Caption = "تأهيل الطابعة ..."
	   frmProgres.Text1.Text = "تهانينا!! تم العثور على الطابعة , يتم الآن تعيين الوضع الإفتراضى للطابعة ..."
	   frmProgres.PrBar.Max = 1
	   frmProgres.PrBar.Visible = True
	   '	PrBar.Min = 1
	   'frmProgres.PrBar.Min = 1
	   frmProgres.PrBar.Max = المهنا
	   Dim الفريق_العربي_للبرمجة As Long
	   For الفريق_العربي_للبرمجة = 1 To المهنا
		   frmProgres.PrBar.Value = الفريق_العربي_للبرمجة
	   Next
	   frmProgres.PrBar.Value = 1
	   'FrmPassword.show
	   ''Unload frmProgres
	   'Set frmProgres = Nothing

	   frmProgres.Show
	   '	frmProgres.Refresh
	   frmProgres.PrBar.Max = 100
	   frmProgres.PrBar.Value = 100
	   frmProgres.PrBar.Enabled = False
	   Dim PrintW As New PrinterControl
	   PrintW.ReSetOrientation
	   PrintW.ChngOrientationPortrait
	   Unload frmProgres
   Else
	   MsgBox "لا توجد طابعة مثبتة.. لن تتمكن من معاينة الكشوفات", vbMsgBoxRtlReading, "تنبيه"
   End If

End Sub

حيث أرى بأن هناك سطور لم افهم الغرض من وجودها، وهل هذا الكود ينفع مع كل أمر طباعة.

مع خالص تحياتي

أخوكم / المدمر007

الموضوع قديم فلا تتوقع رد من أصاحبه

اقتباس

وإذا كان هناك كود مختصر وفعال يفي بالغرض ..