Propietà di inetstazione

Hai un problema con Excel?

Nuova discussione

Propietà di inetstazione
di egly87 data: 30/03/2017 16:40:15
Ciao a tutti,
Qualcuno mi sa dire se c'è qualche possibilità per mettere delle celle specifiche(es. le prime 5 da Range("A1:A5")) nelle intestazioni della pagina?
& [='Foglio1'!C1] - ho trovato questa formula su internet ma non funziona...
Grazie
non c'è un codice VBA per questa cosa se esiste vi ringrazierei tantissimo per la scoperta
di Marius44 data: 30/03/2017 18:23:31
Ciao
dovresti spiegare meglio cosa intendi (magari allegando un file con la soluzione scritta a mano) perchè non capisco cosa vuoi ottenere.

Ciao,
Mario

di Albatros54 data: 30/03/2017 18:26:28
Incolla il codice sotto nel modulo ThisWorkbook.
Dai un'occhiata qua:
h t t p://www.cpearson.com/Excel/headfoot.htm
ciao
albatros54

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    For Each fg In ThisWorkbook.Sheets
fg.PageSetup.CenterHeader = "Tabella dei valori da " & Sheets("Foglio1").Range("A1").Value & " a " & Sheets("Foglio1").Range("A2").Value _
& "   " & Sheets("Foglio1").Range("A3").Value & "  " & Sheets("Foglio1").Range("A4").Value
    Next fg
End Sub

problemi pié paggina
di egly87 data: 04/04/2017 12:30:55
Guarda non riesco a far partire il codice l'ho messo do mi hai detto,ma non funziona ho provato un altro modo creando una sub come sotto, ma dopo la prima esecuzione se aggiorno non me lo fa
non so se ha quache soluzione grazie

Sub pie_stamp()


On Error Resume Next
With ActiveSheet.PageSetup
.CenterFooter = Worksheets("costruttore").Range("d1").Value & " " _
& Worksheets("costruttore").Range("A1").Value & " REV. 0" & Worksheets("costruttore").Range("h1").Value & " Per " & Worksheets("costruttore").Range("c1").Value
End With


End Sub

di Albatros54 data: 04/04/2017 18:36:14
incolla il codice cosi com'è nel modulo Thisworkbook, vai in anteprima di stampa e vedi l'intestazione.
ciao
albatros54

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    For Each fg In ThisWorkbook.Sheets
fg.PageSetup.CenterHeader = Sheets("costruttore").Range("d1").Value & " " & Sheets("costruttore").Range("A1").Value _
& "   Rev.  " & Sheets("costruttore").Range("h1").Value & "   Per  " & Sheets("costruttore").Range("c1").Value
    Next fg
End Sub

di egly87 data: 05/04/2017 09:35:39
Siccome in anteprima non mi usciva la prima volta pensavo che non me lo faceva.
ho provato a stamparlo anche in pdf quando stampavi mi faceva l'aggiornamento.
Grazie mile

Vuoi Approfondire?