如何将grid 中的内容生成excel表，如何打印内容

[dongxuewrch]

表单中的grid控件内显示的内容是由查询(select)生成的临时表，如何将内容生成excel表格，如何才能将grid的内容打印出来，请高手指点，最好有详细的语句

[十豆三]

select 表名
copy to Excel表名.xls type xl5

打印：
方法1、直接打印导出的Excel表，这个不用教你。
方法2、在Vfp中做个报表也可以打印表的内容。

[dongxuewrch]

我就是不知道如何做报表，数据源在哪修改

[dongxuewrch]

生成excel表时，怎样才能弹出一个选择存放路径和自定义文件名的窗口

[十豆三]

1、如何做报表，你下载一些例子看看吧：

http://www.vfptop.com/dmfs.asp
http://www.daima.com.cn/Down/88To1/
这里有免费代码放送

163的VFP视频教程：
http://tech.163.com/special/t/000915SU/ttupfoxpro.html



2、导出Excel：

IF !USED('表名')
RETURN
ENDIF
SELECT 表名
lcExtName='XLS'
IF RECCOUNT('表名')>65535
MESSAGEBOX('当前记录数大于65535，EXCEL最多支持65535条记录。'+SPACE(5)+CHR(10)+CHR(10)+'所以程序将导出扩展名为 .CSV 的文件！',48,'信息提示')
lcExtName='CSV'
ENDIF
lcDelimFile = PUTFILE('', 'Excel表名', lcExtName)
IF EMPTY(lcDelimFile)
RETURN
ENDIF
IF lcExtName='XLS'
lcExtName='XL5'
ENDIF
COPY TO (lcDelimFile) TYPE &lcExtName
GO TOP
THISFORM.GRID1.SETFOCUS
MESSAGEBOX("导出完成！文件位置："+CHR(10)+CHR(10)+(lcDelimFile)+SPACE(3),64,"信息提示")

[skills1210]

请问生成Excel表后发现它把所有的数据都打印了，因为我只想把查询出来的数据打印，可以限制它只打印Grid表中显示的数据吗？
谢谢！

[十豆三]

SELECT 表名
SET FILTER TO 条件

导出
打印

[felicia38]

在打印那里也可以用代码选择要打印的记录