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

مساعدة في تعديل الكود المساح الضوئي Scanner


الطـاير

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

    Private Sub الموضوع_DblClick(Cancel As Integer)
	Dim stAppName As String
    Dim File As String
    Dim YS As String
    File = Me.الوارد
    YS = Me.السنة
    stAppName = "C:\Program Files (x86)\Adobe\Acrobat 11.0\Acrobat\acrobat.exe \\recserver\Rec\R\wared\" & YS & "\" & File & ".pdf"
    Call Shell(stAppName, 1)
	End Sub

السلام عليكم 
يا جماعة الخير 
عندي الكود هذا يفتح  ملف PDF وبعد ما افتحه اقدر اضيف له أوراق من الاسكانر 
المطلوب : تعديل الكود لاضافة الورق لملف PDF تلقائي وحفظ الملف دون فتحة 
وجزاكم الله خير 

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

تفضل هذا المثال

عبارة عن اختيار مجموعة من الصور
لكن بالإمكان استخدام الماسح الضوئي السريع و جميع الصور سوف تتحول على ملف PDF

 

مثال تحويل الصور PDF.zip

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

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

 

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

  • 2 weeks later...
Private Sub Append_Click()
    ' تنفيذ الكود هنا
    TWAIN_SetFileAppendFlag 1
    TWAIN_AcquireMultipageFile 0, "C:\Users\Altayer\Desktop\Scan.PDF"
End Sub

الحمد لله وجدت الكود هذا وحل لي المشكلة واضافة الأوراق الى الملف الموجود بالفعل في اخر الملف 
المطلوب هو تعديل الكود ليضيف الأوراق الى  اول الملف ؟

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

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

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



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

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

Important Information