آموزشی ذخیره pdf ورک شیت و ارسال به ایمیل

[Alireza]

با سلام
ذخیره یک 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]

متوجه نحوه کار و استفاده اش نشدم اگر ممکنه یکم توضیح بدید

[Alireza]

متوجه نحوه کار و استفاده اش نشدم اگر ممکنه یکم توضیح بدید

سلام
کدوم قسمت رو متوجه نشدید؟

[Pbapba]

یعنی باید اول یک فولدر در درایوcدرست کرد و بعد کد را به فایل اکسل اضافه کنیم تا کار کنه

[mokaram]

بله شما ابتدا پوشه مد نظر را در درایو مد نظر ایجاد کنید بعد اقدام به ران کردن کد کنید.
نکته : اگر نام پوشه و نام درایو ، چیزی به جز نام های ذکر شده در مثال بالا باشد بایستی آنها را به نام جدید تغییر داد.

[Pbapba]

این فایل یک یکبرگه را 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]

این فایل یک یکبرگه را pdfمیکنه ایا ممکنه یک محدوده را برامون pdfکنه

سلام روز بخیر

Sheet1.PageSetup.PrintArea = Print_Area 

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