* Get the printer and the tray. select(tcprinters) lcprinter = ALLTRIM(desc) lctray = 'DEFAULTSOURCE=' + tray * Set the printer. SET PRINTER TO NAME &lcprinter * Set the tray in a copy of the report form. COPY FILE c:\codemine\olympic\reports\voucher.frx TO copy.frx COPY FILE c:\codemine\olympic\reports\voucher.frt TO copy.frt USE copy.frx IN 0 ALIAS copy GO TOP ALINES(laprinter, copy.expr) lnposition = ASCAN(laprinter, 'DEFAULTSOURCE') IF lnposition != 0 laprinter(lnposition) = lctray SAVE TO MEMO copy.expr ENDIFWhen SAVE TO MEMO copy.expr gets executed, I get an error message that copy is readonly.