Print sheets

[Tom.Jones]

Hi,

I would like to print a table - 50 times - from excel, but on each printed sheet I would like the number 1, 2 ... 50 to appear.
The table is in the range A1:G20. On the first printed sheet appear the number 1 (in D22) on the second sheet appear 2 and so on.

 

[Joe4]

Try this:

Sub PrintMacro()

    Dim p As Long

    For p = 1 To 50
        Range("D22") = p
        ActiveSheet.Range("A1:G22").PrintOut
    Next p

End Sub

 

[queuesmef]

Try this macro...Make sure that the workbook is opened to the page that you would like printed AND update the "For count loop (For count = 1 to 4) to your maxim page number (50 in your case)!

Sub PrintMultiple()    Dim pageNum As Long
    Dim count As Long
    pageNum = 1
    
    
    With ActiveSheet
    
        For count = 1 To 4
            [d22] = pageNum
            .PrintOut
            pageNum = pageNum + 1
        Next count
        
    End With
    
End Sub

 

[Tom.Jones]

Thank you both.