تبدیل شیت به pdf و ذخیره به نام دلخواه (آموزشی)

[ali.b]

سلام دوستان
با این کد میتونید شیت مورد نظر رو به PDF تبدیل کنین و جالب اینکه میتونین از سه تا سلول یا بیشتر به عنوان اسم فایلتون انتخاب کنید

Sub SaveAsPDF()
'Saves active worksheet as pdf using concatenation
'of A1,A2,A3

Dim fName AsString
With ActiveSheet
fName = .Range("A1").Value & .Range("A2").Value & .Range("A3").Value
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\My Documents\" & fName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
EndWith
EndSub

[ali.b]

Sub SaveAsPDF()


Dim fName AsString
With Worksheets("My Sheet")
fName = .Range("A1").Value & .Range("A2").Value & .Range("A3").Value
EndWith
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\My Documents\" & fName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

EndSub

این کد برای شیت مورد نظر هست

[arash2152]

چگونه میشه دو شیت از سه شیت یک فایل اکسل را تیدیل به یک فایل PDF کرد؟
ترجیحا اگه Print area متغیر و از مثلا یکی از سلول ها بخونه خیلی بهتره
آیا میشه بصورت فوتر بهش شماره صفحه داد؟