怎样将EXCEL报表在VFP的自定义窗口中预览
谢谢,
pp=createobject("excel.application")
pp.application.visible=.t.
pp.workbooks.add
pp.worksheets('sheet1').activate &&这里就是增加一个工作表,你可以打开多个数据表,然后增加多个工作表
pp.WorkSheets("Sheet1").Name="报告附页" &&重命名工作表
pp.cells(1,1).value="dddd"
DEFINE WINDOW winreport ;
FROM 0,0 TO ;
SROWS(),SCOLS() ;
IN DESKTOP SYSTEM ;
CLOSE ;
NOFLOAT ;
NOGROW ;
ZOOM ;
title"2000,2680 打 印 预 览 "
&&不同打印机自定义纸张是不同的LQ-1600K长为2560
&& TITLE .creportname
ZOOM WINDOW winreport MAX
*RELEASE WINDOW winreport
下面是不对的,
*pp.ActiveSheet.PrintPreview in WINDOW winreport
pp.ActiveWindow.SelectedSheets.PrintPreview at WINDOW winreport
