Need to sepaerate a word merge into seperate pages and send to printer

Hi.  I have a Word 2003 mail merge document (running on a Vista PC) that gets sent to a fax application via a print job.  I need each page to be sent as a separate job/page so that each page is faxed to the correct recipient. I have created the below macro to use, but it is not sending individual pages as I believe it should. Please assist!!

The options that are commented out within the loop did not produce the desired results either. If there were 4 peopl ein the mail merge data source it would send one 4 page document to the Fax Printer...

Sub SendFax()
 
'Attribute SendFax.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.SendFax"
'Remove comments from appropriate lines for your configuration
'Adjust FaxPrinter variable for your RightFAX Printer (without prompts)
 
Dim TotalSec, i, CurrentSection
Dim OldPrinter 'Used to store old printer name
Dim FaxPrinter 'Can be customized for RightFAX Printer (no messages) name
Dim F$
 
FaxPrinter = "\\LVCCFAX1\HPFAX"
 
OldPrinter = ActivePrinter
Application.ActivePrinter = FaxPrinter
 
For i = 1 To wdNumberOfPagesInDocument
 
F$ = S + Str(i)
   
   'ActiveDocument.PrintOut Range:=F$, Copies:=1, Pages:=F$
   'Application.PrintOut Range:=wdPrintRangeOfPages, Copies:=1, Pages:=F$ ', PageType:=wdPrintAllPages
   ActiveDocument.PrintOut Range:=wdPrintFromTo, From:=F$, To:=F$
 
Next i
 
Application.ActivePrinter = OldPrinter
End Sub

Select allOpen in new window