请教一个问题，VFP打印问题 - 编程论坛

#2

laowan0012022-01-08 11:11

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

#3

asonglinux2022-01-08 11:20

回复 2楼 laowan001

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

#4

nbwww2022-01-08 12:01

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

#5

吹水佬2022-01-08 12:10

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

#6

laowan0012022-01-09 08:15

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

#7

jlliushi2022-01-11 05:53

*调用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进程才会完全关闭

#8

asonglinux2022-01-14 14:06

谢谢大家的回复

#9

fyyylyl2022-01-18 08:56

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

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

#10

fyyylyl2022-01-18 09:53

是任明汉大侠做的