Stampare numeri progressivi di pagine dello stesso foglio excel

Question

Buongiorno a tutti;

Ho una solo foglio excel. Di questo foglio dovrei stampare 31 pagine numerate per un registro. Vorrei che ad ogni foglio corrispondesse un numero progressivo a piè di pagina. 1-2-3-4-5-6....31 etc. Come fare?

Vi ringrazio

Answer 1

Buongiorno a tutti;

Ho una solo foglio excel. Di questo foglio dovrei stampare 31 pagine numerate per un registro. Vorrei che ad ogni foglio corrispondesse un numero progressivo a piè di pagina. 1-2-3-4-5-6....31 etc. Come fare?

Vi ringrazio

Non ho capito.

Se vuoi stampare la stessa pagina per 31 volte aumentando via via il numero progressivo nel piè di pagina, ad esempio:

Public Sub m()

    Dim sh As Worksheet

    Dim lng As Long

    Application.ScreenUpdating = False

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    For lng = 1 To 31

        With sh

            .PageSetup.CenterFooter = lng

            .PrintOut

        End With

    Next

    Application.ScreenUpdating = True

    Set sh = Nothing

End Sub

Qui scrivo 1, 2, ...., 31 al centro nel piè di pagina. Per scrivere a dx o a sx nel piè di pagina, sostituisci:

.PageSetup..CenterFooter = lng

con

.PageSetup..RightFooter = lng   per scrivere a dx

.PageSetup..LeftFooter = lng      per scrivere a sx