هل ينفع اضيف اوراق PDF الى ملف PDF من الاكسس

[الطـاير]

السلام عليكم اخواني واحبابي 
عندي برنامج سجل فيه ذر فتح ملف PFD شغال تمام وبعد ما يفتح الPDF اقدر اضيف منه اوراق زيادة بكم العمل يتطلب ذلك 
 

هل ممكن اطور الذر ده بحيث لما اضع ورق بالاسكنر واضغط على الذر يقوم تلقائي باضافة الورق لمف PDF ?

وشكرا 

[jjafferr]

وعليكم السلام 🙂

 

اذا الزر الموجود في برنامج اكسس مفتوح المصدر ، فنعم ممكن عمل ذلك 🙂

 

جعفر

[الطـاير]

3 ساعات مضت, jjafferr said:

وعليكم السلام 🙂

 

اذا الزر الموجود في برنامج اكسس مفتوح المصدر ، فنعم ممكن عمل ذلك 🙂

 

جعفر

تسلم اخوي جعفر جزاك الله خير 
هذا كود الزر هل هو مفتوح ام لا

 

    Dim stAppName As String
    Dim File As String
    Dim YS As String
    File = Me.TT
    YS = Me.Years
        
        If Me.YesNo.Value = "no" Then
        MsgBox "عذرا  ... ربما لم يتم سحب الملف", vbCritical, "لا يوجد ملف"
        DoCmd.CancelEvent
Else
    stAppName = "C:\Program Files (x86)\Adobe\Acrobat 11.0\Acrobat\acrobat.exe \\recserver\Rec\R\wared\" & YS & "\" & File & ".pdf"
    Call Shell(stAppName, 1)
    
    End If

 

[jjafferr]

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

 

اذن انت سحبت اوراق من الاسكنر ، وتريد ان تضيف هذه الاوراق على الملف اعلاه؟

 

جعفر

[jjafferr]

تفضل ، هذا الرابط به طلبك 🙂

 

 

 

جعفر

[الطـاير]

في ٣٠‏/١٠‏/٢٠١٩ at 14:32, jjafferr said:

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

 

اذن انت سحبت اوراق من الاسكنر ، وتريد ان تضيف هذه الاوراق على الملف اعلاه؟

 

جعفر

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

دمت سالما 

[الطـاير]

في ٣٠‏/١٠‏/٢٠١٩ at 14:32, jjafferr said:

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

 

اذن انت سحبت اوراق من الاسكنر ، وتريد ان تضيف هذه الاوراق على الملف اعلاه؟

 

جعفر

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

دمت سالما 

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

[jjafferr]

السلام عليكم 🙂

 

اخوي الطاير ، هذا الكود من الرابط اللي اعطيتك :

Private Sub cmd_combine_Click()

'Merge Two or More PDFs into a New Document
'pdftk 1.pdf 2.pdf 3.pdf cat output 123.pdf

    Dim pdftk_File As String
    Dim a_FILE As String
    Dim b_FILE As String
    Dim ab_FILE As String
    Dim Command_Line As String
    
    
    pdftk_File = Chr(34) & Application.CurrentProject.Path & "\" & "pdftk" & Chr(34)
    a_FILE = Chr(34) & Application.CurrentProject.Path & "\" & "a.pdf" & Chr(34)
    b_FILE = Chr(34) & Application.CurrentProject.Path & "\" & "b.pdf" & Chr(34)
    ab_FILE = Chr(34) & Application.CurrentProject.Path & "\" & "ab.pdf" & Chr(34)
    
    Command_Line = pdftk_File & " "
    Command_Line = Command_Line & a_FILE & " "
    Command_Line = Command_Line & b_FILE & " "
    Command_Line = Command_Line & "cat output" & " "
    Command_Line = Command_Line & ab_FILE
    'Debug.Print Command_Line
    
    Shell_n_Wait Command_Line, vbHide
    
End Sub

.

لازم تغير مسارات الكود الى تلك التي عندك في كمبيوترك.

مثلا يجب تغيير السطر التالي ، الى مسار واسم ملف الـ pdf اللي يقوم الاسكانر بعمله

a_FILE = Chr(34) & Application.CurrentProject.Path & "\" & "a.pdf" & Chr(34)

يعني اذا الاسكانر يعمل لك ملف اسمه myScan.pdf في المسار D:\myScanner_Files ، فيصبح السطر اعلاه:

a_File =  "D:\myScanner_Files\myScan.pdf"

.

ويجب ان تعمل نفس الشيء للسطرين b_File و ab_File 🙂

 

جعفر

 

[الطـاير]

سحاول ان شاء الله واعطيك الخبر 
جزاك الله خير