PDA

توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : آموزشي: ذخیره pdf ورک شیت و ارسال به ایمیل


Alireza
2018/09/02, 13:28
با سلام
ذخیره یک worksheet در قالب فایل pdf کاربردهای زیادی دارد که میتواند کاربرد های مختلفی جهت ارائه (مثل فاکتور فروش ) بدون نگرانی تغییرات در فایل اصلی برای ما داشته باشه .
در فایل ذیل نمونه ای از روش ذخیره pdf توسط کدهای vba استفاده کردم که در درایو C یک فولدر جهت ذخیره فاکتور با نام test ایجاد شده


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



و جهت تسریع در کار تسویه حساب با مشتری در یک ماکرو ارسال فایل ذخیره شده فاکتور توسط نرم افزاز outlook به عنوار attach به مشتری ارسال می گردد




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
Pbapba
2018/10/29, 08:38
متوجه نحوه کار و استفاده اش نشدم اگر ممکنه یکم توضیح بدید
Alireza
2018/10/29, 09:24
متوجه نحوه کار و استفاده اش نشدم اگر ممکنه یکم توضیح بدید
سلام
کدوم قسمت رو متوجه نشدید؟
Pbapba
2018/10/30, 07:12
یعنی باید اول یک فولدر در درایوcدرست کرد و بعد کد را به فایل اکسل اضافه کنیم تا کار کنه
mokaram
2018/10/30, 08:09
بله شما ابتدا پوشه مد نظر را در درایو مد نظر ایجاد کنید بعد اقدام به ران کردن کد کنید.
نکته : اگر نام پوشه و نام درایو ، چیزی به جز نام های ذکر شده در مثال بالا باشد بایستی آنها را به نام جدید تغییر داد.
Pbapba
2020/07/19, 12:31
این فایل یک یکبرگه را pdfمیکنه ایا ممکنه یک محدوده را برامون pdfکنه

با سلام
ذخیره یک worksheet در قالب فایل pdf کاربردهای زیادی دارد که میتواند کاربرد های مختلفی جهت ارائه (مثل فاکتور فروش ) بدون نگرانی تغییرات در فایل اصلی برای ما داشته باشه .
در فایل ذیل نمونه ای از روش ذخیره pdf توسط کدهای vba استفاده کردم که در درایو C یک فولدر جهت ذخیره فاکتور با نام test ایجاد شده


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



و جهت تسریع در کار تسویه حساب با مشتری در یک ماکرو ارسال فایل ذخیره شده فاکتور توسط نرم افزاز outlook به عنوار attach به مشتری ارسال می گردد




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
Alireza
2020/07/24, 19:11
این فایل یک یکبرگه را pdfمیکنه ایا ممکنه یک محدوده را برامون pdfکنه

سلام روز بخیر

Sheet1.PageSetup.PrintArea = Print_Area
این کد همون محدوده ای است که مد نظر شماست