... // nombre de archivo temporal con extencion PRN OBJ_PRINT:=TDosPrn():New(OBJ_FILE) OBJ_PRINT:=Command('27','67','46') OBJ_PRINT:Say(nRen,nCol,'renglon 1') OBJ_PRINT:Say(nRen,nCol,'renglon 2') ... OBJ_PRINT:Say(nRen,nCol,'renglon 50') ... OBJ_PRINT:EndPage() OBJ_PRINT:End() PrintFileRaw(cPort,OBJ_FILE) ...