Results 1 to 4 of 4
  1. #1
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Number of page... (2000 sr-1)

    Type RightFooter somewhere in the Visual Basic Editor and press F1 to get help.

  2. #2
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Number of page... (2000 sr-1)

    I have thispiece of code to print area.
    how to insert in bootom of sheet the number of page with a var?

    this code print 5 sheet area to the default.
    and i want to use to print page the value of for next routine.
    Example:
    page I of I in footer right font arial 8

    With ELENCO
    For I = 1 To 5
    ActiveSheet.PageSetup.PrintArea = Cells(1, PRIMA_COLONNA).Resize(RIGA_MAX, COLONNA_MAX).Address(True, True, xlA1)

    ActiveWindow.ActiveSheet.PrintOut Copies:=1, Collate:=True


    PRIMA_COLONNA = PRIMA_COLONNA + COLONNA_MAX + 1

    Next I
    End With

  3. #3
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Number of page... (2000 sr-1)

    With ActiveSheet.PageSetup
    .RightFooter = "PAGINA " & RIGA & "DI 5"
    End With
    ...

    but to set font Arial 8 Grassetto?

  4. #4
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Number of page... (2000 sr-1)

    The Help file contains a link to see the available formatting codes.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •