Printing Consecutive Numbers

  • Thread starter Thread starter RoJ
  • Start date Start date
R

RoJ

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..
 
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
'--------------------------------------------------------
 
Back
Top