打印控件

Visual Basic - 第三方控制
Visual Basic - 打印与报表
Visual Basic - DBGrid

  现在几乎所有数据库表格控件(除了VB自身的DBGrid)都带有打印和预览功能，象True DBGrid Pro(http://www.componentone.com/)、Farpoint Spread(http://www.fpoint.com/)、Janus Grid和国产的Cell(http://www.trustsoft.com)。其中除了Janus Grid，其它几种控件在国内都可以买到。如果你平时使用DBGrid比较多，可以考虑True DBGrid Pro。Cell在中文方面当然更出色。在单机上，几个产品效果、价钱都差不多。但如果你想在多台机器上安装软件就有问题了。因为Cell是每台运行的机器都要购买一套，而其它的产品一般只需要在开发的机器上购买一套，运行的机器无需购买。
    另外，可以参考QA000050 "能否利用Crystal Reports打印Data控件的Recordset对象的虚拟表"。

http://www.china-askpro.com/msg13/qa10.shtml

打印问题

Crystaleport 用法很简单：在要显示ActiveReports窗体前，加入：
Creport ActiveReport1   'ActiveReport1是AR的窗体。

Public Sub Creport(AReport As ActiveReport)
'汉化ActiveReport
'以下适用2.0
With AReport
  .ToolBar.Tools.Item(0).Tooltip = "各页目录"
  .ToolBar.Tools.Item(2).Caption = "打印..."
  .ToolBar.Tools.Item(2).Tooltip = "打印报表"
  .ToolBar.Tools.Item(4).Tooltip = "拷贝"
  .ToolBar.Tools.Item(6).Tooltip = "查找"
  .ToolBar.Tools.Item(8).Tooltip = "单页显示"
  .ToolBar.Tools.Item(9).Tooltip = "多页显示"
  .ToolBar.Tools.Item(11).Tooltip = "缩小"
  .ToolBar.Tools.Item(12).Tooltip = "放大"
  .ToolBar.Tools.Item(15).Tooltip = "上一页"
  .ToolBar.Tools.Item(16).Tooltip = "下一页"
  .ToolBar.Tools.Item(19).Tooltip = "后退"
  .ToolBar.Tools.Item(19).Caption = "后退"
  .ToolBar.Tools.Item(20).Tooltip = "前进"
  .ToolBar.Tools.Item(20).Caption = "前进"
 End With
End Sub

s/n: 70001 5367907:

http://www.chinaaspx.com/club/topic_3_12999.htm
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Not IsPostBack Then
Fill_DrpWc()
Fill_DrpGrp()
Fill_DbGrid()
End If
'reportDocument1.Load("C:\\Inetpub\\wwwroot\\Websfc\\CrystalReport1.rpt")
'CrystalReportViewer1.ReportSource = reportDocument1
CrystalReportViewer1.DataBind()

End Sub
单击打印！
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
reportDocument1.PrintOptions.PaperSize = CrystalDecisions.[Shared].PaperSize.PaperA3

reportDocument1.PrintOptions.PrinterName = "HP LaserJet 6L"

reportDocument1.PrintToPrinter(1, False, 0, 0)
End Sub

但有个问题哦，无论你在那台机器上打印输出的都是server机器上的打印机！

   // This function enables and disables the Crystal Reports Win Form Viewer
    private void EnableViewer(bool show)
    {       
        SeagateSoftware.WinForms.ToolbarStateChangeEvent evt = new SeagateSoftware.WinForms.ToolbarStateChangeEvent(show);
        crystalReportViewer1.Toolbar.OnStateChange(this, evt);
    }