![]() To = "RECIPIENT IN HERE" 'CHANGE TO SUIT ![]() Subject = "TEXT IN HERE" ' CHANGE TO SUIT Set Mail_Object = CreateObject("Outlook.Application") MypdfDist.FileToPDF tempPSFileName, tempPDFFileName, "" Printtofile:=True, Collate:=True, prtofilename:=tempPSFileName TempPDFFileName = tempPDFRawFileName & ".pdf"ĪctiveSheet.PrintOut Copies:=1, preview:=False, ActivePrinter:="Adobe PDF", _ TempPSFileName = tempPDFRawFileName & ".ps" TempPDFRawFileName = "G:\Temp\" & ActiveWorkbook.Name ' Change File Path to suit I As Integer, Mail_Object, Email_Subject, o As Variant Dim tempPDFFileName, tempPSFileName, tempPDFRawFileName As String, mypdfDist As New PdfDistiller, _
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |