كود لتصدير عددة صفحات ل PDF

[SELMY]

السلام عليكم

مرفق ملف به كود لتصدير عددة صفحات الى PDF واحد لكن لا يعمل بشكل صحيح هل يمكن مراجعته 

المرتجعات (33).xlsm

[أ / محمد صالح]

إذا كان المطلوب تصدير جميع أوراق العمل الى ملف pdf واحد يمكنك استعمال هذا الكود

Sub exportAllSheetToPdf()
Dim sh As Worksheet, savpath As String
For Each sh In ActiveWorkbook.Worksheets
    Worksheets(sh.Name).Select False
Next sh
savePath = "C:\Users\hp\Downloads\moh-selmy\power Q.pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Sheets(1).Select
MsgBox "Done by mr-mas.com"
End Sub

وإذا كان المطلوب صفحات محددة يمكن استعمال هذا الكود مع كتابة اسماء الشيتات المطلوب تصديرها في المصفوفة

Sub exportSomeSheetsToPdf()
Dim savpath As String
ThisWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
savePath = "C:\Users\hp\Downloads\moh-selmy\power Q.pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
MsgBox "Done by mr-mas.com"
End Sub

بالتوفيق