>Have you tried the getprinter() function. Here is a code snippet
>

>cp = getprinter()
>IF !EMPTY(cp)
>	thisform.cprinter = cp
>	cset6 = cp
>ELSE	&& set to the default printer
>	thisform.cprinter = SET("Printer",2)
>ENDIF
>SET PRINTER TO NAME (thisform.cprinter)
>

Hi Ron

getprinter() returns the printer is not ready. I don't get the option of picking one.