pdffile

Sub AttachActiveSheetPDF() Dim IsCreated As Boolean Dim i As Long Dim PdfFile As String, Title As String Dim OutlApp As Object ' Not sure for what the Title is Title = Range("A1") ' Define PDF filename PdfFile = "Sharp_Air_Estimate" i = InStrRev(PdfFile, ".") If i > 1...

I was wandering if someone could help me edit the code below to open the pdf in the file that has the letters GGS in the file name? Public Sub openJOBLIST() Dim path As String Dim PDFfile As String path = "\\hq\dfsdata\Data\UserHomes\jamey.eerson\My Documents\pdf-NEW\Latest...

Using this code from ZVI's examples on another thread - it kills the PDF at the end, how can I make it save a copy in a location, with the file name from cell C4? Sub AttachActiveSheetPDF() Dim IsCreated As Boolean Dim i As Long Dim PdfFile As String, Title As String Dim OutlApp As...

Hello friends, hope all is well! Please help me with the code. it supposed to take the sheet PDF, convert it to a pdf file and send it via outlook. I am getting the run time error. The Debug is highlighting the line: .Attachments.Add PdfFile Thank you so much in advance! Private Sub...

Hello friends, Hope all is well! The code below does work. it sends a sheet as PDF via Outlook. Please help me edit the code, so that it sends a sheet as PDF withOUT Outlook; but CDO. Your kind is needed and really appreciated in advance! Private Sub Email() Set OutApp =...

Private Sub CommandButton1_Click() Dim pdfFile As Variant Dim selPDF As Variant pdfFile = Application.GetSaveAsFilename(InitialFileName:=ThisWorkbook.ActiveSheet.name, FileFilter:="PDF Files (*.pdf), *.pdf") pdfPath.Value = pdfFile pdfPath.Locked = True End Sub Well, this...

Hi, Recently I have Office 365 and also SharePoint with the new "Team Sites" environment (previously called workgroups). Anyhow, I have a macro which convert the excel sheet into pdf and puts this pdf in an email ready to send. This is the coding : sub sendPDF() Dim OutlookApp As Object...

Hello All, I just signed up and I know it looks bad that my first post is asking for a favor, but I could really use one. The workbook is for Pass-On reports, both Day and Night shift. Needs: Push Button Convert active sheet to PDF Send to desired Pass-On Group Save PDF titled with current...

Hi, We have a form in excel which has to be exported to pdf and then it as to be sent by e-mail. The VBAcoding is finished and works just fine, but it doesn’t work when it’s put on aSharepoint workgroup with read only access. I think it has to do withtemporarily saving the pdf before it’s...

Hi everyone, So I have a Workbook with two tabs. One is a template, which is a summary of a test I have conducted for my team, and the other one is an Action Plan I need the business to complete. What I am after is a VBA Macro which sends 1. Summary Worksheet as a PDF document. 2. Action Plan...

Good Day I have this code that sends a email to recipients. I have created a Sheet called Emails with a few a few email addresses. The code works however it does not send to all email addresses, only the first address is selected. Thanks Private Sub Image12_Click()...

Hello, We are seeing this error only on one computer. All 6 pc's are running same version Excel 2016. When we execute the macro below the error occurs at the "With OutlApp.CreateItem(0)" area. Any ideas? Thank you Sub AttachActiveSheetPDF() Dim IsCreated As Boolean Dim i As Long Dim...

Hi, This one has been bugging me for a while - I am hoping somebody will be able to help. I have been using the following code: Sub EmailPDFPaymentNotice() Application.ScreenUpdating = False Dim IsCreated As Boolean Dim i As Long Dim PdfFile As String, Title As String Dim OutlApp As...

Hi! I have been browsing the forum and found a very good code for sending an excel sheet as PDF on e-mail by a user ZDI (?). I modified it a bit - picking cell-references into the body text of the e-mail, subject and To/Cc fields. The code looks like this now: Sub AttachActiveSheetPDF() Dim...

I have the following code, and it is fine until I get to the very last line - the important part, pasting the data: Sub Copy() Dim CopyApp As String Dim PDFFile As String Dim StartCopy CopyApp = "C:\Program Files (x86)\Internet Explorer\iexplore.exe" PDFFile = "\\host\users\me\test data.pdf"...

I am struggling to understand how at times, not all the time, when I press the button to send an email with a PDF of the sheet required, it deletes the active textbox of the sheet. It is not all the time. Can anyone share some help on this? This is the vba code I am using: Sub...

What I am hoping to do is it loop through my ComboBox about 200+ Items. For each item in the ComboBox perform the combobox1_Change function to recalculate sheet with the code I have in there and then run this code to print to PDF, and attach as an email for each item(each Item has its own email...

Hello All, I am struggling with my email macro. I found a great one online that attaches a worksheet as a PDF as I need it to, but cant get the body right. I need certain items in the body to be bold and underlined. After doing some research it seems the only way to accomplish this...

Hi all, Could I please ask for some help with this code I have used ZVI's code from the following thread https://www.mrexcel.com/forum/excel-...chment-14.html The code will save the current sheet as a pdf and email to the required email address This works almost perfectly, but I would like...

Good Evening, Could I please ask for some help. I have used ZVI's code from the following thread https://www.mrexcel.com/forum/excel-questions/710212-vba-code-convert-excel-pdf-email-attachment-14.html Which works perfectly, but I would like it to email a range B2:B200 instead of the complete...