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, CurrentSectionDim OldPrinter 'Used to store old printer nameDim FaxPrinter 'Can be customized for RightFAX Printer (no messages) nameDim F$FaxPrinter = "\\LVCCFAX1\HPFAX"OldPrinter = ActivePrinterApplication.ActivePrinter = FaxPrinterFor i = 1 To wdNumberOfPagesInDocumentF$ = 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 iApplication.ActivePrinter = OldPrinterEnd Sub