السلام عليكم ورحمة الله وبركاته
ممكن مساعدة لو تكرمتم
كنت ابحث عن قاعدة بيانات تقوم بعمل مسح ضوئى واثناء البحث على الانترنت وجدت هذه القاعدة في احد المنتديات الاجنبية
واجهتنى مشكلة انه عند كل صفحة يقوم بمسحها تخرج رساله هل تريد مسح صفحة اخرى
اريد ان يقوم بعمل مسح ضوئى لكل الصفحات انا امسح تقريبا اكثر من 100 صفحة الموضوع مزعج جدا
حاولت التعديل ولكن فشلت
ارجو المساعدة لان الموضوع هام جدا بالنسبة لى
من اجمل ما اعجبنى في المثال انه يحتوى على كود يقوم بتحويل الصور ا
أستاذ @jjafferr الله يصلح حالك يارب ويجزيك خير وربى انا شوفت كل موضوعات المسح الضوئى من البحث قبل ما اكتب الموضوع
للعلم حاولت تعديل الكود هذا الكود الاصلى
Public Sub ScanDocs()
Const wiaFormatJPEG = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"
Dim strFileName As String
Dim Dialog1 As New WIA.CommonDialog, DPI As Integer, PP As Integer, l As Integer
Dim Scanner As WIA.Device
Dim img As WIA.ImageFile
Dim intPages As Integer
Dim strFileJPG As String
Dim i As Integer
Dim blnContScan As Boolean