Went back and read your original question. To do that, you will need to
define a custom page size in File Print dialog by selecting Properties when
you have the Adobe PDF Printer selected and then in the Adobe PDF Document
Properties dialog, go to the Paper/Quality tab and the Advanced button and
in the Adobe PDF Converter Advanced Options dialog, for Paper Size, select
PostScript Custom and set the size of the sheet to which you want to print.
(If necessary, click on the Edit Custom Page Size button to bring up the
PostScipt Custom Page Size Definition dialog.)
The click on OK as required to get back to the Word File Print dialog and in
the Pages per sheet pulldown, select 4, BUT, print only one page at a time.
The following code in a macro will cause Word to Print only one page at a
time:
Dim i As Long
With ActiveDocument
For i = 1 To .BuiltInDocumentProperties(wdPropertyPages)
.PrintOut Range:=wdPrintFromTo, From:="i", To:="i",
PrintZoomColumn:=2, PrintZoomRow:=2
Next i
End With
But with Adobe, you are going to need to provide a file name for each page.
It may therefore be better to first split the document into a separate file
for each page, which can be done with the following macro:
' splitter Macro
' Macro created 16-08-98 by Doug Robbins to save each page of a document
' as a separate file with the name Page#.DOC
'
Dim Counter As Long, Source As Document, Target As Document
Set Source = ActiveDocument
Selection.HomeKey Unit:=wdStory
Pages = Source.BuiltInDocumentProperties(wdPropertyPages)
Counter = 0
While Counter < Pages
Counter = Counter + 1
DocName = "Page" & Format(Counter)
Source.Bookmarks("\Page").Range.Cut
Set Target = Documents.Add
Target.Range.Paste
Target.SaveAs FileName:=DocName
Target.Close
Wend
which will create files named Page1, Page2, Page3, etc
Then you could modify the code in the Article "Find & ReplaceAll on a batch
of documents in the same folder" at:
http://www.word.mvps.org/FAQs/MacrosVBA/BatchFR.htm
so that instead of the Find and Replace routine, you made use of the
following code:
.PrintOut Range:=wdPrintFromTo, From:="1", To:="1", PrintZoomColumn:=2,
PrintZoomRow:=2
And then if you have set up Adobe PDF so that it does Prompt for the PDF
File Name, it should create separate files named Page1.pdf, Page2.pdf, etc.
Then in Adobe, use the Create PDF from Multiple Files utility to combine the
individual .pdf files back into one.
--
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
Tried that, but the only thing that happens when you do that, is that
you only get an A6 portion of the dokument (so you only get the upper
left corner of the document)
I find that behavior strange, because the option indicates that you
scale the page - but you dont...
/Jesper
