sassy
New Member
- Joined
- Feb 23, 2009
- Messages
- 38
Hi, I am trying to export multiple sheets in a workbook to one single PDF. there are sheets in the workbook that i do not want exported. i have the code to export the single active sheet, but can't seem to find the code to work to export multiple sheets without sending the entire workbook. Also, I get the name of the file from one of the sheets and don't want to loose that ability, if possible.
this is what i have...
Private Sub ExportToPDF()
Sheets("QA Sheet 1").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="M:\Data\ Team Files\Audit Database\Audits\" & ActiveSheet.Range("E1") & " MARP.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=True, OpenAfterPublish:=True
End Sub
Can anyone help!!!!
this is what i have...
Private Sub ExportToPDF()
Sheets("QA Sheet 1").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="M:\Data\ Team Files\Audit Database\Audits\" & ActiveSheet.Range("E1") & " MARP.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=True, OpenAfterPublish:=True
End Sub
Can anyone help!!!!