Macro to pdf multiple worksheets from one workbook

[ljuarez714]

With the help of this forum I have created a macro that will: 1) exctract multple worksheets from a workbook and save each one on a desktop folder (named "AP" with each excel file named as the worksheet name 2) I have also created another macro that will extract each worksheet from the workbook and save it as a PDF. I've combined both but have some issues.

What I want to do is keep the extracted worksheets as new workbooks (#1 above) and
1) save a pdf version of each workbook in the same folder.
2) I want the PDF file to have the same name as the worksheet and add "delinquency report" to the end of all file names.
3) I want the PDF file to save where the extracted worksheets are being saved - C:\Documents and Settings\Desktop\AP\.

What is happening is the PDF is being saved to the My Documents folder with the name Book 1, Book 2, etc.

Here is the code I have:

Please Login or Register  to view this content.

[jolivanes]

If you change

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

Is that what you mean?

[jaslake]

Hi ljuarez714

This is the Code I use to do as you describe

Please Login or Register  to view this content.

[jolivanes]

Maybe you want to adapt the attached workbook.
That'll give you some more choices.

[ljuarez714]

Hi jeslake, I get a runtime error 1004. When I go to debug, the following section is highlighted.

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strfilepath & strPdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

[jaslake]

Hi ljuarez714

You'll get that error if this does not exist or is not entered properly...check it carefully

Please Login or Register  to view this content.