Drawing Page numbers onto PDF document

Thanks - most helpful. Here is a similar version for VBA in case others need it.

' In a module or class
Dim qp As DebenuPDFLibraryAX1014.PDFLibrary

'A sample using/doing pagenumbering with QuickPDF made by our user KerryWales:
'offset in points 1/72 of inch
'always measurement to nearest edge
'position
' 0 = bottom left
' 1 = top left
' 2 = top right
' 3 = bottom right

Private Sub RenumberPages(filename As String, startNumber As Long, outfile As String, position As Long, xOffset As Double, yOffset As Double)


    Dim pw As Double, ph As Double
    Dim pageNo As Long
    Dim xPos As Double
    Dim yPos As Double
    Dim fontID As Long
    Dim retval As Long
    Dim i As Long
    pageNo = startNumber
    retval = qp.LoadFromFile(filename, "")
    fontID = qp.AddStandardFont(4)
    Call qp.SelectFont(fontID)
    qp.SetTextSize (8)
   
    For i = pageNo To qp.PageCount() + pageNo - 1
  

        qp.SelectPage (i)
        qp.SetOrigin (1)
        qp.SetMeasurementUnits (0)
        qp.NormalizePage (1)

        pw = qp.PageWidth()
        ph = qp.PageHeight()

        'calc x & y based on where page number wanted
        Select Case (position)

        Case 0:
            xPos = xOffset
            yPos = ph - yOffset

        Case 1:
            xPos = xOffset
            yPos = yOffset

        Case 2:
            xPos = pw - xOffset
            yPos = yOffset
        Case Else:

            xPos = pw - xOffset
            yPos = ph - yOffset

        End Select
       
        qp.SetTransparency (50)
        Call qp.DrawBox(xPos - 10, yPos - 15, 100, 20, 1) ' 1= fill
        qp.SetTransparency (0)
        retval = qp.DrawText(xPos, yPos, "[Credit Page " & Format(i, "000") & "]")
        If Not retval Then
            ' error or warning...
        End If
    Next
    retval = qp.SaveToFile(outfile)
    If Not retval Then
            ' error or warning...
        End If
End Sub