VBA to Print a Variable Quantity of Sheets with Page Numbers

Copy each sheet n times in a new workbook then print all the nine sheets from the new workbook.

Range A1 has the number of copies per sheet.

Sub n_Sheets_Print()
    
    Dim ws As Worksheet
    Dim wb As Workbook
    
    Application.ScreenUpdating = False
    
    For Each ws In ThisWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet3"))
        For i = 1 To ws.Range("A1").Value
            If wb Is Nothing Then
                ws.copy
                Set wb = ActiveWorkbook
            Else
                ws.copy After:=wb.Sheets(wb.Sheets.Count)
            End If
        Next i
    Next ws
    
    wb.Sheets.Select
    wb.Sheets.PrintOut
    
    wb.Close SaveChanges:=False
    Application.ScreenUpdating = True
                
End Sub