Printing 1 of ? pages.

S

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.
 
J

jaf

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

John
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Auto increment & print three copies 5
Make VBA ComboBox_Change work in 3 sheets 1
Excel Already selected values from DropDown list dynamically updating on multiple sheets 10
Copy unique values problem 5
Unprotect Sheet for the duration of a script 7
Two A5 pages on one A4 page 4
Very strange behaviour of VLOOKUP in Excel 2010 4
VBA Macro - Copying specific data to different sheets in a workbookand linking the InputBox to a com 7

Top