如何让VB自带报表不预览 直接打印~高分悬赏

问题描述：

谢谢这位老大
现在可以直接打印了~可是预览效果还是出来了
我把DataReport1.Visible属性设置为False了还是不行
With DataReport1
Set .DataSource = zcd.adoQuery
.Sections("Section1").Controls"text1").DataField= "dwmc"
.Sections("Section1").Controls"text2").DataField= "frdb"
' .Show
End With
DataReport1.PrintReport

问题解答：

Set 数据报表名.DataSource = Rst
数据报表名.DataMember = Rst.DataMember
数据报表名.Sections("Section1").Controls("XXX").DataField = 字段名
.
.
.
数据报表名.PrintReport

直接调用PrintReport就不会出现预览窗口

那个就没有遇到过了，你可之前把DataReport1.visible=false试试