طلب مساعدةفي تعديل كود طباعة كل الشيتات على صيغة PDF

[محمد مصطفى درويش]

السلام عليكم ورحمة الله 

تفضل احد الأخوة على هذا المنتدى المبارك بكتابة كود يطبع لي شيتات الاكسل ابتداء من الشيت بطاقة 1 الى بطاقة60 كما هو موضح بالملف المرفق رقم 1 حيث انني بعد فترة من العمل قمت بالتعديل على ملف العمل الاكسل واريد تعديل الكود ليطبع الملفات كما في الملف المرفق رقم 2 وهذا هو الكود المراد تعديله 

Sub Test()
    ExportAsPDF "ÇáÈØÇÞÇÊ"
End Sub

Public Sub ExportAsPDF(ByVal sOut As String)
    Dim ws As Worksheet, s As String
    For Each ws In ThisWorkbook.Worksheets
        If InStr(ws.Name, Chr(199) & Chr(225) & Chr(200) & Chr(216) & Chr(199) & Chr(222) & Chr(201)) Then s = s & IIf(s <> Empty, ",", Empty) & ws.Name
    Next ws
    PrintToPDF Split(s, ","), ThisWorkbook.Path & "\" & sOut & ".pdf"
End Sub

Public Sub PrintToPDF(arr, sFileName As String, Optional vQuality = xlQualityStandard, Optional vIncDocProperties = True, Optional vIgnorePrintAreas = False, Optional vOpenAferPublish = False)
    ThisWorkbook.Sheets(arr).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFileName, Quality:=vQuality, IncludeDocProperties:=vIncDocProperties, IgnorePrintAreas:=vIgnorePrintAreas, OpenAfterPublish:=vOpenAferPublish
    ActiveSheet.Select
End Sub

 

وعلى هذا الرابط تجدون الملفات علما ان زر طباعة PDF موجود في شيت مسمى الصفحة 1 ولفك حماية الماكرو للتعديل على الكود هو 12310 شاكرا جهودكم 

https://drive.google.com/drive/folders/1jPQGWqw-994KYYoJpeA1QBylm5bg9pVa?usp=sharing

[حسونة حسين]

السلام عليكم ورحمة الله وبركاته 

تم غلق الموضوع

لتكرار المواضيع

موضوعك الاول هنا

موضوعك الثاني هنا

موضوع الثالث هذا الموضوع

وكلهم لنفس الطلب