مساعدة في تعديل الكود المساح الضوئي 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 

 

[الطـاير]

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

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