快乐酷宝第3部:VB中用DataReport做报表的几个问题，我的分全给他

1、问题一：

Private Sub DataReport_Initialize()
DataReport.label1.caption=MainFrm.text1.text
End Sub

2、问题二：
你要是动态显示MainFrm.DataGrid1里的记录的话，基本上没有什么好的解决办法，因为你需要动态的增加datareport里的元素，但这样又不好控制报表的页面布局格式。所以，还是建议你换个报表控件吧，别再用VB自带的东西了，只适合初级编程时玩玩而已，实际应用的话，那不出手的。
推荐给你一个吧，用VSFLEX和VSPRINT这两个组合比较不错，你到网上搜一下吧，我一直没用这个了。

不是这么蛮干的，

1.你要插入一个DataEnvironment，在菜单[工程]里直接添加

右键再点他添加一个Command命令，给Connection和Command随便设置属性，随便设置就好了，不要让他空连接，我是教你用ADO来控制。

设置完了过后，你要添加一个DataReport

DataReport里面有Label也有Text，你拖放在报表上，在他属性里直接添写数据源和命令名称，把报表先设计好，是打印数据连接控件里的数据，不是打印DataGrid,打印DataGrid有专业的工具，如现在的VSPrint。从出发点来讲DataReport是自己画报表，给文本数据源遍历数据库。DataEnvironment数据源是不怎么好控制的，他太老了，所以我教你直接把ADO控件的数据源给他。

在窗体上事件过程中一句话就搞定了：

Set DataEnvironment1.rsCommand1.DataSource = Adodc1

要打印预览就写语句：

 DataReport1.Show

在窗体中拖入一个ADO控件，完整代码如下（以一个按钮事件为例）：

Private Sub 按钮名_Click()

Adodc1.ConnctionString="Driver={SQL Server};Server=服务器IP;UID=用户名;pwd=密码;DataBase=数据库名"

Adodc1.RecordSource="Select * From 表 Where 字段='"+窗体上控件名+"'"

Adodc1.Refresh

Set DataEnvironment1.rsCommand1.DataSource = Adodc1

DataReport1.Show

End Sub

整个代码过程就这么简单，报表版式你要自己设置，报表页边距，本身宽度都要设置好，他是默认默认打印机。

如果是要打印DataGrid数据表，那简单，用个VSPrint控件解决，代码加入：

VSPrinter1.StartDoc

VSPrinter1.Zoom = 100 

VSPrinter1.RenderControl = Form1.DataGrid1.hWnd

VSPrinter1.EndDoc

打印出来的是DataGrid数据加上框架，很丑的