Numbering rows when printing

[srctr]

I want to be able to print a form and have certain rows be numbered when they
print. For example the first time I print it I may print 2 copies and I want
rows 5 thru 24 to number on the 1st page 1-20, 2nd page 21-40, etc. If I
need to print again this time I want the rows to be numbered 41-60. It is an
sign up sheet and we need to have a unique sheet that keeps a running tally.

I would like this instead of creating one long worksheet with all the rows
numbered from 1 thru 300. I suspect it would be a macro where I would have
to enter at least the beginning row number.

Thanks for any help

 

[Bernie Deitrick]

In a cell on row 5, say A5, put the number 1. In the cell below, use a formula like

=A5+1

and copy down for 20 rows.

Then print, and enter 21 into cell A5, and print again. Then 41, etc.

A macro to use once the formulas are set up is (assuming your activesheet is the one you want to
print):

Sub PrintMySheet()
Dim i As Integer

For i = 1 to 281 Step 20
Range("A5").Value = i
Application.CalculateFull
Activesheet.PrintOut
Next i
End Sub

HTH,
Bernie
MS Excel MVP

 

[srctr]

It almost works. It prints the first page no problem, then it renumbers but
doesn't print the next page. It gets stuck, then Microsoft Error comes up
asking if I want to send report of error.

Also I would like to be prompted as to what numbers to print.

 

[Bernie Deitrick]

Do you have a lot of formulas, or recursive formulas? The macro worked fine
for me.... try this one, written to print the numbers that you want:

Sub PrintMySheet2()
Dim i As Integer
Dim iStart As Integer
Dim iStop As Integer

iStart = InputBox("What number to start with?")

iStop = InputBox("What number to finish with?")

For i = iStart To iStop Step 20
Range("A5").Value = i
ActiveSheet.PrintOut
Next i
End Sub

HTH,
Bernie
MS Excel MVP

 

[srctr]

No, the only formula I have in this sheet is the one for number the row. No
Header/footers, no repeating of rows or columns, no print area defined. It
is just a basic sheet I print out to use as a sign up sheet. I have a few
merged cells, cells that the text is rotated and an image. So basically the
first 4 rows are my header for the sheet.

I tried your 2nd printing option and it is worse. Numbers the first page,
starts to print, but stays stuck on printing, puts all my rows to other
sizes. Then gives me the same Error that Microsoft Excel has encounterd a
problem and needs to close.

I even tried it in a new blank worksheet with the only thing in it is the
Row numbering and it doesn't work.

 

[Bernie Deitrick]

I have never had that problem with my set-up: it might be a printer problem, memory, network....
sorry that I can't be of more help.

Bernie
MS Excel MVP

 

[srctr]

We do have a network here and the file is on the server. But the printer is
attached to my computer. But also tried sending to other printers on the
network. Same problem. Very frustrating not to be able to do a simple macro
to print a series. Shouldn't be this complicated.

 

[srctr]

This is the error I get:

It is an Error signature
AppName: excel.exe
AppVer: 11.0.8237.0
AppStamp: 48eff43b
ModName: mso.dll
ModVer: 11.08221.0
ModStamp: 483c699a
IDebug: 0
Offset: 001a7d0e

Any ideas, some searching is coming up with something about a Beta Version
of Multilingueal Ueser Interface Pack

Help