Macro che inserisca numeri di pagina e stampi solo se....

Question

Salve a tutti,

ho trovato nella discussione

http://answers.microsoft.com/it-it/office/forum/office_2007-excel/macro-che-inserisca-numeri-di-pagina-e-stampi-solo/092ddcc9-265a-45d8-985b-b5be6bd6661f

una risposta a un problema analogo al mio

La sola differenza è che dovrei andare in stampa con la cella A17 compilata invece della A1. ( per motivi di modulistica mi deve rimanere vuota )

Ho provato in diversi modi a modificare la macro descritta, ma non ne sono venuto a capo.

Questa è l’impostazione che attualmente ho dato alla macro ( ho 4 pag. di 42 righe )

Sub Stampa()

    Dim lTot As Long

    Dim lCont As Long

    Dim lng As Long

Dim sh As Worksheet

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    lTot = 0

    lCont = 0

    With sh

        For lng = 1 To 168 Step 42

            If .Cells(lng, 1).Value <> "" Then

                lTot = lTot + 1

            End If

        Next

        For lng = 1 To 168 Step 42

            If .Cells(lng, 1).Value <> "" Then

                lCont = lCont + 1

.Cells(lng + 41, 1).Value = _

                    "Pagina: " & lCont & " di Pagine: " & lTot

.PageSetup.PrintArea = "A" & lng & ": N" & lng + 41

                .PrintOut

                .PageSetup.PrintArea = ""

            End If

        Next

        .Range("A42,A84,A126,A168").Value = ""

End With

    Set sh = Nothing

End Sub

Spero ci sia un utente che mi possa aiutare a risolvere il problema

Grazie

Answer 1

Non saprei cos' altro aggiungere

Grazie

Io sì. L'errore che ti restituisce, il messaggio, perchè non lo hai ancora postato. Cosa c'è scritto nel messaggio di errore? La macro, la copi in un modulo standard? Il file deve essere in formato .xls o .xlsm. Vedi qui l'esempio:

http://www.maurogsc.eu/esempiforum11/stampa4pagine.zip

--

La soluzione, il codice ed i files sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dalla soluzione proposta se usata impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare il codice o la soluzione in files importanti.

--

Mauro Gamberini - Microsoft© MVP(Excel)

http://www.maurogsc.eu

Answer 2

Grazie 1000. Tutto Risolto

Grazie a te per la pazienza ed il cortese riscontro. Buon lavoro.

Answer 3

Grazie 1000. Tutto Risolto