Printing Consecutive Numbers
 

Im trying to set-up a label template in Excel, this label
pulls in data from a number of sources based upon menus
within the excel sheet. All works well.
Except, how can I get Excel to print say 30 labels each
with a consecutive number on them, ie a serial number.

Hope somebody can help,
Thanks..

Printing Consecutive Numbers
 

This is one I "prepared earlier". There are 2 bills per sheet and 29
bills altogether. The number cell of the 2nd. bill on the worksheet
(range name "Number") refers to the number of the top bill and adds 1
with the formula :-
=IF(Number<=28,Number+1,1)
'---------------------------------------------------------
Sub PRINT_ALL_eBILLS()
'--------------------------
rsp = MsgBox("About to print all Electicity bills." & vbCr _
& "OK to proceed ?", vbYesNo, "PRINT BILLS")
If rsp <vbYesThen End
'---------------------------
Dim MyBill As Worksheet
Set MyBill = ThisWorkbook.Worksheets("Electricity Bills")
Application.Goto reference:=MyBill.Range("A1")
'-
For b = 1 To 29 Step 2
MyBill.Range("Number").Value = b
'MyBill.PrintPreview ' for test purposes & commented out
MyBill.PrintOut Copies:=1
Next
End Sub
'--------------------------------------------------------



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

Printing Consecutive Numbers
 

Sorry - (range name "Number") is the number cell of the top bill.



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/