logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
Hatem Eissa hassona229-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة اكسيل مشاريع جاهزه



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





13-02-2024 06:42 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 245
الجنس :
تاريخ الميلاد : 24-9-1981
الدعوات : 1
قوة السمعة : 350
الاعجاب : 6
السلام عليكم ورحمه الله وبركاته
الاخوه الافاضل
اريد كود يقوم بطباعه ملفات البدى اف 
الموجده فى فولدر
مره واحده



توقيع :EM_ACC
إبراهيم أبوليله

look/images/icons/i1.gif اريد كود لطباعه جميع ملفات البى دى اف مره واحده
  22-02-2024 03:57 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1765
الدولة : مصر
الجنس :
الدعوات : 2
قوة السمعة : 9685
الاعجاب : 25
وعليكم السلام-تفضل هذا الكود على الرغم انك لم تقم برفع ملف لطلبك
CODE
Sub ExportEachSheet2PDF()[/b]
[b]Dim objWS As Worksheet[/b]
[b]Dim strFileName As String[/b]
[b]Dim strPath As String[/b]
[b]Dim strCrntWS As String[/b]
[b]strPath = ThisWorkbook.Path 'Assigned current file path[/b]
[b]strCrntWS = ActiveSheet.Name 'Assigned current sheetname[/b]
[b]Application.ScreenUpdating = False 'Disabled screen updating[/b]
[b]For Each objWS In Worksheets[/b]
[b]'objWS.Select[/b]
[b]strFileName = objWS.Name & ".pdf" 'Assigned worsksheet name as filename[/b]
[b]If VBA.Right(strPath, 1) <> Application.PathSeparator Then[/b]
[b]strPath = strPath & Application.PathSeparator[/b]
[b]End If[/b]
[b]ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _[/b]
[b]Filename:=strPath & strFileName, _[/b]
[b]Quality:=xlQualityStandard, _[/b]
[b]IncludeDocProperties:=True, _[/b]
[b]IgnorePrintAreas:=False, _[/b]
[b]OpenAfterPublish:=False[/b]
[b]Next objWS[/b]
[b]Worksheets(strCrntWS).Select 'After exporting all the worksheets, it will return to active sheet[/b]
[b]Application.ScreenUpdating = True 'Enabled screen updating[/b]
[b]MsgBox "All sheets have been exported as PDF.", vbInformation + vbOKOnly, "Exported as PDF"[/b]
[b]End Sub



توقيع :ali mohamed ali


{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
الاخرين لوجه الله وان تحتسب له اجر عند الله

look/images/icons/i1.gif اريد كود لطباعه جميع ملفات البى دى اف مره واحده
  13-03-2024 11:42 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 245
الجنس :
تاريخ الميلاد : 24-9-1981
الدعوات : 1
قوة السمعة : 350
الاعجاب : 6
السلام عليكم ورحمه الله وبركاته
كل عام وانتم جميعا بخير
استاذى الفاضل على
مشكورا بارك الله فيك
كود جميل طبعا
ولكن عزرا 
واضح اننى لم استطيع توصيل المطلوب بشكل جيد
المطلوب
لدى فولد به اكثر من ملف بى دى اف
اريد كود يقوم بطباعه جميع هذه الملفات مره واحده دون الحاجه الى فتح كل ملف على حده ثم طباعته
اتمنى ان اكون استطعت توصيل المعلومه
تقبل تحياتى


تم تحرير المشاركة بواسطة :EM_ACC بتاريخ:13-03-2024 11:43 صباحاً




توقيع :EM_ACC
إبراهيم أبوليله

look/images/icons/i1.gif اريد كود لطباعه جميع ملفات البى دى اف مره واحده
  16-05-2024 10:58 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 30
المشاركات : 468
الجنس :
تاريخ الميلاد : 9-12-1989
الدعوات : 2
قوة السمعة : 734
الاعجاب : 2
جرب هذا الكود أستاذى

CODE
Sub PrintPDFsInChosenFolder()
    Dim FolderPath As String
    Dim FileName As String
    Dim FileSystem As Object
    Dim PDFFile As Object
    Dim Shell As Object
    Dim FolderDialog As Object
    
    ' Open folder dialog to choose the folder containing PDF files
    Set FolderDialog = Application.FileDialog(msoFileDialogFolderPicker)
    With FolderDialog
        .Title = "Select Folder Containing PDF Files"
        .AllowMultiSelect = False
        If .Show = -1 Then
            FolderPath = .SelectedItems(1)
        Else
            Exit Sub ' User canceled dialog
        End If
    End With
    
    ' Create a file system object
    Set FileSystem = CreateObject("Scripting.FileSystemObject")
    
    ' Check if the folder exists
    If FileSystem.FolderExists(FolderPath) Then
        ' Loop through each file in the folder
        For Each PDFFile In FileSystem.GetFolder(FolderPath).Files
            ' Check if the file is a PDF
            If LCase(FileSystem.GetExtensionName(PDFFile.Path)) = "pdf" Then
                ' Print the PDF file
                Set Shell = CreateObject("Shell.Application")
                Shell.ShellExecute PDFFile.Path, "", "", "print", 1
            End If
        Next PDFFile
    Else
        MsgBox "Folder not found!", vbExclamation
    End If
    
    ' Clean up objects
    Set FileSystem = Nothing
    Set PDFFile = Nothing
    Set Shell = Nothing
    Set FolderDialog = Nothing
End Sub

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



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



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تنسيق الرأس فى الطباعه vba عبدالرحمن صبحى
3 687 hassona229
مشكله الطباعه من SPINNER محمد محمد حمودة
4 1229 YasserKhalil
ماكرو لطباعه الجزء المحدد بالماوس فقط ابو طيبه
1 1025 ابو طيبه
العلامة المائيه فى الطباعه عبدالرحمن صبحى
3 1326 YasserKhalil
تعديل علي كود الطباعه كريم نظيم
4 1298 YasserKhalil

الكلمات الدلالية
اريد ، لطباعه ، جميع ، ملفات ، البى ، واحده ،









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

الساعة الآن 12:42 AM