عبدالله المجرب

بقي التجربة في العمل على الماسح المتعدد الى الغد إن شاء الله

السلام عليكم استاذ نارت عدلت في الكود وبفضل الله تمت لعملية بنجاح منقطع النظير

الحمدلله جزاك الله كل خير استاذ نارت

نسيت أن انوه ان الأوفيس الذي لدي 2013 وفي العمل 2010 فهل لهذا علاقة

السلام عايكم جزاك الله خير استاذنا الفاضل ابا ادم عمل جميل وتمت تجربته على HP Deskjet 2540 series (USB) لكن ان ملف ال PDF ظهر خالياً واعتقد السبب لدي في صيغة bmp حيث اني جربت ووضعت صورة بنفس الصيغة في المجلدD:\123 وبنفس الاسم (1-1) ثم فتحت التقرير المسمى rptscan فكانت النتيجة صفحة بيضاء وعندما وضعت صورة بصيغة jpg بنفس المجلد D:\123 وبنفس الإسم وفتحت التقرير ظهرت الصورة =============================== فما الحل لديك استاذ نارت وهل يمكن ان تكون صيغة سحب وحفظ الصور jpg بدلاً من bmp وبصراحة طريقة سحب الأوراق اعجبتني سلمت يمينك وجعله الله في ميزان حسناتك

انا في الإنتظار

شكراً لك ااستاذي الكريم وشكراً مرة أخرى لأني أعرف انك ترهق نفسك في ذلك ولا املك الا الدعاء لك ================================ ان شاء الله تكون المشاركة القادمة لمتعدد الصفحات لان جهازي متعدد الصفحات وايضاً الوثائق التي لدي لا تقل معضمها عن 5 اوراق وقد تصل الى 15 ورقة ================= ولا زلت ايضاً لنتظر مشاركة اخينا رمهان وشكراً

السلام عليكم إستبدل هذا السطر في الكود Mail.TextBody = "RENT EXPIRED FOR MR" & " " & .Cells(i, 1).Text & " " & "ON DATE" & " " & .Cells(i, 6).Text & " " & "AFTER" & " " & .Cells(i, 7).Text & " DAYS" & " " & "AMOUNT IS" & " " & .Cells(i, 3).Text بهذا Mail.TextBody = "RENT EXPIRED FOR MR" & " " & .Cells(i, 1).Text & " " & "ON DATE" & " " & .Cells(i, 6).Text & " " & "AFTER" & " " & .Cells(i, 7).Text & " DAYS" & vbNewLine & " " & "AMOUNT IS" & " " & .Cells(i, 3).Text

جزاك الله كل خير أستاذنا الفاضل ابو ادم ونسأل الله ان يمتعك بالصحة والعافية ============================================ صح ينشاء فولدر وبداخل هذا الفولدر يوجد ملف PDF وشكراً

للرفع دمجت الكود الخاص بالاخ رمهان مع ملف الارشيف والنتيجة ممتازة وهذا ما يجعلني منتظر للأوراق المتعددة وشكراً

انا جربت على الماسح الذي وضعته في اول مشاركو وكانت النتيجة ممتازة على ورقة واحدة ثم جربت على (طابعة 3 في واحد ) ماسح وتصوير وطابعة وكانت النتيجة ممتازة جداً

جميل جداً بعد التجربة لكي يتم الاستفادة ننتظر تعدد الصفحات فأغلب (99%) من الوثائق لا تقل عن صفحتين وربما تصل الى عشر صفحات بإنتظار إكمال العمل المميز وشكراً جزيلاً

ضع الملف كمرفق وستجد الحل بإذن الله

وابو الخبراء كمان بارك الله فيك استاذ جعفر وجعل ما تقدم في ميزان حسناتك

أقتراح جميل جداً لكن العائق أمامنا هو عدم وجود حلقة للتواصل بين الأعضاء (كرقم هاتف أو ما شابه) رغم وجود موضوع للتعارف

بالنسبة للمشاركات بخصوص البرامج المساعدة علماً بأن البرنامجين المرفقين تم سحب الورق بصيغة JPG الماسح فيه خاصية PDF فلماذا اللجوء الى برامج خارجية والتي تجبرني عند نقل البرنامج لا بد من نقل البرنامج المساعد معه طلبي التحكم في الماسح بالكود فهل اجد الحل والف شكر لكل من ساهم في الموضوع

بل على العكس نور الموضوع ومرحباً بك في أوفيسنا

السلام عليكم أخي الكريم من خصائص الماسح الذي لدي سحبه للأوراق بصيغة PDF وحفظها مرقمة بالتسلسل (1 - 2 - 3 ) وهكذا وتُحفظ في الملف المحدد مسبقاً يتم تحديد مجلد الحفظ يدوياً وكذلك يتم ضبط مسمى ملف الذي تم مسحه ونظراً لانه لدي أكثر من مجلد لحفظ الأوراق الممسوحة حسب التصنيف ولا بد أن يكون كل مجلد مختلف فحاجتي هي ان يتم التحكم في موقع الحفظ والتسمية وإعطاء أمر سحب الأوراق من الأكسس وليس يدويا وشكراً

الجهاز يسحب حالياً بصيغة pdf ولكن عن طريق الضغط على الزر في الجهاز أو من قائمة الأداة Scan Snap في شريط المهام كما في الصورة في أول مشاركة ===================== تفضل http://www.fujitsu.com/emea/products/scanners/wgd/fi-7160.html بالنسبة لروابط الاستاذ رضوان فهي لا تعمل على PDF اما رابط الاستاذ ابو ادم فالموقع يطلب إشتراك مدفوع ولم أجربه ================= وشكراً

عند غلق النموذج !!!!

استعمل خاصية SetFoucse في حدث بعد التحديث

خذ راحتك وبإنتظارك تدلو بدلوك وشكراً

للرفع

الف مبروك ابواحمد

السلام عليكم صورة الرسالة التعيسة لا تظهر وشكراً