|
|
Our Hot Pick: Rising Antivirus 2006 - Certified by TUV & Checkmark! Get 10% discount by entering this coupon code: ONDISCOUNT10
Is there a way to code a word document to print 4 pages per sheet one page
but have all 4 pages be page 1 and then have 4 of page 2 on a sheet, etc.
|
|
In the Pages control of the Page range section of the File>Print dialog
enter 1,1,1,1,2,2,2,2,3,3,3,3, etc
--
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP
"mj" <mj[ at ]discussions.microsoft.com> wrote in message
news:92779F52-6D0B-4D79-8D5C-871B8FDB37B0[ at ]microsoft.com...
[Quoted Text] > Is there a way to code a word document to print 4 pages per sheet one page
> but have all 4 pages be page 1 and then have 4 of page 2 on a sheet,
> etc.
|
|
I appreciate this but we may have documents that are over 250 pages. Are
you aware of an vba code that would do that same?
"mj" wrote:
[Quoted Text] > Is there a way to code a word document to print 4 pages per sheet one page
> but have all 4 pages be page 1 and then have 4 of page 2 on a sheet, etc.
|
|
Try:
Dim i As Long
With ActiveDocument
For i = 1 To .BuiltInDocumentProperties(wdPropertyPages)
.PrintOut Range:=wdPrintFromTo, Pages:=i & "," & i & "," & i & "," &
i, PrintZoomColumn:=2, PrintZoomRow:=2
Next i
End With
I have not tested it, but I think that it is correct
--
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP
"mj" <mj[ at ]discussions.microsoft.com> wrote in message
news:2F8B492D-213D-4093-AF2B-43A27DDDD345[ at ]microsoft.com...
[Quoted Text] >I appreciate this but we may have documents that are over 250 pages. Are
> you aware of an vba code that would do that same?
>
> "mj" wrote:
>
>> Is there a way to code a word document to print 4 pages per sheet one
>> page
>> but have all 4 pages be page 1 and then have 4 of page 2 on a sheet,
>> etc.
|
|
Works great - Thanks
Tweaking I did
Dim i As Integer
Dim a As String
a = ","
With ActiveDocument
For i = 1 To .BuiltInDocumentProperties(wdPropertyPages)
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, copies:=1, Pages:=i & a & i & a & i & a & i,
PageType:= _
wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True,
Background:= _
True, PrintToFile:=False, PrintZoomColumn:=2, PrintZoomRow:=2
Next i
End With
End Sub
"Doug Robbins - Word MVP" wrote:
[Quoted Text] > Try:
>
> Dim i As Long
> With ActiveDocument
> For i = 1 To .BuiltInDocumentProperties(wdPropertyPages)
> .PrintOut Range:=wdPrintFromTo, Pages:=i & "," & i & "," & i & "," &
> i, PrintZoomColumn:=2, PrintZoomRow:=2
> Next i
> End With
>
> I have not tested it, but I think that it is correct
> --
> Hope this helps.
>
> Please reply to the newsgroup unless you wish to avail yourself of my
> services on a paid consulting basis.
>
> Doug Robbins - Word MVP
>
> "mj" <mj[ at ]discussions.microsoft.com> wrote in message
> news:2F8B492D-213D-4093-AF2B-43A27DDDD345[ at ]microsoft.com...
> >I appreciate this but we may have documents that are over 250 pages. Are
> > you aware of an vba code that would do that same?
> >
> > "mj" wrote:
> >
> >> Is there a way to code a word document to print 4 pages per sheet one
> >> page
> >> but have all 4 pages be page 1 and then have 4 of page 2 on a sheet,
> >> etc.
>
>
>
|
|
|