Help with Print pdf copies of the worksheets

Re-posting with the attachment

Hello,


I need a macro for the below situation. As always thanks in advance for your help.


Excel file - I have a file with multiple worksheets and the number of worksheets always changes. Page setup and everything is already set up for all the worksheets.

I want separate pdfs to be created for the worksheets but want to bundle up the 2 worksheets together. Explaining in detail below

- 1st worksheet is the master tab so need be printed in a pdf with the name as per the worksheet name.
- 2nd and 3rd worksheet to be printed in one pdf, renaming them with the name of 3rd worksheet name.
- 4th and 5th worksheet to be printed in one pdf, renaming them with the name of 5th worksheet name.
- 6th and 7th worksheet to be printed in one pdf, renaming them with the name of 7th worksheet name.

The number of worksheets will be different each time i run the macro but they should be printed as described above - in a pair leaving the 1st tab.
Everything should be saved in the same folder where the source file and macro is... thanks a lot in advance.

Regards,

Can you please help with something more to this..

I would like to add some actions to the above macro script.

Can we have autofit for the Row 6 on all the worksheets and once autofit is done can we increase row height for them by "+2" ?

Problem is that the Row 6 is the header but contents are not getting printed properly in the pdf; top text portion of the cells is not coming properly in the pdfs.

Thanks in advance for all your help.

Originally Posted by daffodil11

I got it to work with this:

Sub Macro1()

Sheets(1).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ActiveWorkbook.Path & "\" & Sheets(1).Name & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

For i = 3 To Sheets.Count Step 2

Sheets(Array(Sheets(i - 1).Name, Sheets(i).Name)).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ActiveWorkbook.Path & "\" & Sheets(i).Name & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
        
        
Next

End Sub

Wow. thank you so much. Worked like a charm. I was going crazy