>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) >