有什么控件或者表格能实现即时打印么？ 所见即所得，调整好了，直接在FORM表单中打印？

做报表或者标签吧，做好了在FORM里就能打印了
VFP的报表和标签不完全是所见即所得

就是有时候 需要拉动列 或者 宽度 进行调整， VFP报表没法调整啊

调用EXCEL不就行了  或者出点钱买个其他的表格控件

报表一般是相对固定，不会经常变动格式，设计时可通过预览来调整格式。
如果是动态格式报表，就要在运行时由程序动态生成报表输出。

是不是有的字段内容可能会比较长（比如名称之类的），长的时候就调整宽度，那其他列的宽度就小了

*调用Excel打印
oExcel=Createobject("Excel.application")    &&创建Excel对象
oExcel.Workbooks.Open("要打印的表.xls")     &&打开指定工作簿
oExcel.Worksheets("sheet1").Activate   &&设置"sheet1"工作表为激活工作表

*给单元格赋值
   oExcel.cells(1,2).Value="要写入单元格的内容1"
   oExcel.cells(1,3).Value="要写入单元格的内容2"
*  ......
 
oExcel.Visible=.T.   &&显示Excel窗口
oExcel.ActiveWorkbook.Save    &&存盘

*预览/打印
oExcel.ActiveWorkbook.PrintPreview
*oExcel.ActiveSheet.PrintPreview
*关闭工作簿
oExcel.Workbooks.Close
*退出Excel
*oExcel.Quit
Release oExcel &&只有释放对象变量, EXCEL进程才会完全关闭

谢谢大家的回复

多年前用过一位网友此功能的类文件，在FORM中调整好GRID实现“所见所得”...

[此贴子已经被作者于2022-1-18 09:34编辑过]

是任明汉大侠做的