Microsoft KB Archive/69519

{|
 * width="100%"|

WD: WordBasic Example to Print Current Page

 * }

Q69519

-

The information in this article applies to:


 * Microsoft Word for Windows, versions 1.0, 1.1, 1.1a, 2.0, 2.0a, 2.0a-CD, 2.0b, 2.0c, 6.0, 6.0a, 6.0c
 * Microsoft Word for Windows, versions 7.0, 7.0a
 * Microsoft Word for the Macintosh, versions 6.0, 6.0.1, 6.0.1a

-

SUMMARY
In Word, you can create a macro to print the current page only (that is, the page where the insertion point resides).

To create this type of macro, use the appropriate procedure for your version of Word in the &quot;More Information&quot; section of this article.

MORE INFORMATION
WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this macro code &quot;as is&quot; without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.

Word versions 2.x, 6.x and 7.x
The following WordBasic macro instruction prints the current document page:

  FilePrint .Range = 2

Word for Windows versions 1.x
You can use one of the following macros for printing the current page.

Methods for single section documents only:

Macro 1:

Before you run the following macro, make sure that nothing is selected in the document.

  Sub MAIN EditGoto &quot;\Page&quot; FilePrint .Range = 1 GoBack End Sub Macro 2:

  Sub MAIN StartOfLine UtilRepaginateNow InsertField .Field = &quot;Page&quot; CharLeft 1, 1 UnLinkFields PageNum$ = Selection$ EditClear FilePrint .Range = 2, .From = PageNum$, .To = PageNum$ End SUB Additional query words: active range

Keywords : kbmacro kbprg kbprint kbualink97 kbdtacode wordnt winword macword word6 winword2 word7 word95

Issue type : kbhowto

Technology :