急.....怎么不用显示预览界面，就可以直接打印报表???元限感激..

[shop98]

我的做法
Dim fmZprint As New fmZprint() '放预览的窗体
Dim rtProduceCard As New rtProduceCard() '打报表文件创建一个新的对象
rtProduceCard.SetDataSource(dsOrderA) '给示对象数据源(DataSet)
fmZprint.CRV.ReportSource = rtProduceCard '窗体.预览控件crv.报表
fmZprint.Show() '把预览窗体显示
现在不要把fmZprint显示出来，就直接可以打印。
我试了用rtProduceCard.PrintToPrinter(1, False, 0, 0)
但是汉打不出。其它正常
怎么办？无限感激.......

[3tzjq]

实例化报表并设置数据源后直接使用：rpt.PrintToPrinter(1, False, 0, 0)

[sz_lgp]

直接打印rpt.PrintToPrinter(1, False, 0, 0)

[Montaque]

要先设置打印机的名字，比如

Private Sub PrintReport(ByVal printerName As String)
Dim margins As PageMargins

' Get the PageMargins structure and set the
' margins for the report.
margins = Report.PrintOptions.PageMargins
margins.bottomMargin = 350
margins.leftMargin = 350
margins.rightMargin = 350
margins.topMargin = 350
' Apply the page margins.
Report.PrintOptions.ApplyPageMargins(margins)

' Select the printer.
Report.PrintOptions.PrinterName = printerName

' Print the report. Set the startPageN and endPageN
' parameters to 0 to print all pages.
Report.PrintToPrinter(1, False, 0, 0)
End Sub

[蜗牛水里爬]

shop98 (笨笨鸟),可以把全部代码贴出来吗？或者发到我邮箱里[e-mail]
谢谢了~
我在学报表，我连预览都不出来，郁闷。。。。。。。

[wangxt]

帮你顶

[haoztao]

不是很清楚，帮你顶啊！

[xxuu503]

UP

[sean168]

学习

[yuchun0607]

这个是什么报表啊？我也不知道怎么打印报表，也给我一份
[e-mail]
谢谢了

[蜗牛水里爬]

给我看看代码好不~