Microsoft KB Archive/69519

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 "More Information" 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 "as is" 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 "\Page"
      FilePrint .Range = 1
      GoBack
   End Sub

Macro 2:

   Sub MAIN
      StartOfLine
      UtilRepaginateNow
      InsertField .Field = "Page"
      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 :