Re: Stampare pagine bianche numerate

Mauro Gamberini

unread,

Jun 7, 2005, 12:24:01 PM6/7/05

to

> Come faccio a stampare 200 pagine con una intestazione nella prima riga
(es.
> Status s.r.l.) e numerate da 1 a 200? Grazie per l'aiuto.
>

Questa macro ti prepara le 200 pagine con intestazione e numero di pagina:

Public Sub m()

Dim l As Long

Selection.TypeText Text:="Status s.r.l."

For l = 1 To 199

Selection.InsertBreak Type:=wdPageBreak
Selection.TypeText Text:="Status s.r.l."

End Sub

Poi lanci la tua stampa da file-->Stampa
Se devi posizionare diversamente il numero di pagina o
cambiare la dimensione dei caratteri della scritta,
chiedi pure.

--
----------------------------
Mauro Gamberini

Marco Pierucci

unread,

Jun 7, 2005, 11:56:45 AM6/7/05

to

Come faccio a stampare 200 pagine con una intestazione nella prima riga (es.
Status s.r.l.) e numerate da 1 a 200? Grazie per l'aiuto.

--
Composer s.r.l.
Via dell'Industria, 7
61020 Sassocorvaro (PU)
Tel. +39.0722.769450
Fax +39.0722.769501

Website: www.gruppopierucci.com
E-mail: comp...@gruppopierucci.com

Ai sensi del D.Lgs. 196/2003 si precisa che le informazioni contenute in
questo messaggio sono riservate ed a uso esclusivo del destinatario. Qualora
il messaggio in parola Le fosse pervenuto per errore, La invitiamo ad
eliminarlo senza copiarlo e a non inoltrarlo a terzi, dandocene gentilmente
comunicazione. Grazie.

Pursuant to Legislative Decree No. 196/2003, you are hereby informed that
this message contains confidential information intended only for the use of
the addressee. If you are not the addressee, and have received this message
by mistake, please delete it and immediately notify us. You may not copy or
disseminate this message to anyone. Thank you.

Marco Pierucci

unread,

Jun 7, 2005, 12:47:56 PM6/7/05

to

Ti ringrazio per il suggerimento. Ma come faccio a stampare la scritta il
più vicino possibile al margine superiore e al margine sinistro? Dimensione
carattere 10? Carattere Courier new? Numero di pagina in alto a destra?
Grazie ancora.
"Mauro Gamberini" <maurogsc...@RIMUOVEREaliceposta.it> ha scritto nel
messaggio news:uIvIaz3a...@tk2msftngp13.phx.gbl...

Mauro Gamberini

unread,

Jun 7, 2005, 1:26:13 PM6/7/05

to

> Ti ringrazio per il suggerimento. Ma come faccio a stampare la scritta il
> più vicino possibile al margine superiore e al margine sinistro?
Dimensione
> carattere 10? Carattere Courier new? Numero di pagina in alto a destra?
>

Eccola qui:

Public Sub m()

Dim l As Long

With ActiveDocument.PageSetup
.TopMargin = CentimetersToPoints(0.63)
.BottomMargin = CentimetersToPoints(2)
.LeftMargin = CentimetersToPoints(0.53)
.RightMargin = CentimetersToPoints(0.7)
.HeaderDistance = CentimetersToPoints(0.63)
End With

With Selection.Font
.Name = "Courier New"
.Size = 10
End With

For l = 1 To 199
Selection.InsertBreak Type:=wdPageBreak

Selection.TypeText Text:="Status s.r.l."

Selection.ParagraphFormat.TabStops(CentimetersToPoints(17)).Position = _
CentimetersToPoints(19.41)
Selection.ParagraphFormat.TabStops(CentimetersToPoints(8.5)).Clear
Selection.TypeText Text:=vbTab

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub

--
----------------------------
Mauro Gamberini

Mauro Gamberini

unread,

Jun 7, 2005, 1:31:37 PM6/7/05

to

Opss, mancava il Courier New...scusa.

Public Sub mm()

Dim l As Long

With ActiveDocument.PageSetup
.TopMargin = CentimetersToPoints(0.63)
.BottomMargin = CentimetersToPoints(2)
.LeftMargin = CentimetersToPoints(0.53)
.RightMargin = CentimetersToPoints(0.7)
.HeaderDistance = CentimetersToPoints(0.63)
End With

Maurizio Borrelli

unread,

Jun 7, 2005, 2:28:52 PM6/7/05

to

"Marco Pierucci" ha scritto nel messaggio
news:eOyVym3...@TK2MSFTNGP09.phx.gbl...

> Come faccio a stampare 200 pagine con una intestazione nella prima riga
> (es. Status s.r.l.) e numerate da 1 a 200? Grazie per l'aiuto.

Ciao, Marco.

Imposti la pagina, numerazione e intestazione, come preferisci poi premi
*e tieni premuta per un tot* la combinazione di tasti:

Ctrl+Invio

quindi smetti e vedi a che pagina sei arrivato. Se mancano pagine, insisti
con Ctrl+Invio, se ce ne sono di troppo le cancelli col tasto:

<-

(Backspace), eventualmente tenendolo premuto per un tot.

Ci si mette di piu' a descrivere la procedura che a metterla in pratica.
:-)

Prova, se vuoi.

--
(Facci sapere se ed eventualmente come hai risolto. Grazie.)

Ciao :o)
Maurizio Borrelli, Microsoft MVP - Office Systems - Access
--------
?SPQR(C)
X
--------

Marco Pierucci

unread,

Jun 7, 2005, 6:25:16 PM6/7/05

to

Semplicemente fantastico. Grazie.

"Mauro Gamberini" <maurogsc...@RIMUOVEREaliceposta.it> ha scritto nel

messaggio news:u1LNKZ4a...@TK2MSFTNGP12.phx.gbl...

Mauro Gamberini

unread,

Jun 8, 2005, 2:57:12 AM6/8/05

to

> Semplicemente fantastico. Grazie.
>

;-)

--
----------------------------
Mauro Gamberini

solo potessi]@katamail.com andreij

unread,

Jun 16, 2005, 7:06:45 PM6/16/05

to

> Prova, se vuoi.

Bella come soluzione. Se capisco bene, si inserisce un'interruzione di
sezione ogni volta, no?

Maurizio Borrelli

unread,

Jun 17, 2005, 2:57:55 AM6/17/05

to

"andreij" ha scritto nel messaggio
news:9Cnse.32617$75.19...@news4.tin.it...

> > Prova, se vuoi.
> Bella come soluzione. Se capisco bene, si inserisce un'interruzione di
> sezione ogni volta, no?

Ciao, andreij.

No, una "interruzione pagina", come puoi constatare con la combinazione
di tasti "Mostra/Nascondi <simbolo di paragrafo>":

Ctrl+(

-oppure-

Ctrl+Maiusc+8

--