pause print between pages in Word 2007

R

Ray P

I need to print a document consisting of multiple pages. Each page has to be
printed on a pre-printed form. I want to pause the print process after each
page to allow me to place a new form in the printer and align same. I do not
want to have to go thru the print page number option each time. I would like
to be able to press a key and start the print for the next page as soon as I
have the form in place. Any suggestions would be appreciated
 
J

Jay Freedman

Ray said:
I need to print a document consisting of multiple pages. Each page
has to be printed on a pre-printed form. I want to pause the print
process after each page to allow me to place a new form in the
printer and align same. I do not want to have to go thru the print
page number option each time. I would like to be able to press a key
and start the print for the next page as soon as I have the form in
place. Any suggestions would be appreciated

It takes a macro to do that. See http://www.gmayor.com/installing_macro.htm
if needed.

Sub PausePerPage()
Dim nPg As Long, totalPgs As Long
Dim rslt As VbMsgBoxResult

totalPgs = ActiveDocument.Range.Information( _
wdActiveEndPageNumber)
nPg = 1

While nPg <= totalPgs
rslt = MsgBox(prompt:="Press OK to print page " & nPg, _
buttons:=vbOKCancel)
If rslt = vbCancel Then Exit Sub

ActiveDocument.PrintOut Background:=False, _
Range:=wdPrintRangeOfPages, _
Pages:=CStr(nPg)
nPg = nPg + 1
Wend
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.
 
R

Ray P

Thanks. I will give it a try!


Jay Freedman said:
It takes a macro to do that. See http://www.gmayor.com/installing_macro.htm
if needed.

Sub PausePerPage()
Dim nPg As Long, totalPgs As Long
Dim rslt As VbMsgBoxResult

totalPgs = ActiveDocument.Range.Information( _
wdActiveEndPageNumber)
nPg = 1

While nPg <= totalPgs
rslt = MsgBox(prompt:="Press OK to print page " & nPg, _
buttons:=vbOKCancel)
If rslt = vbCancel Then Exit Sub

ActiveDocument.PrintOut Background:=False, _
Range:=wdPrintRangeOfPages, _
Pages:=CStr(nPg)
nPg = nPg + 1
Wend
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.
 
S

Suzanne S. Barnhill

If you have no paper in the printer, you can print only one page. Then add
another form, and another will print. If you set the paper source (on the
Paper tab of Page Setup) to Manual Feed, you will be prompted for each
sheet.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
http://word.mvps.org
 

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.

Ask a Question

Top