تعديل كود التصدير إلى pdf

[Ali994m]

السلام عليكم 

ترجى المساعدة في تعديل كود الترحيل الىpdf  ليتم تصدير الصفحة الأولى فقط 

وجزاكم الله كل خير

Sub Export_PDF_in_OneAll()
Application.ScreenUpdating = False
Sheets(Array("Report")).Select
mypath = "D:\Settle Plate\" & Range("e9").Value
If Dir(mypath, vbDirectory) = "" Then MkDir mypath
ActiveSheet.ExportAsFixedFormat xlTypePDF, mypath & "\" & Range("a11").Value & ".pdf", xlQualityStandard
Worksheets("Report").Select
Application.ScreenUpdating = True
MsgBox "   Export To PDF Done"
End Sub

1050معدل.xlsm

[الرائد77]

غير فقط  activesheet الى نطاق الصفحة الاولى

ActiveSheet.ExportAsFixedFormat xlTypePDF, mypath & "\" & Range("a11").Value & ".pdf", xlQualityStandard

لتصبح

ActiveSheet.Range("A1:i33").ExportAsFixedFormat xlTypePDF, mypath & "\" & Range("a11").Value & ".pdf", xlQualityStandard

 

[أحمد يوسف]

Ali994m

أين الضغط على الإعجاب لهذه الإجابة الممتازة للأستاذ الرائد ؟!!!💙