con il file aperto
Alt+F11 (apri la finestra di VBA)
doppio click su "ThisWorkbok" che trovi nell'elenco di VBAproject
nella finestra bianca che si apre a destra ricopia pari pari queste istruzioni facendo attenzione alla sintassi:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = ActiveWorkbook.FullName
End Sub
di nuovo Alt+F11 per tornare al foglio di lavoro
una volta scritte queste tre righe di codice ogni volta che lanci la stampa ti scrive il piè di pagina.
saluti
Andrea
Edited by - a10n11 on 10/12/2005 18:09:22