******************************************************************** * Description.......: TableMaint.PrintM * Calling Samples...: * Parameter List....: * Created by........: * Modified by.......: Nadya Nosonovsky 06/06/2000 12:51:08 PM ******************************************************************** local lcReportName, lcSafety, lnRecno, lcOrder lcReportName='Reports\TableMaint' lcSafety=set('safety') set safety off select TableMstr lnRecno=recno() *lcOrder=order() create report (m.lcReportName) from alias() column if UseTble(forceext(m.lcReportName,'FRX'),"WorkReport",'exclusive') wait window nowait "Preparing a report..." select WorkReport replace tag with '', tag2 with '' delete for objtype=26 pack use in WorkReport endif *modi report (m.lcReportName) select TableMstr dodefault() goto m.lnRecno if m.lcSafety='ON' set safety on endifThis works fine for simple tables with 3-4 fields, but I have some tables with bigger number of columns, and generated report doesn't look very good. For instance, Town field is not wide enough, etc. So, the user asked me, can I provide more control to design the report. I haven't yet worked in this direction, so I'd like to hear your opinions here. BTW, may be CREATE REPORT option could be enhanced too?