uncle_buck
New Member
- Joined
- Apr 19, 2013
- Messages
- 3
Hello,
I've recorded the following macro:
Sub email_fred_fax()
'
' email_fred_fax Macro
' self explanitory
'
'
Sheets("FRED FAX").Select
Sheets("FRED FAX").Copy
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Documents and Settings\John\My Documents\fred fax.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\DOCUME~1\John\LOCALS~1\Temp\Book2.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Application.Dialogs(xlDialogSendMail).Show
ActiveWindow.Close
End Sub
However, when I go and run it, it doesn't attach as a .pdf.
Any help would be appreciated. Thanks!
I've recorded the following macro:
Sub email_fred_fax()
'
' email_fred_fax Macro
' self explanitory
'
'
Sheets("FRED FAX").Select
Sheets("FRED FAX").Copy
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Documents and Settings\John\My Documents\fred fax.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\DOCUME~1\John\LOCALS~1\Temp\Book2.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Application.Dialogs(xlDialogSendMail).Show
ActiveWindow.Close
End Sub
However, when I go and run it, it doesn't attach as a .pdf.
Any help would be appreciated. Thanks!