Print template with changing numbering

Hi, guys,

I need help. The issue is that I have a template, I need to print 120 copies of it. The whole structure of the template does not change except for the numbers of the each template, for example, first printed template should have a number QSA1, second QSA2, etc.
It can be done manually, however changing numbers in each template and printing them will take a lot of time.

Thank you

It can be done with VBA

Option Explicit

Sub PrintSht()
Dim iX As Integer
Dim PgCopy As String
For iX = 1 To 120
PgCopy = "QSA" & iX
Cells(1, 1).Value = PgCopy '<- puts number in A1
ActiveSheet.PrintPreview '<just for testing
'ActiveSheet.PrintOut    '<- print sheet
Next iX
End Sub

Thank you, all
Especially royUK, your code works well.
Could you just add one more line for option to select number of copies, for example, 10 instead of 120

Here's a similar example that you could adapt

Try this

Option Explicit
Sub PrintSht()
    Dim iX As Integer
    Dim FirstNumber As Integer
    Dim LastNumber As Integer
    Dim PgCopy As String

    FirstNumber = Application.InputBox(prompt:="Enter first number", Type:=1)
    If FirstNumber > 1 Then GoTo exit_proc
    
    LastNumber = Application.InputBox(prompt:="Enter last number", Type:=1)
    If LastNumber > 1 Then GoTo exit_proc

    For iX = FirstNumber To LastNumber
        PgCopy = "QSA" & iX
        Cells(1, 1).Value = PgCopy    '<- puts number in A1
        ActiveSheet.PrintPreview    '<just for testing
        'ActiveSheet.PrintOut    '<- print sheet
    Next iX
    Exit Sub
exit_proc:
    'no number entered
    MsgBox "You must enter a number", vbCritical, "Cancelled"
End Sub

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save