Try setting the printer you want to use in an array.
something like this:

Dimension aselprinter(1,2)
aselprinter(1,2)= clocalprinter && the local printername

If ASCAN(alistprinters,sys_orderprinter)>0 && local printer available?
Set PRINTER TO NAME aselprinter(1,2)
Else
=MESSAGEBOX('No local printer',16,"Printengine")
Endif


it works for me!