الطـاير قام بنشر يونيو 12, 2023 مشاركة قام بنشر يونيو 12, 2023 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 تلقائي وحفظ الملف دون فتحة وجزاكم الله خير رابط هذا التعليق شارك More sharing options...
الطـاير قام بنشر يونيو 13, 2023 الكاتب مشاركة قام بنشر يونيو 13, 2023 يا ريت حد من اصحاب الخبرة يفيدني بالموضوع ده بقالي سنين بحاول في الكود ده رابط هذا التعليق شارك More sharing options...
دروب مبرمج قام بنشر يونيو 14, 2023 مشاركة قام بنشر يونيو 14, 2023 تفضل هذا المثال عبارة عن اختيار مجموعة من الصور لكن بالإمكان استخدام الماسح الضوئي السريع و جميع الصور سوف تتحول على ملف PDF مثال تحويل الصور PDF.zip رابط هذا التعليق شارك More sharing options...
الطـاير قام بنشر يونيو 15, 2023 الكاتب مشاركة قام بنشر يونيو 15, 2023 جزاك الله خير اخوي دروب مبرمج مثالك جميل لكن يحول الصور الى PDF ما اريده هو اضافه اوراق من الاسكانر مباشرة الى ملف PDF موجود بالفعل دون فتح الملف علما باني استخدم وسيط مساعد وهو EZTwain رابط هذا التعليق شارك More sharing options...
الطـاير قام بنشر يونيو 25, 2023 الكاتب مشاركة قام بنشر يونيو 25, 2023 Private Sub Append_Click() ' تنفيذ الكود هنا TWAIN_SetFileAppendFlag 1 TWAIN_AcquireMultipageFile 0, "C:\Users\Altayer\Desktop\Scan.PDF" End Sub الحمد لله وجدت الكود هذا وحل لي المشكلة واضافة الأوراق الى الملف الموجود بالفعل في اخر الملف المطلوب هو تعديل الكود ليضيف الأوراق الى اول الملف ؟ رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان