inserire numero pagina in una cella

[John]

Come si può inserire in una cella excel il numero di pagine totali del
documento?

[Norman Jones]

Ciao John,

'-------------
Come si può inserire in una cella excel il numero di pagine
totali del documento?
'-------------

Un modo:

Crea un nome definito:

Menu | Inserisci | Nome |Definisci
Nome Pagine |
Riferito a : = INFO.DOC(50)

[nella mia versione inglese sarebbe = Get.Document(50)]

Adesso poi utilizzare il nome definito in un cella cos;':
=Pagine

N.B.

- il valore non si aggiornera' automaticamente

- per evitare un 'crash' NON prova a copiare la
formula in un altro foglio

Se preferisci, potrei postare una funzione utente (UDF).



---
Regards,
Norman

[ivano]

Post by Norman Jones
Ciao John,
'-------------
Come si può inserire in una cella excel il numero di pagine
totali del documento?
'-------------
Menu | Inserisci | Nome |Definisci
Nome Pagine |
Riferito a : = INFO.DOC(50)

Ma le vecchie 4.0 non erano una lingua morta? :-)
ivano

[Norman Jones]

Ciao Ivano,

Post by ivano
Ma le vecchie 4.0 non erano una lingua morta? :-)

Mea culpa!! <VBG>

Saluti!

---
Regards,
Norman

[ivano]

Post by Norman Jones
Ciao Ivano,

Post by ivano
Ma le vecchie 4.0 non erano una lingua morta? :-)

Mea culpa!! <VBG>
Saluti!

Toglimi una curiosità, Norman:
Come mai trovo spesso in un codice vba l'applicazione di questa formula
=get.documents(50)?
Non è ricostruibile con i codici vba?
ivano

[Norman Jones]

Ciao Ivano,

'---------------
Toglimi una curiosità, Norman:
Come mai trovo spesso in un codice vba l'applicazione di questa formula
=get.documents(50)?
Non è ricostruibile con i codici vba?

'---------------

Ogni tanto i vecchi metodi sono migliori!

Per quanto riguarda i settagi utilizzati per stampare una
pagine, i metodi disponibile da VBA potrebbero essere
molto lento; pertanto converrebe spesso ricordarsi anche
le macro 4.0!

Per quanto riguarda VBA, per restituire il numero di
pagine avrei potuto utilizzare un codice del genere:

'===============
Public Sub NumberOfPrintedPages()
Worksheets(1).DisplayAutomaticPageBreaks = True
HorizBreaks = Worksheets(1).HPageBreaks.Count
HPages = HorizBreaks + 1
VertBreaks = Worksheets(1).VPageBreaks.Count
VPages = VertBreaks + 1
NumPages = HPages * VPages
Worksheets(1).DisplayAutomaticPageBreaks = False
MsgBox NumPages
End Sub
'===============

Ma, a mio parere, non e' bello!


---
Regards,
Norman