page numbering when printing

[vejv]

Hi,
I searched but couldn't find a solution to my problem.
I would need to print one page on sheet 1, but to have the number 00001 in cell AJ1, which increases with each copy. So each page will have its own number.
How to do it, thank you
(excuse english, i use google translator)

 

[maabadi]

Welcome to MrExcel Message Board.
Please Test This:

Sub PrintwithFooter()

Dim ws As Worksheet
Dim y As Long
Dim z As String

Application.ScreenUpdating = False

Set ws = Worksheets("Sheet1")
y = ws.Range("AJ1").Value
z = Application.WorksheetFunction.Text(y, "00000")
Debug.Print y
Application.ActiveSheet.PageSetup.CenterFooter = z
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=z _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=True
ws.Range("AJ1").Value = y + 1
Debug.Print ws.Range("AJ1").Value
Application.ScreenUpdating = True
End Sub

 

[vejv]

I tried and it reports an error on this line
Set ws = Worksheets ("Sheet1")