hosslom قام بنشر مارس 10 مشاركة قام بنشر مارس 10 السلام عليكم اخوتي هل يوجد كود لطباعه جميع ملفات PDF في مجلد محدد بضغطه زر واحده بدون فتح هذه الملفات ؟؟ وشكرا جزيلا رابط هذا التعليق شارك More sharing options...
أفضل إجابة Foksh قام بنشر مارس 10 أفضل إجابة مشاركة قام بنشر مارس 10 (معدل) على افتراض أن اسم المجلد هو Pdf_File ، جرب هذا الكود:- Sub PrintAllPDFsInFolder() Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Dim strFolderPath As String strFolderPath = CurrentProject.Path & "\Pdf_File\" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strFolderPath) For Each objFile In objFolder.Files If Right(objFile.Name, 4) = ".pdf" Then ShellExecute 0, "Print", objFile.Path, 0, 0, SW_HIDE End If Next objFile Set objFSO = Nothing Set objFolder = Nothing Set objFile = Nothing End Sub في الزر الذي تريده ، في حدث عند النقر ، استدع الدالة بهذا الأمر :- PrintAllPDFsInFolder وأخبرنا بالنتيجة 😊 تم تعديل مارس 10 بواسطه Foksh 1 رابط هذا التعليق شارك More sharing options...
Barna قام بنشر مارس 10 مشاركة قام بنشر مارس 10 مشاركة مع اخي @Foksh Sub PrintAllPDFsInFolder() Dim MyFolder As String Dim MyFile As String Dim MyApp As String ' تحديد المجلد الذي يحتوي على ملفات PDF MyFolder = "C:\your\path\here\" ' تحديد التطبيق الذي سيتم استخدامه لفتح ملفات PDF MyApp = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe" ' الحصول على اسم أول ملف PDF في المجلد MyFile = Dir(MyFolder & "*.pdf") ' حلقة عبر كل ملف PDF في المجلد Do While MyFile <> "" ' فتح الملف بواسطة Acrobat Reader وطباعته Shell """" & MyApp & """" & " /h /p " & """" & MyFolder & MyFile & """", vbHide ' الانتظار لمدة 5 ثوانٍ للسماح للملف بالطباعة Application.Wait (Now + TimeValue("0:00:05")) ' الحصول على اسم الملف التالي MyFile = Dir Loop End Sub ملاحظة لم اجرب الكود .... يرجى ملاحظة أن هذا الكود يفتح كل ملف PDF بواسطة Adobe Acrobat Reader ويطبعه. يجب أن يكون لديك Adobe Acrobat Reader مثبتًا على جهاز الكمبيوتر الخاص بك ويجب أن تعرف المسار الذي تم تثبيته فيه. يمكنك تعديل المسار في الكود أعلاه ليتوافق مع المسار الذي تم تثبيت Acrobat Reader فيه على جهازك. إذا كنت تستخدم برنامجًا آخر لقراءة ملفات PDF، فسيتعين عليك تحديث الكود لاستخدام هذا البرنامج. رابط هذا التعليق شارك More sharing options...
hosslom قام بنشر مارس 10 الكاتب مشاركة قام بنشر مارس 10 (معدل) 31 دقائق مضت, Foksh said: PrintAllPDFsInFolder شكرا جزيلا اخي الكريم علي اهتمامك الكود شغال تمام جزاكم الله خيرا وكل عام وانتم بخير تم تعديل مارس 10 بواسطه hosslom رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مارس 10 مشاركة قام بنشر مارس 10 15 دقائق مضت, hosslom said: شكرا جزيلا اخي الكريم الكود يعطي خطا في كلمه SW_HIDE تم التعديل. جرب هكذا Sub PrintAllPDFsInFolder() Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Dim strFolderPath As String strFolderPath = CurrentProject.Path & "\Pdf_File\" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strFolderPath) For Each objFile In objFolder.Files If Right(objFile.Name, 4) = ".pdf" Then ShellExecute 0, "Print", objFile.Path, vbNullString, vbNullString, 0 End If Next objFile Set objFSO = Nothing Set objFolder = Nothing Set objFile = Nothing End Sub رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مارس 10 مشاركة قام بنشر مارس 10 34 دقائق مضت, hosslom said: شكرا جزيلا اخي الكريم علي اهتمامك الكود شغال تمام جزاكم الله خيرا وكل عام وانتم بخير اذاً لا داعي للتعديل الأخير فضلاً.. لا تنسَ إغلاق الموضوع باختيار أفضل إجابة 😀 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان