Printing 1 of ? pages.

[stumpy]

Is it possible to print two copies of the same sheet onto one sheet (A5 onto
A4 size)
and have each A5 sheet numbered 1 of 2, 2 of 2 even though thy are on one
sheet.
I can print one sheet at a time numbered 1 of ?, 2 of ? ... up to a number
entered in cell I2 using:-

Sub PrintCopies_ActiveSheet_()
Dim CopiesCount As Long
Dim CopieNumber As Long

CopiesCount =Range("I2")
For CopieNumber = 1 to CopiesCount
With ActiveSheet
.Range("C12").Value = CopieNumber & " of " & CopiesCount
.PrintOut
End With
Next CopieNumber
End Sub

Is it possible to print two onto one still having them numbered 1 of ? ,2 of
?.
Any help is much appreciated.

 

[Shane Devenshire]

Hi,

I don't think this is possible in Excel.

 

[jaf]

Hi,
You would have to duplicate the range beside your current range and change the print area.

John