دستور زیر هم فقط اخرین شیت رو به پی دی اف تبدیل میکنه نه همه شیتها رو در کنار هم بطور تجمیعی در یک فیل پی دی اف(.عمل پی دی اف سازی برای هر شیت انجام میشه اما اور رایت میشه رو هم که میمونه اخرین شیت )
Set wrk = xlapp.Workbooks.Open("F:\Access\SandHazine\gharard ad1.xlsx")
Set sheetall = wrk.Sheets(Array("dp", "sh", "tk", "ha", "xv"))
xlapp.Application.Visible = True
X = Shamsi() & "-" & Hour(Now()) & "-" & Minute(Now()) & "-" & Second(Now())
namxl = "Jameh#" & X & "#" & ".xlsx"
nampdf = "F:\Access\SandHazine\Jameh " & X & ".pdf"
'wrk.Sheets(Array("dp", "sh", "tk", "ha", "xv")).Select
For Each shet In sheetall
shet.ExportAsFixedFormat _
Type:=xlTypePDF, _
fileName:=nampdf, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
From:=1, _
To:=25, _
OpenAfterPublish:=False
Next