>OLE IDispatch exception code 0 from Microsoft Word: Windows cannot print due to a problem with the current printer setup. >Try one or more of the following: >* Check the printer by printing a test page from Windows. >* Make sure the printer is turned on and online. >* Reinstall the printer driver...>
>objWordDoc.MailMerge.Destination = 0 && wdSendToPrinter = 1 > > objWordDoc.MailMerge.Execute > objWord.application.Options.PrintBackground = .f. >*-- get current active printer > lcActivePrinter = objWord.application.ActivePrinter >*-- set active printer > objWord.ActivePrinter = lcPrinter > objWord.application.ActiveDocument.PrintOut() && Error here >*-- set current active printer back to original > objWord.ActivePrinter = lcActivePrinter > > objWord.ActiveDocument.saveas(lcDocFileName1) > objWord.ActiveDocument.close() >*--quit without saving any changes > objWord.quit(0) > =Sleep(1000)>