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);
??? }

轉載于:https://www.cnblogs.com/runfeng/archive/2005/10/17/256734.html

總結

以上是生活随笔為你收集整理的打印控件的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。