"The byVal_print_flag= True$ option does not work for me.
Does this work for you. If not can it be fixed.
I tried changing some of these to True$, but to no avail.

x = oMergeOut->PrintOut( False$)
x = oMergeOut->Close( False$)
x = oWrd->Quit(False$)"

Got this to work...

If print_flag then
x = oMergeOut->PrintOut( False$)
x = oMergeOut->Close( False$)
DefPrinter = oleGetProperty(oWrd, 'ActivePrinter')
OlePutProperty(oWrd, 'ActivePrinter', '\\**myserver**\**myque**')
Res = OleCallMethod(oWrd, 'PRINTOUT', 1)
OlePutProperty(oWrd, 'ActivePrinter', DefPrinter)
Sleep(2)
Quit = OleCallMethod(oWrd,'QUIT',0)
oDoc = ''
end else
oWrd->Visible = true$
end

Problem was that the merge doc would not close while printing, so added a 0 to the end.

Quit = OleCallMethod(oWrd,'QUIT',0)

This closed the document, but also stopped the printing. So I added a sleep in there... ugly, yes but it works ;)

1  out of 1 found this valuable. Do you find this valuable? Do you?