如何打印子窗体数据？

FookYou

我用图中的放大镜来打开其相应的查询表再执行Access查询表的打印等操作。这样相当于又运行了一次查询。
现在我想做几个控件直接对窗体的查询结果进行打印、打印预览、选择记录打印、转化为Excel格式等操作。
不知用什么办法实现，怎么写？哪位大师给指点一下，谢谢！

roych

做报表（Report）会不会？把查询做成一个报表就可以直接预览打印了~~
另外，用宏（Macro）可以直接导出Excel表格（output）

FookYou

2# roych
关键是我的查询是动态的！

红尘如烟

把报表和数据源设置成和子窗体数据源一样就行了
格式固定数据不固定的报表适合用Access
数据不固定但格式固定的报表适合用Excel

FookYou

4# 红尘如烟
谢谢！由于子窗体源对象是变动的。其字段名称和字段个数不定。要去改每个控件的记录源。而且做个报表来实现其打印功能不就等于还要运行一次报表。我的表比较大，每个表都有几十万条记录，从这么大的几个表里找记录本来运行起来比较慢。
既然窗体上能显示出记录，应该有什么方法可以把窗体的记录读出来再进行操作，不知到能实现不，请哪位大侠指点下！谢谢！

红尘如烟

如果你只是在子窗体中显示查询结果的话，不一定要在子窗体的源对象中使用窗体，可以将子窗体的源对象设为查询(类似于“查询.查询1”)，这样打印时直接打印查询，查询也不用运行多次

FookYou

如果你只是在子窗体中显示查询结果的话，不一定要在子窗体的源对象中使用窗体，可以将子窗体的源对象设为查询(类似于“查询.查询1”)，这样打印时直接打印查询，查询也不用运行多次
红尘如烟 发表于 2010-1-5 13:40

我就是把子窗体的源对象设置成“查询.查询1",请问打印查询vba该怎么写？

红尘如烟

查询方法可以在窗体中点击查询按钮后，用代码动态修改查询对象的SQL属性：

1. 
   
2. Private Sub cmdQuery_Click()
   
3.     Dim strSQL As String
   
4.    
   
5.     strSQL = "SELECT * FROM 表1 WHERE 字段1>=" & Me.文本框1
   
6.     CurrentDb.QueryDefs("查询1").SQL = strSQL
   
7.     Me.查询子窗体.SourceObject = "查询.查询1"
   
8.     DoCmd.OpenQuery "查询1", acViewPreview
   
9.    
   
10. End Sub
    
11. 
    

复制代码