logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
صلاح الصغير لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة Yasser Elaraby نظام ادارة شؤون الموظفين اعداد ياسر العربي اكسيل اسئله واجابات



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





03-06-2024 05:29 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 376
رصيد العضو : 16
الجنس :
تاريخ الميلاد : 13-10-1973
قوة السمعة : 505
الاعجاب : 4
السلام عليكم و رحمة الله و بركاته
هل يوجد طريقة لطباعة ملفات ال pdf دفعة واحدة 
اى بمعنى فى حالة وجود اكثر من ملف pdf فى فولدر معين اريد طباعتهم جميعا دون فتحهم 
و شكرا




look/images/icons/i1.gif طباعة ملفات pdf
  04-06-2024 12:43 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1336
رصيد العضو : 6
الجنس :
الدعوات : 13
قوة السمعة : 10104
الاعجاب : 75
موقعي : زيارة موقعي
اتفضل جرب الكود بالاسفل
CODE

Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
Sub PrintPDF()
    Dim FolderPath As String
    Dim FileName As String
    Dim FilePath As String
    
    FolderPath = "C:\Users\PDF\"
    FileName = Dir(FolderPath & "*.pdf")
    Do While FileName <> ""
        FilePath = FolderPath & FileName
        ShellExecute 0, "print", FilePath, vbNullString, vbNullString, 0
        Application.Wait (Now + TimeValue("0:00:03"))
        FileName = Dir
    Loop
    Call CloseAdobeReader
End Sub
Sub CloseAdobeReader()
    Dim objWMI As Object
    Dim objProcess As Object
    Dim colProcesses As Object
    Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
    Set colProcesses = objWMI.ExecQuery("Select * from Win32_Process Where Name = 'AcroRd32.exe'")
        For Each objProcess In colProcesses
        objProcess.Terminate
    Next objProcess
        Set colProcesses = Nothing
    Set objWMI = Nothing
End Sub


قم باستدعاء 
CODE
Call PrintPDF

عن طريق اي زر

أثارت هذه المشاركة إعجاب: YasserKhalil، hassona229، ali mohamed ali،


توقيع :Yasser Elaraby
663013020

look/images/icons/i1.gif طباعة ملفات pdf
  30-06-2024 02:18 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 376
رصيد العضو : 16
الجنس :
تاريخ الميلاد : 13-10-1973
قوة السمعة : 505
الاعجاب : 4
استاذ / ياسر
اسف للتاخير فى الرد
هاحرب و ارد على حضرتك فى اقرب وقت ممكن




look/images/icons/i1.gif طباعة ملفات pdf
  01-07-2024 10:15 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 376
رصيد العضو : 16
الجنس :
تاريخ الميلاد : 13-10-1973
قوة السمعة : 505
الاعجاب : 4
استاذ / ياسر 
تم العمل بنسبة ٩٩% 
و لكن تطبيق ال Adobe  لا يتم غلقه بشكل كامل و بعد الطباعة تظل صفحة ال home فى الى Adobe مفتوحة
و شكرا لاهتمام حضرتك

أثارت هذه المشاركة إعجاب: Yasser Elaraby،



اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب ملف لطباعة الشيكات في الاكسيل وديع شولاني
0 75 وديع شولاني
برنامج طباعة الاختبارات بطريقة الاتمتة الاصدار الثالث Saleh Ahmed Rabie
0 176 Saleh Ahmed Rabie
ضبط الطباعة أبو عبد الرحمن
0 288 أبو عبد الرحمن
لدي عدة جداول في صفحة اريد بالأكواد تحديدهم للطباعة عبد الله السعيد
0 260 عبد الله السعيد
كود طباعة الصفحة بناء على رقم خلية Khairi
0 402 Khairi

الكلمات الدلالية
طباعة ، ملفات ،









اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:48 PM