I found the answer already, once make the Microsoft Word references in VB,
use the ActiveDocument.FitToPages method.

-----Original Message-----
From: Chan Khin Sin [mailto:kschan@s...]
Sent: Friday, November 22, 2002 4:48 PM
To: professional vb
Subject: [pro_vb] Squeeze word into a page


Dear All:
I have an VB application that going to print out Word Document but what I
want to do is whenever there are more than 2 pages that going to print out,
I want the application squeeze all the word into a page although the font
size will be a little small.
It is exactly how you do it in Microsoft Word that you can choose print
preview from the file menu and then choose "Shrink to Fit" button where you
squeeze everything into a page.
How should I do it in VB? Sample example will be nice. Thanks

Chan Khin Sin