Writing a Macro For When Prining

Copper Contributor

I am totally new to macros.  Have viewed a number of Youtube video but am still totally lost.

 

I have a spreadsheet which prints as 3 pages at a time - page 1of3, 2of3, 3of3.

the first 3 rows are my print titles which repeat on each page.

In cell J3 of the print titles row I would like to be able print the same number on each of the 3 pages and then increase it on the next set of 3 pages being printed.

 

Example:  I want to print 10 copies of the three pages.  I want to start at 'any' number, for now lets say 001.  Thus 001  would print in cell J3 on each of the three pages.  then when the next 3 pages are being printed the number would be increased to  002 to printed in the cell.   then 003 until the 10 page print maximum has been reached.

 

the next time I open the spreadsheet to print I may want to print 20 copies starting at 011.  Thus for either the macro to be able either work on the basis of  the number of copies and the start number or to have a start and ending number that auto calculates the number of  copies which ever is the simplest process.

 

I have no idea where to start! 

3 Replies

@Vincem1377 

 

Maybe something like this...

'---

Sub PrintSomething()
Dim N As Long

For N = 1 To 10
Range("C3").Value = "00" & N
ActiveSheet.PrintOut
Next

End Sub

'--- 

 

Nothing Left to Lose 

https://1drv.ms/u/s!Au8Lyt79SOuhZw2MCH7_7MuLj04?e=sAwbHU 

(free excel programs)

Thank you! looking to try it out. Cheers
To: Vincem1377

Did the code work for you?

'---
Nothing Left To Lose