Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

inserire numero pagina in una cella

1,199 views
Skip to first unread message

John

unread,
Feb 22, 2007, 6:19:08 AM2/22/07
to
Come si può inserire in una cella excel il numero di pagine totali del
documento?

Norman Jones

unread,
Feb 22, 2007, 7:35:21 AM2/22/07
to
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

unread,
Feb 22, 2007, 8:09:54 AM2/22/07
to
"Norman Jones" <norma...@whereforartthou.com> ha scritto nel messaggio
news:Oj7kn3n...@TK2MSFTNGP06.phx.gbl...

> 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)
>

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


Norman Jones

unread,
Feb 22, 2007, 8:15:29 AM2/22/07
to
Ciao Ivano,

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

Mea culpa!! <VBG>

Saluti!

---
Regards,
Norman


ivano

unread,
Feb 22, 2007, 8:18:46 AM2/22/07
to

"Norman Jones" <norma...@whereforartthou.com> ha scritto nel messaggio
news:eQLcCOoV...@TK2MSFTNGP04.phx.gbl...

> Ciao 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

unread,
Feb 22, 2007, 8:54:41 AM2/22/07
to
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


0 new messages