adding up totals when printing

Posted by Bob on June 29, 2001 5:06 AM

I have a sheet with ten dockets on. they are all numbered, taking their base from one cell. What i want to do is set this up so i can print multiple pages and they always add numbers to the first cell o the first page is 1001 to 1010, the nex page is 1011 to 1020 etc. Up to now i have been doing this manually, a page at a time.

Posted by mseyf on June 29, 2001 1:59 PM

I'm not sure I fully understand your question, but you could try something like:

Sub TestPrint()
Dim X As Integer

Range("a1").Value = 1001
For X = 1 To 5 'number of pages to print
If X > 1 Then
Range("a1").Value = Range("a1").Value + 10
End If
ActiveSheet.PrintOut
Next

End Sub

-Mark