Printing - merged document, multiple sections

[nikkifox]

I have a macro I've been using for the last few years, which now doesn't seem to work in 2010.



This macro enables me to print a resulting merged document, but at each new section treating it as a new job.

For example ...

I have a 5 page merge template consisting of a covering letter (to be printed onto letterhead - tray 1) and the remaining pages are appendices (to be printed onto plain paper - tray 2) duplex. Once merged, the document is 5 pages x "n" of records in the dataset. So I want every occurance of the covering letter to print on letterhead, e.g. pgs 1, 6, 11, 16 etc.

Am I missing a trick?

The macro was .....

Dim i As Long
With ActiveDocument
  For i = 1 To .Sections.Count
    .PrintOut Background:=False, Range:=wdPrintFromTo, From:="s" & i, To:="s" & i
  Next i
End With

Thank you in advance for your help.

Nikki