WD: WordBasic Example to Print Current Page

• 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 95, versions 7.0, 7.0a
• 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

   Sub MAIN
      StartOfLine
      UtilRepaginateNow
      InsertField .Field = "Page"
      CharLeft 1, 1
      UnLinkFields
      PageNum$ = Selection$()
      EditClear
      FilePrint .Range = 2, .From = PageNum$, .To = PageNum$
   End SUB