How do I print a one page spreadsheet multiple time, each with i.

M

Malik

You might want to try this. I used the preview feature. You can use print.

There are may be techniques to setup one print call with new page numbers.
Option Explicit

Public Sub Printsheet()
Dim Counter As Integer
For Counter = 1 To 5
Call PrintSetup(Counter)
ActiveWindow.SelectedSheets.PrintPreview
Next Counter
End Sub

Sub PrintSetup(PageNumber As Integer)
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftFooter = PageNumber
End With
End Sub
 
J

Jacob Skaria

You can try out the below macro. If you are new to macros..

--Set the Security level to low/medium in (Tools|Macro|Security).
--From workbook launch VBE using short-key Alt+F11.
--From menu 'Insert' a module and paste the below code.
--Get back to Workbook.
--Run macro from Tools|Macro|Run <selected macro()>


Sub PrintMultiplewithFooterChange()
Dim intTemp As Integer
For intTemp = 1 To 50
ActiveSheet.PageSetup.CenterFooter = "Page " & intTemp & " of 50"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next intTemp
End Sub
 

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

MULTIPLE PRINT AREA 3
Can I put button on spreadsheet to make it print a specific part? 2
Multiple Spreadsheet Print problem 1
Excel shortcut options 0
HI!Need to make Cell formula change for each Pg Break in a Print T 1
How do I print formulas in a spreadsheet? 4
print spreadsheet 1
How do I count instances of a reference? 1

Top