Printing an incrementing table value for each print

[DThib]

Hi,
I am trying to figure code to take a column of numbers (1-27) and when printed move the entire set to (28-55), etc.
The form is printed, and these numbers would be the line count for each sheet.

No idea how to start coding this, help!!!!!

 

[DThib]

Where are these 26 rows? Are they on sheet 1, 2, 3 etc, what is the sheet name? Are they in column A, B, C etc? How many columns are included?


What next sheet? Is the print range moving down the sheet, is it moving to the next worksheet tab, is it staying in the same place on the same sheet and the data is moving somewhere else or being deleted?

When I asked for specific details, this is what I meant... I can't help if you just keep giving me vague descriptions. I know it makes sense to you, but I know absolutely nothing of your data and what it looks like.

So here is the sheet. Column G is the RR #. The Excel has one sheet at the moment, and it will be QA controlled.
View attachment 105919
This sheet will be printed out.

 

[DThib]

Where are these 26 rows? Are they on sheet 1, 2, 3 etc, what is the sheet name? Are they in column A, B, C etc? How many columns are included?


What next sheet? Is the print range moving down the sheet, is it moving to the next worksheet tab, is it staying in the same place on the same sheet and the data is moving somewhere else or being deleted?

When I asked for specific details, this is what I meant... I can't help if you just keep giving me vague descriptions. I know it makes sense to you, but I know absolutely nothing of your data and what it looks like.

The column that holds the RR number is G. There is only one (1) sheet in the workbook for now. It is a QA controlled document. The sheet will be printed out for use.

26 rows. Column G would revise the number to the new value after printing.

 

[dreid1011]

The column that holds the RR number is G. There is only one (1) sheet in the workbook for now. It is a QA controlled document. The sheet will be printed out for use.
View attachment 105921
26 rows. Column G would revise the number to the new value after printing.

Do you want the macro to trigger the print or have the macro trigger after the print?

 

[DThib]

Do you want the macro to trigger the print or have the macro trigger after the print?

After the print, the macro could fill the next series of numbers. That way the control will be the number of pages printed.

 

[dreid1011]

After the print, the macro could fill the next series of numbers. That way the control will be the number of pages printed.

So, if you were to print 5 copies at once, you would want each copy to have a unique range of report numbers?

 

[DThib]

So, if you were to print 5 copies at once, you would want each copy to have a unique range of report numbers?

Yes, the RR number follows the item as its record.

 

[dreid1011]

Yes, the RR number follows the item as its record.

It may be easiest to have the macro control the print so that the code can run between each copy. I am not sure if the code can intercept the printing between each copy once the command is sent to the printer if you want more than 1 at a time.

 

[DThib]

It may be easiest to have the macro control the print so that the code can run between each copy. I am not sure if the code can intercept the printing between each copy once the command is sent to the printer if you want more than 1 at a time.

That would work, thank you

 

[dreid1011]

That would work, thank you

Okay, give this a try:

This assumes the last line is always G29, if that is not accurate, let me know and it can be adjusted. The user will be prompted to enter the number of copies to print, then print the first copy, renumber the list, print the second, renumber, print, etc.

Sub PrintReports()
Dim repNum As Long, copyNum As Long, i As Long, j As Long
repNum = Right(Range("G29").Value, 6) + 0
copyNum = InputBox("Number of copies to print:", "Print Copies")

For j = 1 To copyNum
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    For i = 3 To 29
        repNum = repNum + 1
        Range("G" & i).Value = "RR " & Format(repNum, "0#####")
    Next i
Next j
End Sub

 

[DThib]

Okay, give this a try:

This assumes the last line is always G29, if that is not accurate, let me know and it can be adjusted. The user will be prompted to enter the number of copies to print, then print the first copy, renumber the list, print the second, renumber, print, etc.

Sub PrintReports()
Dim repNum As Long, copyNum As Long, i As Long, j As Long
repNum = Right(Range("G29").Value, 6) + 0
copyNum = InputBox("Number of copies to print:", "Print Copies")

For j = 1 To copyNum
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    For i = 3 To 29
        repNum = repNum + 1
        Range("G" & i).Value = "RR " & Format(repNum, "0#####")
    Next i
Next j
End Sub

Thank you!!!
It work. QA will be happy.