سكانر وفيدر وطباعة واستخراج PDF - تلقائي بعد انتهاء من السحب

[hanan_ms]

مهام المرفق

1-تصحيح وانشاء المسار تلقائي والملفات عند السحب

2-فحص اذا تم السحب سابقا بوجود ملف PDF

3- تلقائي استخراج الكل عند السحب

jpg

bmb

png

tiff

GIF

4- مع تفعيل الاعدادة 

 With div.items(1)
        .Properties("6146").Value = 1 'Colour intent (1 for color, 2 for grayscale, 4 for b & w)
        .Properties("6147").Value = DPI 'DPI horizontal
        .Properties("6148").Value = DPI 'DPI vertical
        .Properties("6149").Value = 0 'x point to start scan
        .Properties("6150").Value = 0 'y point to start scan
        .Properties("6151").Value = 8.27 * DPI 'Horizontal extent
        .Properties("6152").Value = 11.69 * DPI     'Vertical extent for letter
    End With

تعديل على المرفق 

عند انتهاء من السحب يطبع المسحوبات ويستخرج 

PDF

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

المطلوب:

تصحيح اخطاء  الفيدر والاعدادة

With div.items(1) 

وتغير وحدة القياس 

8.27 * DPI

11.69 * DPI

عند التغير الارقام تظهر رسالة خطأ

 

سكانر وطباعة واستخراج PDF- تلقائي بعد انتهاء من السحب.rar

[hanan_ms]

!طلب مساعدة ولا رد 

لو كان تغير لون او استعلام لتشكرة من زمان 😇🌹❤️

+ Video + محاولة مع نفسي 😏

1- اذا ما عندك اسكانر (جهاز الماسح الضوئي للاوراق والمستندات)

اضافة المسحوبات على الفرعي من غير تشغيل استعلام ☕

Private Sub Form_Timer()
If Form_F_in.hck = 1 Then
Dim Folder_test As String
Folder_test = "C:\Users\Ezril\Desktop\New folder (79)\scan\test scaner" 'Application.CurrentProject.Path & "\" & "test scaner"
Form_F_in.In_No = "888"
DoCmd.Save acForm, "F_in"
Dim rung As Integer

For rung = 1 To 2
Forms![F_in]![T_In_Attache_Path subform].Form![In_Attache_Path] = Folder_test & "\" & rung & ".png"
Forms![F_in]![T_In_Attache_Path subform].SetFocus
SendKeys "{DOWN}", True
On Error Resume Next
DoCmd.GoToRecord , , acNext
Next
Form_F_in.hck = 0
Form_F_in.sc.Requery
End If
End Sub

On Error Resume Next '... ليس فقط لتجاوز الاخطاء المنطقية - استدعاء ناقص  من مصدر برمجة اكسس -وستهداف التركيز

2- استخراج المسحوبات Pdf

وطباعة 

3-اداة اقتصاص الزائد بعد الانتهاء من سحب المستندات من السكانر 

4- قائمة تعديل وضبط المقياس بزر الاعدادة 

5- عند تجربتك للماسح الضوئي جرب الكود مع الاستبدال نسخ التقرير واضافة

Report1A$2

If Me.XXS = 0 Then

    If Me.Do = -1 Then
    DoCmd.OpenReport "Report1A$3", acViewPreview, , , acHidden
    DoCmd.OutputTo acReport, "Report1A$3", "PDFFormat(*.pdf)", IMG_PDF & "\" & Me.In_ID & "-" & Format(Now(), "Hh-Nn-ss-AM-PM") & ".pdf"
     DoCmd.OutputTo acReport, "Report1A$3", "PDFFormat(*.pdf)", IMG_PDF & "\" & Me.In_ID & ".pdf"
    '=======================================================( Out Print
    DoEvents
    Me.w.Visible = True
Me.w.ControlSource = "=""" & IMG_PDF & "\" & Me.In_ID & ".pdf" & """"
Me.w.Requery
DoEvents
       DoCmd.SelectObject acReport, "Report1A$1"
DoCmd.RunCommand acCmdPrint

End If

وطلب تصحيح بترتيب الدوال والمرفق او البديل 

Scn_Curp.rar

[Aws86A]

السلام عليكم

هل يعمل الفيدر لديك مع قاعدة البيانات لان حاولت مع غير قاعدة بيانات وما اشتغل ويايه؟

[hanan_ms]

7 hours ago, Aws86A said:

هل يعمل الفيدر لديك مع قاعدة البيانات لان حاولت مع غير قاعدة بيانات وما اشتغل ويايه؟

(( هو شغال فقط اضغط زر (( اسكان 

معاك خيارين حدد الي يناسبك

 

اما السكانر مو معاي حاليا 

بس يتوفر ارفقه مع الفيديو والتحديث

 

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

 

[hanan_ms]

@Aws86A

يعمل الفيدر 

وتغير الابعاد تأكد من الجدول DPI 

تأكد ان الحقول ليسة مشروط ومحدد له معيار الصحة 

يكون فارغ 

من (( غير دوال  )) لتغير ابعاد الصور لاحظ الفيديو بسهوله تحجيم الصفحات  

العرض 8.27

الطول 11.2

وفي عضو ليش غير 11.69 !!!!!!!!!!!!

 المرفق السابق لا يعمل مع الاسكنر 😗

اسوي واحد ثاني ☕

شوف الفيديو 

 

[Aws86A]

السلام عليكم 

اذا ممكن ايميل 

لان انا لدي نفس الفكرة لكن الفيدر لم يعمل لدي

[hanan_ms]

اذا اليوم خلصة باجر ارفع مرفق

يشتغل معاك

[Aws86A]

ماشي انتظر

[hanan_ms]

@Aws86A

مرفقك شغال ؟!

وين الخلل؟

Where Flate bad ?! A======= AT ( End Paper = Finish Scanner paper ) Or A==========  AT( Stop Scanner Or Selected Cod At Fix )

الخطأ عندك بالنسخ الاحتياطية او بتصميمك بشكل عام

حدد الخلل وارفع المرفق 

ممكن تصور الرسالة الخطأ او اشلون ما اشتغل !

 

[Aws86A]

السلام عليكم

الخلل عندي من اربط السكنر واختار مسح عن طريق الفيدر يسوي المسح عن الطريق الفلات باد

وبالنسبة للتصميم اني احتاجه هيج

السكنر الي عندي ايبسون

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

تم تعديل سبتمبر 4, 2024 بواسطه Aws86A

[hanan_ms]

@Aws86A

يعمل الفيدر 

جرب المرفق وقولي على النتيجة 

اعتذر عن بعض الاكواد في المرفق والمقطوعة 😏

=========================== بتحديث

استبدال الصفحات بتغير الاسم 

دوران المسحوبات افقي او عامودي

 

scanx.rar

[Aws86A]

السلام عليكم

هل جربت الملف الخاص بي من قبلك 

يعني اشتغل الفيدر يمك

لان اني يمي ما اشتغل

[hanan_ms]

@Aws86A

?! يعمل الفيدر 

يوم الاحد اذا قدرة اجرب مرفقك بالسكانر 

انت جرب مرفق الي انا رفعته لك 

بس الجديد حدثته لك 

1- بسهولة استبدال الاوراق المسحوبة

2- دوران الصفحات بالاتجاه المناسب

3-تحكم بالعرض وتحديد الصفحة 

==============================( بتحديث)☕

1- التحكم بالكل 

2- تحديث الصفحة المحددة للاعادة السحب

3-اضافة انواع لاحجام الوراق 

تقدر تضيف زر موافق للحفظ لتقيد المستخدم بعدم التعديل الا بصلاحية

 

Scanner_V1_02.rar

[hanan_ms]

@Aws86A

ان شاء الله اشتغل معاك الفيدير ?! يعمل الفيدر 

كنت مشغولة وايد 

تحديث + فيديو + صور +مرفق  بس اكمل شوي واذا في احد عنده تعديل او استبدال وتصحيح يعديل بالمرفق ويرفعة للتحديث مع فيديو سحب الاوراق من الاسكانر

للمساعده _🌹❤️

ما في متطوع يفحص 😇

==============================( التحديث)☕

1- خيار سحب المرفقات اما ملون او ابيض واسوط 

2-مع السحب QR-Barcode (Scanner-Add_Image )

3- بيحث ب QR-Barcode - with Number IMG 

4- تحديث تلقائي مع اضافة تصحيح التحديث

5-اضافة ادوات الدوران 90 180 90-

6-ترقيم الصفحات الممسوح بالسكانر والصور المضافة تلقائي مع التحديث والفتح 

7-  تحديث الصفحة المحددة للاعادة السحب والاستبدال

8- اضافة انواع لاحجام الوراق بوحدة القياس الانش  IN-Che ( A0 A1 A2 A3 A4 A5 A6 B4 B5 Letter And lager And Add U Custom Nmae Size with H W Inche ... ) 

9-اضافة وتصحيح عرض التقارير لطباعة المسحوبات السكانر ( برواز كامل -برواز محدد - فقط المسحوب والكل معرض  QR-Barcode )

10- مع بعض الاضافات الاخرى 

==============================( السابق )

1- بسهولة استبدال الاوراق المسحوبة

2- دوران الصفحات بالاتجاه المناسب

3-تحكم بالعرض وتحديد الصفحة 

 

scanner_QRbarcod_Full_Control_paper_V1_7_0.part1.rar

scanner_QRbarcod_Full_Control_paper_V1_7_0.part2.rar

scanner_QRbarcod_Full_Control_paper_V1_7_0.part3.rar