Macro to automatically print invoices - the number of invoices changes daily

[helpmehelen]

I have the following code to automatically print invoices. I have the print area sorted and it runs ok but i need to change the 300. The number of invoices i need to print each day and I don't know what to replace the '300' with so it prints only the data i need, rather than 300 sheets each day.
On the first tab on my workbook i have a code to hide all rows i dont need on that day so could i link my code to this to pick up the number of rows to include maybe?

Dim i As Integer
For i = 1 To 300


Range("A2").Select
ActiveCell.FormulaR1C1 = i
Range("A1:AA55").Select
Selection.PrintOut Copies:=1


Next i
End Sub

Any help would be greatly appreciated- i am pretty new to coding so apologies if my explanation isnt too good!!

 

[James_Latimer]

We need to determine how we know what the 300 should be... what determines the number of invoices to print? It may be worth posting a copy of the workbook in question (without sensitive data of course).

 

[helpmehelen]

The number that will replace the 300 on a daily basis is picked up from another tab in the same workbook - cell M22 on a tab called company data

 

[James_Latimer]

Could you use...

Sub YourRoutine()

[COLOR=#333333]Dim i As Integer[/COLOR]
[COLOR=#333333]For i = 1 To Sheets("Company data").Range("M22").value[/COLOR]


[COLOR=#333333]Range("A2").Select[/COLOR]
[COLOR=#333333]ActiveCell.FormulaR1C1 = i[/COLOR]
[COLOR=#333333]Range("A1:AA55").Select[/COLOR]
[COLOR=#333333]Selection.PrintOut Copies:=1[/COLOR]


[COLOR=#333333]Next i[/COLOR]
[COLOR=#333333]End Sub[/COLOR]

 

[helpmehelen]

James you absolute legend...works a treat!! Thank you

 

[James_Latimer]

Always a pleasure. Good luck with it all mate!