تبدیل صفحه اکسل به PDF
ارسال در تاريخ چهارشنبه هفتم بهمن ۱۳۹۴ توسط داود خانی
بعضی مواقع، نیاز هست تا داده ها و جداول و یا بخشی از آنها که در صفحه گسترده فایل اکسل وجود دارد تبدیل به فایل PDF گردد. لذا نرم افزار اکسل در بخش ویژال(ِِDeveloper)، چنین قابلیتی را داراست.
کد زیر را در Module بنویسید و اجرا کنید. با استفاده از آن شما می توانید محدوده مورد نیاز جهت تبدیل به PDF از صفحه گسترده انتخاب و نیز نام فایل PDF را خودتان وارد و در آدرس دلخواه ذخیره نمایید.
Sub PDf()
'Davoud.kh@gmail.com
cells(1,1) = selection.Address
FlN = InputBox ("نام فایل را وارد کنید")
If FlN <>"" Then
SFl ="D:\" & FlN & ".pdf"
ActiveSheet.Cells(1,1).ExportAsFixedFormat xlTypePDF,SFl
End If
End Sub