اذهب الي المحتوي
أوفيسنا

مسح المستندات بالاسكنر بصيغة PDF بواسطة الأكسس


الردود الموصى بها

السلام عليكم 

 

 

 

هذا الموضوع لا يوجد له اي مثيل علي جميع المنتديات العربية 

 

أخي الكريم 

 

من خصائص الماسح الذي لدي سحبه للأوراق بصيغة PDF  وحفظها مرقمة بالتسلسل (1 - 2 - 3 ) وهكذا وتُحفظ في الملف المحدد مسبقاً 

 

يتم تحديد مجلد الحفظ يدوياً وكذلك يتم ضبط مسمى ملف الذي تم مسحه

 

ونظراً لانه لدي أكثر من مجلد لحفظ الأوراق الممسوحة حسب التصنيف ولا بد أن يكون كل مجلد مختلف فحاجتي هي ان يتم التحكم في موقع الحفظ والتسمية وإعطاء أمر سحب الأوراق من الأكسس وليس يدويا

 

وشكراً 

رابط هذا التعليق
شارك

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

 

اسمحوا لي ان اعرض فكرتي  :smile:

لكل جهاز طريقته الخاصة لمخاطبة الكمبيوتر بالكود ، وهذا يجعل العمل على كل الاجهزة عملية صعبة للغاية  :eek2:

لذا ، اذا كان هناك برنامج محترف وسيط (مثل ما ذكراخي soft.Sample مثلا) ، فهو سيقوم بالعمل القذر (يعني ربط الجهاز بالكمبيوتر وDrivers و... ) ، والمطلوب من هذا البرنامج الوسيط ان يكون في امكانية التحكم به من برنامج الاكسس (وإلا فاننا نستطيع العمل مباشرة عن طريق برنامج الجهاز).

 

برنامج IrfanView بالاضافة الى Plug-ins التابعة له:

http://www.irfanview.com/

من البرامج التي لا استطيع ان استغنى عنها ، فاول ما يكون عندي كمبيوتر جديد ، فعلى طول انزل وانصب هذا البرنامج المجاني الأكثر من رائع  :smile:

 

احد الخصائص التي في البرنامج ، انك ممكن تتحكم فيه عن طريق CommandLine ، وفيه العديد من الاوامر ، وهذا الشئ مهم اذا كنا نريد استعماله مع الاكسس.

البرنامج كذلك يستطيع التعرف على جميع اجهزة السكانر المرتبطة بالكمبيوتر:

post-142414-0-38027400-1425329064_thumb.

 

فلما تريد ان تقوم بعملية مسح مستندات من الاسكانر ، فما عليك إلا ان تقوم باختيار الماسح من القائمة (مرة واحدة فقط) ، 

وبعدها تستخدم هذا الامر من الكود في VBA عن طريق الامر Shell او ShellWait:

"c:\program files\irfanview\i_view32.exe" /batchscan=(scanfile,1,1,2,0,c:\temp,tif,1) /scanhidden

"c:\program files\irfanview\i_view32.exe" /multipdf=(c:\temp\test.pdf,c:\temp\scanfile01.tif) /killmesoftly

والذي يقوم بمسح المستندات وحفظها بصيغة tif ، ويقوم السطر التالي بتحويل المستند الى pdf.

وبما ان الكود في VBA ، فيمكنك التحكم في اسم المجلد اسم الملف وترقيمه و....

 

جعفر  :smile:

 

 

  • Like 3
رابط هذا التعليق
شارك

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

هذا ما اقصده انا بالضبط

الاستاذ العزيز جعفر

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

بس عاوز اعرف حاجه هل بعد السحب بالبرنامج الخاص بك واختيار مكان الحفظ يتم ادراج الرابط مباشرة داخل الاكسس بدون تدخل من المستخدم

تحياتي لكم

وباذن الله سوف نصل الي حل قريبا يرضي جميع المستخدمين

رابط هذا التعليق
شارك

بس عاوز اعرف حاجه هل بعد السحب بالبرنامج الخاص بك واختيار مكان الحفظ يتم ادراج الرابط مباشرة داخل الاكسس بدون تدخل من المستخدم

 

اما انا ، فاجعل البرنامج يقوم بالعمل قدر الامكان ، تفاديا لأخطاء المستخدمين ، ولا ادرج الرابط داخل السجلات في اكسس (طبعا هذا اذا في رابط) ، وانما اربط السجل بالكود  :smile:

 

ولكن اعتقد بأن سؤالك موجه للأخ عبدالله  :smile:

 

 

جعفر

  • Like 1
رابط هذا التعليق
شارك

اخي جعفر

معلومات ومرجع قيم كقيمة وجودك بيننا .

هذه العملية هي باستخدام third party  وهو البرنامج المذكور وهذا ماكنت وعدت به الأخ عبدالله ولكن باستخدام برنامج جهازه ومشغلاته . ولكن يبدو انك المحت بان هذه الطريقة ليست منطقية فليس من المنطقي ان اعرف جهاز كل عميل وتعديل برنامجي ليناسب جهاز العميل بل الاعقد هو عند تغيير العميل للأجهزة . انا اوافقك تماما ولكنني كنت اريده حلا سريعا لاخينا عبدالله .

وانا هنا أقول بانه من الصعب ان احمل برنامج كطرف ثالث مع برنامجي عند كل عميل وتقيد استمرار برنامجي باستمرار ونجاح البرنامج المرافق !

واتوقع بان مؤلف البرنامج استخدم ال api  في مخاطبة الأجهزة مما قد نتوصل لها باذن الله ويكون الاكسس هو من يخاطب الأجهزة وعن طريق api  .

والى هنا سنرى تجربة الأخ عبدالله والرجوع بالفيدباك !

كما لدي استفسار اخي جعفر حول توافقه مع أنظمة التشغيل وخاصة  64 bit  .؟!

 

اخي  soft.sample

 

ماسالت عنه وإمكانية وضع المسار بالاكسس هي عملية سهلة وشغلة vba  ! الأهم الان هو سحب وحفظ ك pdf !

 

تحياتي

  • Like 1
رابط هذا التعليق
شارك

أخي رمهان

انا كنت اظن اني بكتب كلمتين واشرد ، بس الظاهر انك صدتني  :smile:

 

انا اميل لإستخدام طرف ثالث ، وبحثت شوي زيادة ، وتوصلت الى برنامج آخر ، وجربته واشتغل تمام  :smile:

البرنامج اسمه NAPS2 من http://sourceforge.net/projects/naps2/

مفتوح المصدر http://sourceforge.net/p/naps2/code/ci/master/tree/

اوامر Commandline: http://sourceforge.net/p/naps2/wiki/Command%20Line%20Usage/

فيمكنك ان تتوصل الى طرف خيط اي api يستخدم (ما اعرف اي لغة مكتوب بها البرنامج)،

فيه Commandline وجربته ، والنتيجة جميلة  :smile:

1. نصب البرنامج ،

2. اعمل Profile لجميع اجهزة السكانر عندك ، بس اعطي كل جهاز اسم خاص بيه (انا سميت جهازي HP8500) ،

3. استخدم Commandline التالي:

"C:\Program Files\NAPS2\naps2.console" -o "F:\scanned receipt.pdf" -p HP8500

وكله تمام ، وبهذه البساطة  :smile:

 

 

جعفر

  • Like 1
رابط هذا التعليق
شارك

اهلا بك استاذ رمهان

ومبروك الترقي

انا بالنسبة لي كما ذكرت سابقا لايوجد لدي اي مشكلة في سحب الوثائق بصيغة pdf بل بالعكس فهي سهلة جدا بمساعدة برنامج صغير جدا يسمي win scan2pdf

مشكلتي هي كيف ادراج الرابط بعد السحب والحفظ بدون تدخل المستخدم

اتمني ان تحل هذه المشكلة اخي رمهان

ونحن اتعبني كثيرا

بنتظرك مادمت سهلة بالكود

رابط هذا التعليق
شارك

لا لا استاذ جعفر موجه لحضرتكم

كيف تربط السجل بالكود ممكن شرح الفكرة بعد اذنك

تحياتي

 

 

أخي soft.sample

 

الربط يعتمد على ما الذي تريد ربطه  :smile:

مثلا اذا عندك صور موظفين ، والصور محفوظة في مجلد Employee_Pictures ، والمجلد هذا وبرنامجك موجودين في مجلد واحد ،

وانك حفظت الصور بالرقم الوظيفي Employee_ID لكل موظف ،

وانت الآن تريد ان تعرض صورة الموظف في النموذج ، في السجل الخاص به ، واسم حقل/كائن الصورة في النموذج Employee_Pic مثلا ، فكود ربط الصورة مع النموذج سيكون في حدث الحالي:

me.Employee_Pic.picture= application.currentproject.path & "\Employee_Pictures\" & me.Employee_ID & ".jpg"

ونفس الشئ يمكن عمله اذا اردت ان تعرض ملفات pdf ، فبدل استخدام حقل/كائن الصور ، يمكنك استخدام كائن Browser وهو عبارة عن متصفح الانترنت ، ثم تستخدم كود شبيه بالكود اعلاه ، لتتم عملية الربط  :smile:

 

ميزة هذه الطريقة (اي استخدام الكود في الربط ولا ادراج الرابط في الاكسس) ، بانك تستطيع نقل مجلد برنامجك (والذي يحتوي على البرنامج ومجلد الصور) الى اي كمبيوتر ، وكل شئ يشتغل تمام في الحال ، بينما الرابط سيشير الى مجلد قد تم تغييره  :eek2:

 

وانا متأكد بأن الاخ رمهان عنده تتمه للحديث معاك  :smile:

 

 

جعفر

  • Like 1
رابط هذا التعليق
شارك

الاخ عبدالله صبحك الله بالخير  :smile:

 

انا اعتذر اني دخلت في موضوعك بدون ان اسلم عليك ، فأعتذر منك ، والعذر عند كرام الناس مقبول  :smile:

 

 

جعفر

 

بل على العكس نور الموضوع 

 

 

ومرحباً بك في أوفيسنا 

رابط هذا التعليق
شارك

بالنسبة للمشاركات بخصوص البرامج المساعدة علماً بأن البرنامجين المرفقين تم سحب الورق بصيغة JPG

 

الماسح فيه خاصية PDF فلماذا اللجوء الى برامج خارجية والتي تجبرني عند نقل البرنامج لا بد من نقل البرنامج المساعد معه 

 

طلبي التحكم في الماسح بالكود فهل اجد الحل 

 

والف شكر لكل من ساهم في الموضوع 

رابط هذا التعليق
شارك

Private Sub أمر0_Click()
'' رمهان
'' اوفيسنا
''فكرة استخدام الاكسس للسحب مباشرة من الاسكنر وتحويله الى pdf
x = "\" & IDwared & " _ " & Format(dawared, "yyyymmdd") & " _ " & nowaseka
If Len(Dir(CurrentProject.Path & x, vbDirectory)) = 0 Then
MkDir CurrentProject.Path & x
On Error Resume Next
Set img = CreateObject("wia.commondialog").ShowAcquireImage.SaveFile(CurrentProject.Path & x & x & ".jpg")
Set img = Nothing
DoCmd.OutputTo acOutputReport, "rep1", acFormatPDF, CurrentProject.Path & x & x & ".pdf"
Kill CurrentProject.Path & x & x & ".jpg"
End If
End Sub

السلام عليكم

اخي عبدالله : اوافقك تماما لماذا البرامج المساعدة ؟!  وهذا ما قلته في اول مشاركة لاخي جعفر !

اسمحو لي بهذه المشاركة وهي عملية اكسسية 100% بل وبدون مرجع ! وهي دلو رمهان كما طلبت  اخي عبدالله ومحاولة سريعة !

 

البرنامج يقوم بفتح مربع حوار الاسكنر وبعد سحب الصورة يقوم بحفظها ك pdf .

 

طبعا هي تمت بوقت وجيز وفقط لمعرفة مدى كفاءتها ونقدها ومن ثم سيكون لي موضوع جديد بهذا الخصوص وبشي حصري ان شاء الله !

 

اخي محمد سلامة : لاحظ الان العملية تتم على صفحة صفحة واما تعدد الصفحات فلاحقا وبعد نقدكم البناء وملاحظاتكم !

 

تحياتي للجميع

ramhan-scan2pdf.rar

رابط هذا التعليق
شارك

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

جاري التجربة والرد عليكم غدا باذن الله لان الاسكنر لدي موجود بالعمل

 

 

وغدا باذن الله الرد النهائي

تم تعديل بواسطه soft.sample
رابط هذا التعليق
شارك

 

 

اخي محمد سلامة : لاحظ الان العملية تتم على صفحة صفحة واما تعدد الصفحات فلاحقا وبعد نقدكم البناء وملاحظاتكم !

 

جميل جداً بعد التجربة 

 

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

 

بإنتظار إكمال العمل المميز

 

وشكراً جزيلاً 

رابط هذا التعليق
شارك

اخي عبدالله

اشكرك أولا على التجربة ووصف العمل بالمميز !!

ثانيا موضوع سحب عدة صفحات اصبح سهلا والحمد لله  بعد معرفة  سيناريو الحل ومن الأكسس 100% !!

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

 

تحياتي

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

استاذ رمهان

انا قمت بالتجربة علي جهازي في العمل مركب عليه جهاز اسكنر hp5590

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

كل مل يفعله هو انشاء فولدر فقط

مع العلم ان جهاز الاسكنر كان موصل وشغال

هل هناك اي شئ يجب ان افعله

رابط هذا التعليق
شارك

انا قمت بالتجربة علي جهازي في العمل مركب عليه جهاز اسكنر hp5590 

 

 

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

 

ثم 

 

جربت على (طابعة 3 في واحد ) ماسح وتصوير وطابعة 

 

وكانت النتيجة ممتازة جداً

  • Like 1
رابط هذا التعليق
شارك

للرفع 

 

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

 

وهذا ما يجعلني منتظر للأوراق المتعددة

 

 

وشكراً 

رابط هذا التعليق
شارك

اخي الحبيب عبدالله

 

المشروع قيد العمل قدر المستطاع

 

والله المستعان

 

.........

 

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

 

============================================

 

 

 

كل مل يفعله هو انشاء فولدر فقط

 

صح ينشاء فولدر وبداخل هذا الفولدر يوجد ملف PDF

 

 

وشكراً

  • Like 1
رابط هذا التعليق
شارك

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

بعد التحية

ينشئ فولدر فارغ فقط لايوجد بداخله اي شئ ولا يقوم بتشغيل الاسكنر

ومن المفترض ان يعمل علي جميع الاسكنرات

ننتظر استاذ رمهان للمتابعة حول الموضوع

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information