Printing to Fit

  • Thread starter Thread starter PT
  • Start date Start date
P

PT

Excel has a feature which permits one to print a worksheet so as to fit on a
desired number of pages. This is very convenient when a worksheet might
otherwise spill over by a couple or rows or a column.

Is there a similar feature in Word 2003, to permit squeezing a document
which occupies one page plus two extra lines into a single page?
 
click on "print preview" and then you will see an icon that says "one page"
when you put the cursor over it...and click on that...
 
When I do that, the page gets reformatted, which I do not believe is the
goal.

A better solution, which appears to work in Word 2003 (I have not checked
other versions) is to use the "Scale to paper size" in the File | Pint
dialog under "Zoom".

Also, one could use a macro such as :

Public Sub PrintToFit()
' Coded by Howard Kaikow whilst recovering from oral surgery on 16
September 2004
With ActiveDocument.PageSetup
Application.PrintOut PrintZoomPaperWidth:=.PageWidth * 20, _
PrintZoomPaperHeight:=.PageHeight * 20
End With
End Sub

I've tested only with one document and have not checked whether this works
with earlier versions of Word.
--
http://www.standards.com/; See Howard Kaikow's web site.
click on "print preview" and then you will see an icon that says "one page"
when you put the cursor over it...and click on that...
PT said:
Excel has a feature which permits one to print a worksheet so as to fit
Click to expand...
on
Click to expand...
 
The "Scale to paper size" option, described below does work.

The PrintToFit Sub I give below does not do what is intended.

Might be able to program a macro by using SendKeys with the Print dialog.
No mood to try that now.

--
http://www.standards.com/; See Howard Kaikow's web site.
Howard Kaikow said:
When I do that, the page gets reformatted, which I do not believe is the
goal.

A better solution, which appears to work in Word 2003 (I have not checked
other versions) is to use the "Scale to paper size" in the File | Pint
dialog under "Zoom".

Also, one could use a macro such as :

Public Sub PrintToFit()
' Coded by Howard Kaikow whilst recovering from oral surgery on 16
September 2004
With ActiveDocument.PageSetup
Application.PrintOut PrintZoomPaperWidth:=.PageWidth * 20, _
PrintZoomPaperHeight:=.PageHeight * 20
End With
End Sub

I've tested only with one document and have not checked whether this works
with earlier versions of Word.
--
http://www.standards.com/; See Howard Kaikow's web site.
click on "print preview" and then you will see an icon that says "one page"
when you put the cursor over it...and click on that...
Click to expand...
fit
Click to expand...
 
Does the following work?
I have no documents on which to test.

Public Sub PrintToFit()
SendKeys "%z{DOWN}{DOWN}"
With Dialogs(wdDialogFilePrint)
.Execute
End With
End Sub
 
Back
Top