You have 1 sheet that you want to number every other row with 1 to 12 in column A and print that, then renumber from 13 to 25 and print that, then ... and so on? What decides the number of times to print the sheet?
Pretty much, yes. The macro I'm using for numbering the sheet asks me how many pages I want to print. When I run the macro and input 10, it will print 10 pages, numbered 1 - 10 in cell A48. Instead of page numbers, I'd like to do something similar but will all the cells in column A. page 1 numbered 1 - 12. page 2, 13 - 24 and so on.
Macro I'm using for page numbers is below:
Sub IncrementPrint()
Dim xCount As Variant
Dim xScreen As Boolean
Dim I As Long
Dim xM As Long
Dim xMNWS As Worksheet
Dim xAWS As Worksheet
On Error Resume Next
LInput:
xCount = Application.InputBox("Please enter the number of copies you want to print:", "Kutools for Excel")
If TypeName(xCount) = "Boolean" Then Exit Sub
If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
GoTo LInput
Else
xScreen = Application.ScreenUpdating
Set xAWS = ActiveSheet
On Error GoTo EMarkNumberSheet
Set xMNWS = Sheets("IncrementPrint_MarkNumberSheet")
EMarkNumberSheet:
If xMNWS Is Nothing Then
Set xMNWS = Application.Worksheets.Add(Type:=xlWorksheet)
xMNWS.Name = "IncrementPrint_MarkNumberSheet"
xMNWS.Range("A48").Value = 0
xM = 0
xMNWS.Visible = xlSheetVeryHidden
Else
xM = xMNWS.Range("A48").Value
End If
Application.ScreenUpdating = False
For I = 1 To xCount
xM = xM + 1
xAWS.Range("A48").Value = " Page 00" & xM
xAWS.PrintOut
Next
xMNWS.Range("A48").Value = xM
xAWS.Range("A48").ClearContents
Application.ScreenUpdating = xScreen
End If
End Sub