flyinghigher2014
New member
- Joined
- May 12, 2016
- Messages
- 13
- Reaction score
- 0
- Points
- 0
Hi Everyone
i have this code 1 inside Code 2,
Code 2
Code 1
when i use code 2 it save the file as required by combining two cells "our0112". but what happens is when i add code 1 it simply opens outlook and adds the original file, and not the saved pdf. could someone please help with this.
also id like the the email to be sent to an email address that i have to the client that is select on the invoice (vlookup, i think). so if i select KN Group then the email that i have for that client would be used. eg sales@kn-group.ie and if i change the client on the invoice to GE Lighting then then email for that client would be used.
im sorry if it all sounds complicated.
ive attached my file as i thought that would help
thank you in advance
Paul
i have this code 1 inside Code 2,
Code 2
Code:
'Print the invoice to PDFSub PrintPDFInvoice()
'turn off screenupdating
Application.ScreenUpdating = False
If Range("N13") = "" Then
MsgBox "Please Enter The Invoice Date"
Exit Sub
ElseIf Range("N16") = "" Then
MsgBox "Please Enter The Start Date For Your Contract Hire"
Exit Sub
ElseIf Range("N17") = "" Then
MsgBox "Please Enter The End Date For Your Contract Hire"
Exit Sub
ElseIf Range("G12") = "" Then
MsgBox "Please add the company"
Exit Sub
End If
'open dialog and set file type
Opendialog = Application.GetSaveAsFilename(Sheet2.Range("N15") & Sheet2.Range("N14"), filefilter:="PDF Files (*.pdf), *.pdf", _
Title:="Save Me Baby!!")
'if no value is added for file name
If Opendialog = False Then
MsgBox "I take it you forgot to do something!!"
Exit Sub
End If
'set the named range for the PDF
Set MyRange = Sheet2.Range("G6:N54")
Sheet2.PageSetup.PrintArea = "G6:N54"
'create the PDF
On Error Resume Next
MyRange.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Sheet2.Range("N15") & Sheet2.Range("N14"), _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
On Error GoTo 0
'clear the page breaks
ActiveSheet.DisplayPageBreaks = False
Application.ScreenUpdating = False
Application.Dialogs(xlDialogSendMail).Show
End Sub
Code 1
Code:
Application.Dialogs(xlDialogSendMail).Show
when i use code 2 it save the file as required by combining two cells "our0112". but what happens is when i add code 1 it simply opens outlook and adds the original file, and not the saved pdf. could someone please help with this.
also id like the the email to be sent to an email address that i have to the client that is select on the invoice (vlookup, i think). so if i select KN Group then the email that i have for that client would be used. eg sales@kn-group.ie and if i change the client on the invoice to GE Lighting then then email for that client would be used.
im sorry if it all sounds complicated.
ive attached my file as i thought that would help
thank you in advance
Paul