thank you, you have saved my job.
--
dm


"Doug Robbins" wrote:

If your document contains 2 sections, use
Dim i As Long
With ActiveDocument
For i = 1 To .Sections.Count Step 2
.PrintOut Range:=wdPrintFromTo, From:="s" & i, To:="s" & i + 1
Next i
End With

If it contains n sections, replace 2 with n and 1 with n - 1

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP
"amie" wrote in message
...
i have been using the formula to be able to staple multi pages of a merged
doc
Dim i As Long
With ActiveDocument
For i = 1 To .Sections.Count
.PrintOut Range:=wdPrintFromTo, From:="s" & i, To:="s" & i
Next i
End With
this would work if my multi doc didn't already have multi sections which
seems to be difficult to reformat
is there anyway to in vb merge to doc using some insertbreak? please help