Personalizzazione intestazione

Hai un problema con Excel?

Nuova discussione

Personalizzazione intestazione
di Nabba72 (utente non iscritto) data: 08/03/2011
Eccomi di nuovo,
volevo chiedere se esiste un modo per personalizzare l'intestazione di pagina facendogli riportare un valore scritto in una apposita cella?
mi spiego meglio: devo stampare un listino che ha validità fino al 26/03/2011. questa data di validità è riportata in una apposita cella che viene periodicamente aggiornata.
vorrei che stampando il foglio venisse in automatico riportata in intestazione di pagina la data di validità.
di Franco_44 (utente non iscritto) data: 09/03/2011
Ciao
per quanto ne so io nell'intestazione puoi stampare la path del file, ma non il contenuto di una cella. però, se nella cella inserisci la data di validità e vuoi che venga stampata quella, cosa ti impedisce di stampare il foglio con quella cella?
di Isy (utente non iscritto) data: 09/03/2011
Ciao

prova col registratore macro ad inserire il testo dell'intestazione poi sfrutta l'evento:
private sub workbook_beforeprint(cancel as boolean)
per aggiungere la data della cella.
di Nabba72 (utente non iscritto) data: 09/03/2011
Scusa ma non ho ben capito cosa devo fare. puoi spiegarmi meglio?
di Albatros54 (utente non iscritto) data: 09/03/2011
Forse questo spezzone di codice , se lo adatti alle tue esigenze , fa quello che chiedi, k1 e' la cella che contiene il tuo dato.
ciao
albatros54
Public Sub stampa() With ActiveSheet.PageSetup .LeftHeader = "&""Arial,Grassetto""&9" & Range("k1").Value End With End Sub

di Isy (utente non iscritto) data: 09/03/2011
Ciao
in thisworkbook inserisci il codice

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Codice da eseguire prima della stampa
End Sub

di Salvatore (utente non iscritto) data: 09/03/2011
Scusate se mi intrometto ma ho un problema simile

io vorrei che il piè di pagina sia uguale al nome di una persona (questo nome è scritto nella cella a3) come devo fare per far stampare il foglio con il piè di pagina con quel nome?

grazie salvatore
di Isy (utente non iscritto) data: 09/03/2011
Ciao

vedi allegato
di Salvatore (utente non iscritto) data: 10/03/2011
Ciao grazie ma ci sono due allegati quale devo copiare e dove? se vado in workbook e metto quello che hai detto prima non mi fa nulla,
di Isy (utente non iscritto) data: 10/03/2011
Ciao

hai l'esempio da scericare col titolo:
stampa intestazione.xls

l'icona la trovi in alto a destra con scritto "allegati:"

di Ricky53 (utente non iscritto) data: 11/03/2011
Ciao
prova con queste istruzioni

    With ActiveSheet.PageSetup
        .LeftFooter = [A1]
        .CenterFooter = "&P"
    End With

di Salvatore (utente non iscritto) data: 11/03/2011
Allora ho provato ma si blocca, puo essere perchè ho modificato il codice il codice scrivendo che il valore del pie di pagina deve essere preso dalla cella a3 per di quella che sta nel foglio2?

Vuoi Approfondire?