logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
noureddine70 لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil برنامج فك حماية محرر الأكواد VBA وحماية unviewable اكسيل اسئله واجابات



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





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




look/images/icons/i1.gif طباعة ملفات pdf
  04-06-2024 12:43 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1327
الجنس :
الدعوات : 13
قوة السمعة : 10047
الاعجاب : 59
موقعي : زيارة موقعي
اتفضل جرب الكود بالاسفل
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

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



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
برنامج طباعة الاختبارات بطريقة الاتمتة الاصدار الثالث Saleh Ahmed Rabie
0 18 Saleh Ahmed Rabie
ضبط الطباعة أبو عبد الرحمن
0 125 أبو عبد الرحمن
لدي عدة جداول في صفحة اريد بالأكواد تحديدهم للطباعة عبد الله السعيد
0 166 عبد الله السعيد
كود طباعة الصفحة بناء على رقم خلية Khairi
0 335 Khairi
كود طباعة صفحتين ظهر و وجه noureddine70
1 303 noureddine70

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









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

الساعة الآن 04:46 AM