I want to be able to print off the numbers from my check runs. I would key in
the range but I want to print it off 1 check number per page.

Do you mean print the same page multiple times with different numbers in
sequence. In the below macro the sequence numbers are formatted to print as
6 numerics (zero padded). You can adjust the range to suit..

Sub PrintTemplate()
Range("A1").NumberFormat = "@"
For varNum = 100 To 500
Range("A1") = Format(varNum, "000000")
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Bonni" wrote:

I want to be able to print off the numbers from my check runs. I would key in
the range but I want to print it off 1 check number per page.

This would probably help if I knew how to set it up. I've never worked with
macros. But to answer your question, I would feed in my "remit" papers to
the copier and have the check number print on them in a particular spot.
"right now we're are all writing them on the copies which takes us an hour
each." Can you still help?

"Jacob Skaria" wrote:

Do you mean print the same page multiple times with different numbers in
sequence. In the below macro the sequence numbers are formatted to print as
6 numerics (zero padded). You can adjust the range to suit..

Sub PrintTemplate()
Range("A1").NumberFormat = "@"
For varNum = 100 To 500
Range("A1") = Format(varNum, "000000")
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Bonni" wrote:

I want to be able to print off the numbers from my check runs. I would key in
the range but I want to print it off 1 check number per page.

Fine Bonni, here we go..

--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()

The changes to the macro
--Mention the cell ..Right now it is mentioned as Range("A1")
--For doing a test you can give a smaller range 100 to 105
--The number of zeroes in Format(varNum, "000000") needs to be adjusted to
suit your requirement
--Now set the sheet to print exactly to one page (by default) and try the
macro...


If this post helps click Yes
---------------
Jacob Skaria


"Bonni" wrote:

This would probably help if I knew how to set it up. I've never worked with
macros. But to answer your question, I would feed in my "remit" papers to
the copier and have the check number print on them in a particular spot.
"right now we're are all writing them on the copies which takes us an hour
each." Can you still help?

"Jacob Skaria" wrote:

Do you mean print the same page multiple times with different numbers in
sequence. In the below macro the sequence numbers are formatted to print as
6 numerics (zero padded). You can adjust the range to suit..

Sub PrintTemplate()
Range("A1").NumberFormat = "@"
For varNum = 100 To 500
Range("A1") = Format(varNum, "000000")
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Bonni" wrote:

I want to be able to print off the numbers from my check runs. I would key in
the range but I want to print it off 1 check number per page.