我使用自带的报表系统开发报表，只能预览，而不能打印，而从别人那里下载的源代码，却可以实现打印，为什么我的不能打印各导出，是不是我设置的不对，可是我一项一项的比较过没有错呀！谢谢！请给予回答？

烦请高手给解释一下，谢谢！

烦请高手给解释一下，谢谢！

你把源码,贴出来看一下嘛!  这样顶,很幸苦的....

你有邮箱吗？我可以将源文件发给您？
Dim strcmd As String
strcmd = "select tabxm.bsjdwname,Bsjdwdsjbgdsmyj.Bbsjdwsmyj,Bsjdwdsjbgdsmyj.Bbsjdwfzr,Bsjdwdsjbgdsmyj.cjrq from Bsjdwdsjbgdsmyj,tabxm where Bsjdwdsjbgdsmyj.xmname=tabxm.xmname" _
& " and Bsjdwdsjbgdsmyj.xmname='" & Me.cboxm.Text & "' and Bsjdwdsjbgdsmyj.mlname='" & Me.txtMLname.Text & "'"

Dim report As New CrptBsjdwdsjbgdsmyj
Dim dataset As New DsetBsjdwdsjbgdsmyj
Dim conn As New OleDbConnection
conn.ConnectionString = cls.conn
conn.Open()

Dim oledbapter As New OleDbDataAdapter(strcmd, conn)
oledbapter.Fill(dataset, "bjsdwdsjbgdsmyj")
report.SetDataSource(dataset)
Dim frtemp As New FrmPreview
frtemp.CryViewer.ReportSource = report
frtemp.Show()

有没有高手呀，不能解决吗？