با سلام
ذخیره یک worksheet در قالب فایل pdf کاربردهای زیادی دارد که میتواند کاربرد های مختلفی جهت ارائه (مثل فاکتور فروش ) بدون نگرانی تغییرات در فایل اصلی برای ما داشته باشه .
در فایل ذیل نمونه ای از روش ذخیره pdf توسط کدهای vba استفاده کردم که در درایو C یک فولدر جهت ذخیره فاکتور با نام test ایجاد شده
و جهت تسریع در کار تسویه حساب با مشتری در یک ماکرو ارسال فایل ذخیره شده فاکتور توسط نرم افزاز outlook به عنوار attach به مشتری ارسال می گرددکد PHP:
Sub pdf_file()
Sheet1.PageSetup.PrintArea = Print_Area
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\test\" & "ÝǘÊæÑ" & Range("Q3") & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False MsgBox "ÝǘÊæÑ ÔãÇÑå :" & Range("Q3") & vbNewLine & "ÐÎíÑå ÔÏ ", ok
End Sub
کد PHP:
Sub send_email()
'Create Outlook emailSet xOutlookObj = CreateObject("Outlook.Application")
Set xEmailObj = xOutlookObj.CreateItem(0)
With xEmailObj
.Display
.to = Sheet1.Range("D13")
.CC = ""
.Subject = "ÕæÑÊÍÓÇÈ ÔãÇÑå :" & ActiveSheet.Range("Q3").Value
.Attachments.Add ("C:\test\" & "ÝǘÊæÑ" & Sheet1.Range("Q3") & ".pdf")
If DisplayEmail = False Then
.Send
End If
End With
End Sub
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
علاقه مندی ها (Bookmarks)