Need to create a single pdf that includes 4 pages created from the same Worksheet

[button clicker]

Hello friends,

I need to create a single pdf that includes 4 pages. The data for each sheet is on the same data set. I'd like to retain the row headers (ID) on each page and have a separate unique column on each page. I've included a wb with dummy data. I'm able to accomplish this if i split them up into their own sheets and loop through them(not what i need). however, my actual data set is much larger and would require me to duplicate data on too many extra worksheets. i'm thinking there is a more efficient way to accomplish this without duplicating data on additional sheets. I'm looking for a vba solution.

***Id Like to save as 1 PDF file that contains 4 pages
Pg1 - Has Column A and B
pg2 - has column A and C
Pg3 - has column A and D
Pg4 - has column A and E

Really appreciate any advice,
Thanks

[Crooza]

try this Macro. it assumes all your data starts in A3 and the only variable is the number of rows you have.

I simply recorded a macro then manipulated the row numbers to be variable. Depending on your printer set up you may need to amend the last section that prints to PDF but if that happened manually record that and paste the relevant code in to this macro

Please Login or Register  to view this content.

[ikboy]

This code need 2007 with sp2 or higher

Please Login or Register  to view this content.

[jolivanes]

Another possibility

Please Login or Register  to view this content.

[jolivanes]

In case you want/need pagebreaks.

Please Login or Register  to view this content.