how 2 print 2 copies of 1 page on same a4 sheet as a5?

[Cool As Blu]

Hi

Newbie here! I need my secretary to print 2 copies of my 1 page letters,
with both copies on an A4 sheet. i.e. 2 x A5 letters on and A4 sheet.

How can I customese Word XP to do this and is there any way this can be
automated or set be the the default way?

Cool As Blu



Cool As Blu

 

[Doug Robbins - Word MVP]

Hi Cool As Blu,

In the File>Print dialog, under the Zoom section of the dialog, you can set
the number of pages of your document that will appear on each sheet that is
printed.

If you were to create a macro with the name FilePrint(), containing the
following command:

ActiveDocument.PrintOut PrintZoomColumn:=2, PrintZoomRow:=1

Word would always print out that way. I would however recommend that you
name the macro something else and assign it to a button on the toolbar so
that you could just use it whenever you wanted it.

Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP

 

[Cool As Blu]

Hi Cool As Blu,

In the File>Print dialog, under the Zoom section of the dialog, you can set
the number of pages of your document that will appear on each sheet that is
printed.

Hi Doug,

Thanks for the tip. I have tried the above and it doesn't do what I want. If
I have a one page document, it prints 1 smaller copy on the A4 sheet rather
than 2 copies. Even if I increase the copies to 2 it does the same but twice
over!

I have no idea how to create Macro's via VB. Any tips?

Regards

Coolasblu

 

[Doug Robbins - Word MVP]

Hi Cool As Blu,

Sorry, I misread the question. The following might do it, but it may screw
up the pagelayout, particularly if you have headers/footers and particularly
firstpage headers/footer in the document. Make sure the original document
is saved before running the macro.

Dim Source As Document, Target As Document, Pages As Integer, tarange As
Range
Set Source = ActiveDocument
Set Target = Documents.Add
Source.Activate
Selection.HomeKey Unit:=wdStory
Pages = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
counter = 0
While counter < Pages
counter = counter + 1
Source.Bookmarks("\Page").Range.Cut
Set tarange = Target.Range
tarange.Start = tarange.End
tarange.Paste
Set tarange = Target.Range
tarange.Start = tarange.End
tarange.InsertAfter vbCr
tarange.Paste
Wend
Target.PrintOut PrintZoomColumn:=2, PrintZoomRow:=1
Source.Close wdDoNotSaveChanges

See the article “What do I do with macros sent to me by other newsgroup
readers to help me out?

I don't know how to install them and put them to use” at:

http://www.mvps.org/word/FAQs/MacrosVBA/CreateAMacro.htm

Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP

 

[Jay Freedman]

Hi Doug,

Thanks for the tip. I have tried the above and it doesn't do what I
want. If I have a one page document, it prints 1 smaller copy on the
A4 sheet rather than 2 copies. Even if I increase the copies to 2 it
does the same but twice over!

I have no idea how to create Macro's via VB. Any tips?

Regards

Coolasblu

After you set the Zoom to 2 pages/sheet, go into the Pages box and type

1,1

That will make it print page 1 twice on the same sheet.