stampare la stessa pagina più volte numerandola

[fabrizio]

Buon giorno ho cercato nel news group ma non ho trovato :(.

ho una pagina che vorrei stampare 100 volte numerando ogni stampa con numeri
da 1 a 100.

Qualcuno sa indicarmi come?

Grazie

[Giovanni Zezza]

Post by fabrizio
ho una pagina che vorrei stampare 100 volte numerando ogni stampa con numeri
da 1 a 100.
Qualcuno sa indicarmi come?

Si potrebbero pensare diverse soluzioni. Restando alla lettera di quello
che hai chiesto, si può usare una macro VBA di questo genere:

Public Sub Stampa100()
Dim pag As Integer
Dim intest As HeaderFooter
Dim numeri As PageNumbers

Set intest = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)
Set numeri = intest.PageNumbers
numeri.RestartNumberingAtSection = True

For pag = 1 To 100
numeri.StartingNumber = pag
ActiveDocument.PrintOut
Next
End Sub

Ciao.

[fabrizio]

Post by Giovanni Zezza

Post by fabrizio
ho una pagina che vorrei stampare 100 volte numerando ogni stampa con numeri
da 1 a 100.
Qualcuno sa indicarmi come?

Si potrebbero pensare diverse soluzioni. Restando alla lettera di quello
Public Sub Stampa100()
Dim pag As Integer
Dim intest As HeaderFooter
Dim numeri As PageNumbers
Set intest = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)
Set numeri = intest.PageNumbers
numeri.RestartNumberingAtSection = True
For pag = 1 To 100
numeri.StartingNumber = pag
ActiveDocument.PrintOut
Next
End Sub
Ciao.

Scusa ma dove devo inserire questi comandi?
Faccio un copia incolla?

[fabrizio]

Post by Giovanni Zezza

Post by fabrizio
ho una pagina che vorrei stampare 100 volte numerando ogni stampa con numeri
da 1 a 100.
Qualcuno sa indicarmi come?

Si potrebbero pensare diverse soluzioni. Restando alla lettera di quello
Public Sub Stampa100()
Dim pag As Integer
Dim intest As HeaderFooter
Dim numeri As PageNumbers
Set intest = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)
Set numeri = intest.PageNumbers
numeri.RestartNumberingAtSection = True
For pag = 1 To 100
numeri.StartingNumber = pag
ActiveDocument.PrintOut
Next
End Sub
Ciao.

allora fatta macro e mi stampa le 100 pagine , solo non ci mette la
numerazione tipo pagina 1,2,3, ecc. ecc.. dove ho sbagliato?

[fabrizio]

Post by Giovanni Zezza

Post by fabrizio
ho una pagina che vorrei stampare 100 volte numerando ogni stampa con numeri
da 1 a 100.
Qualcuno sa indicarmi come?

Si potrebbero pensare diverse soluzioni. Restando alla lettera di quello
Public Sub Stampa100()
Dim pag As Integer
Dim intest As HeaderFooter
Dim numeri As PageNumbers
Set intest = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)
Set numeri = intest.PageNumbers
numeri.RestartNumberingAtSection = True
For pag = 1 To 100
numeri.StartingNumber = pag
ActiveDocument.PrintOut
Next
End Sub
Ciao.

ok trovato provato e funziona , grazie e scusate le troppe risposte .

Grazie ancora

[Giovanni Zezza]

Post by fabrizio
ok trovato provato e funziona , grazie e scusate le troppe risposte .

Niente, anzi ne approfitto per chiarire a favore di tutti.

Post by fabrizio
Scusa ma dove devo inserire questi comandi?
Faccio un copia incolla?

Sì, si può fare un copia e incolla del codice nella finestra dell'"Editor
di Visual Basic" di Word: Strumenti -> Macro -> Editor di Visual Basic.

Post by fabrizio
allora fatta macro e mi stampa le 100 pagine , solo non ci mette la
numerazione tipo pagina 1,2,3, ecc. ecc.. dove ho sbagliato?

Naturalmente, la numerazione di pagina nel documento ce la devi mettere tu
(nell'intestazione, nel piè di pagina, dove vuoi). La macro si limita ad
impostare il numero iniziale del contatore di pagina; perché il numero
appaia nel documento, il contatore dev'essere riferito da qualche parte (il
modo più immediato è: Inserisci -> Numeri di pagina).

Ciao.