Code for inserting a blank page for odd numbered worksheets

[Milos]

Hi all,

I am looking for a solution to a problem that has plagued me for a while.

I want to insert a new page break/ new blank page to ensure that all of the pages that will print are even (e.g. 2,4,6,8) for any given worksheet in a workbook.


e.g. If:

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]Sheet 1
[/TD]
[TD]Sheet 2
[/TD]
[TD]Sheet 3
[/TD]
[TD]Sheet 4
[/TD]
[TD]Sheet 5
[/TD]
[/TR]
[TR]
[TD]1 page
[/TD]
[TD]2 pages
[/TD]
[TD]3 pages
[/TD]
[TD]4 pages
[/TD]
[TD]5 pages
[/TD]
[/TR]
</tbody>[/TABLE]


THEN:

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]Sheet 1
[/TD]
[TD]Sheet 2
[/TD]
[TD]Sheet 3
[/TD]
[TD]Sheet 4
[/TD]
[TD]Sheet 5
[/TD]
[/TR]
[TR]
[TD]2 pages
[/TD]
[TD]2 pages
[/TD]
[TD]4 pages
[/TD]
[TD]4 pages
[/TD]
[TD]6 pages
[/TD]
[/TR]
</tbody>[/TABLE]


If anybody knows how I would code this your help would be greatly appreciated!

Thanks

 

[CsJHUN]

Hi!

My first suggestion -as i guess you select all sheets then print-:
select a sheet, then print; select next one then print; so on
Sample:

Sub Milos_print()
Application.ScreenUpdating = False
Do
sc = sc + 1
Sheets(sc).Select
ActiveSheet.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Loop Until sc = Sheets.Count
MsgBox ("Done")
End Sub

It will be a lil slower than selecting all the sheets, then sending to the printer