Need a macro that will print specific pages

[nplano1]

I need a macro that will print specific pages
I have a spreadsheet that can up to 30,000 rows in it, when I print this each page has 32 rows per page, 31 rows with data and 1 header row that repeats on each page, I have gone in to page layout, header / footer, custom header, and insert page number on every page. So total pages when I print is from 870 to sometimes over 1000
I need to evenly mix up and divide these pages over twelve workbooks that I print out, I'm looking to setup a macro that will print specific pages starting with page 1,13,25… all the way through then go to page 2,14,26… till it loops all the way through to page 12,24,36… for page numbers see chart.
If this is possible it would be great so I don’t have separate the pages by hand anymore.

Excel 2007
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W
1	BOOK 1		BOOK 2		BOOK 3		BOOK 4		BOOK 5		BOOK 6		BOOK 7		BOOK 8		BOOK 9		BOOK 10		BOOK 11		BOOK 12
2	Page 1		Page 2		Page 3		Page 4		Page 5		Page 6		Page 7		Page 8		Page 9		Page 10		Page 11		Page 12
3	P 13		P 14		P 15		P 16		P 17		P 18		P 19		P 20		P 21		P 22		P 23		P 24
4	P 25		P 26		P 27		P 28		P 29		P 30		P 31		P 32		P 33		P 34		P 35		P 36
5	37		38		39		40		41		42		43		44		45		46		47		48
6	49		50		51		52		53		54		55		56		57		58		59		60
7	61		62		63		64		65		66		67		68		69		70		71		72
8	73		74		75		76		77		78		79		80		81		82		83		84
9	85		86		87		88		89		90		91		92		93		94		95		96
10	97		98		99		100		101		102		103		104		105		106		107		108
11	109		110		111		112		113		114		115		116		117		118		119		120
12	121		122		123		124		125		126		127		128		129		130		131		132
13	133		134		135		136		137		138		139		140		141		142		143		144
14	145		146		147		148		149		150		151		152		153		154		155		156
15	157		158		159		160		161		162		163		164		165		166		167		168
16	169		170		171		172		173		174		175		176		177		178		179		180
17	181		182		183		184		185		186		187		188		189		190		191		192
18	193		194		195		196		197		198		199		200		201		202		203		204
19	205		206		207		208		209		210		211		212		213		214		215		216
20	217		218		219		220		221		222		223		224		225		226		227		228
21	229		230		231		232		233		234		235		236		237		238		239		240
Sheet1

 

[igold]

Is your 30,000 rows which prints 1000 pages all on one worksheet in one workbook. If that is the case I think I have a solution for you...

 

[nplano1]

Yes its all in one workbook and all on one sheet, here is a sample.

Excel 2007
	A	B	C	D	E	F	G	H	I	J	K	L
1	Phone	First	Last	House	Pre	Street	Post	Suffix	Unit	City	County	Zip
2	(000) 000-0000	Willie	Willie	16691		1st		St		Alva	Lee	11920
3	(000) 000-0001	Clayton	Willie	2406	E	2nd		St		Alva	Lee	11920
4	(000) 000-0002	Thomas	Willie	3404	E	3rd		St		Alva	Lee	11920
5	(000) 000-0003	Kenneth	Willie	4255	E	4th		St		Alva	Lee	11920
6	(000) 000-0004	Denesiz	Willie	2920		5th		St		Alva	Lee	11920
7	(000) 000-0005	Jack	Willie	6		6th		St		Alva	Lee	11920
8	(000) 000-0006	James	Willie	15686		7th		Dr		Alva	Lee	11920
9	(000) 000-0007	Curtis	Willie	2964		8th		Dr		Alva	Lee	11920
10	(000) 000-0008	Almed	Willie	2986		9th		Dr		Alva	Lee	11920
11	(000) 000-0009	Gregory	Willie	3109		10th		Dr		Alva	Lee	11920
12	(000) 000-0010	John	Willie	7		11th		St		Alva	Lee	11920
13	(000) 000-0011	Frank	Willie	1901		12th		Rd		Alva	Lee	11920
14	(000) 000-0012	Anne	Willie	2991		13th		Rd		Alva	Lee	11920
15	(000) 000-0013	Billy	Willie	3501		14th		Rd		Alva	Lee	11920
16	(000) 000-0014	Ricky	Willie	3671		15th		Rd		Alva	Lee	11920
17	(000) 000-0015	Randy	Willie	3771		16th		Rd		Alva	Lee	11920
18	(000) 000-0016	James	Willie	2351		17th		Dr		Alva	Lee	11920
19	(000) 000-0017	Gregory	Willie	20225		18th		Ln		Alva	Lee	11920
20	(000) 000-0018	Scott	Willie	2218		19th		Ave		Alva	Lee	11920
21	(000) 000-0019	Rudolf	Willie	21110		20th		Ct		Alva	Lee	11920
22	(000) 000-0020	Robert	Willie	1860		21st		Dr		Alva	Lee	11920
23	(000) 000-0021	Christiane	Willie	20635		22nd		Dr		Alva	Lee	11920
24	(000) 000-0022	Susan	Willie	21740		23rd		St		Alva	Lee	11920
25	(000) 000-0023	Samuel	Willie	2580		24th		Dr		Alva	Lee	11920
26	(000) 000-0024	Linda	Willie	2610		25th		Dr		Alva	Lee	11920
Sheet1