Sub FilePrintDefault()
ActiveDocument.PrintOut Range:=wdPrintCurrentPage
End Sub
That will run when you click the Print button on the toolbar (in Word
2003 or earlier; in Word 2007 you would have to use the Customize
dialog to add the button to the Quick Access Toolbar).
If you want the Print dialog to appear when you press Ctrl+P and have
the "Current page" option button selected, then use this macro
(instead of or in addition to the first one):
Sub FilePrint()
With Dialogs(wdDialogFilePrint)
.Range = wdPrintCurrentPage
.Show
End With
End Sub
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.