Print page only if subtotal has a value

[SillySox]

I apologise if this should be two posts instead of one - please let me know if it should be. I have a 60,000 row 10 column spreadsheet that needs to be split at changes in text in col "c". This generally happens every 8 - 30 rows so the number of resulting pages is large.

I have tried MANY macros to do this but using Excel 2010 I ALWAYS crash on a line of code that contains xlPageBreakManual.
(When running this code I select the cell below the first row of data and all active cells below.)

e.g.

Please Login or Register  to view this content.

(or really anything with 'xlPageBreakManual'). Because of this I have bypassed the macro side of things and used the subtotal function to create the page breaks.

What I would like to do now is print ONLY those pages where the subtotal >0.

I have attached an example spreadsheet. is there a way of printing ONLY the pages that have a subtotal >0. Also, if there is a macro that can put the page breaks in instead of using the subtotals function that would also be great. The reason being - running the subtotal function over 60,000 lines is prohibitively slow or crashes the computer completely.

thanks

[jkj115]

Try this

Please Login or Register  to view this content.

[SillySox]

Thanks for this - seems to fail at

#ActiveSheet.PageSetup.PrintArea = pArea#

[jkj115]

i ran it and no errors...if you want send the file..but you should be able to figure it out from there