vb 水晶报表打印

我会带着你远行 2022-03-31 03:14 241阅读 0赞

vb里面的水晶报表打印控件：CrystalReportViewer

![12123904-a6febf77401247a6a58c013fcfdddcc5.jpg][]

用到的dll文件：

![12124051-2e432c9b10494b7c9ad2cf5a05119b92.jpg][]

水晶报表打印其实很简单，只要创建报表对象，再对其传递数据就可以打印出来。当然所传递的数据要与水晶报表设计里面的数据一致：

Public Overloads Sub ShowDialog(ByVal netDs As DataSet, ByVal strPath As String, Optional ByVal showPrint As Boolean = True, Optional ByVal showExport As Boolean = True)
            Try
                If netDs.Tables(0).Rows.Count > 0 Then
                    Dim rpt As New ReportDocument
                    rpt.Load(strPath)
                    rpt.SetDataSource(netDs)
    
                    CRV.ReportSource = rpt
                    CRV.ShowPrintButton = showPrint
                    CRV.ShowExportButton = showExport
                    Dim t As New ComboBox
                    t.Visible = True
                    ShowDialog()
                Else
                    MsgBox("Not print Data！", MsgBoxStyle.Critical)
                End If
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
        End Sub

调用例子：在其他设计界面，当要打印之时，直接传递参数到打印界面即可。

Dim daOM As SqlDataAdapter
        Dim cmbOM As SqlCommandBuilder
        Dim dsOM As New DataSet
    
        Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Try
                daOM = New SqlDataAdapter("select top 5 * from facd321 ", GetConn)
                cmbOM = New SqlCommandBuilder(daOM)
    
                daOM.Fill(dsOM, "OM")
    
                With dg
                    .DataSource = dsOM.Tables("OM")
                    .WindowLaguage = myDataGrid.myDatagrid.LanguageType.English
                    .FilterBar = True
                    Dim ii As Int16
                    For ii = 0 To .Splits(0).DisplayColumns.Count - 1
                        .Splits(0).DisplayColumns(ii).Locked = True
                    Next
                End With
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error")
            End Try
        End Sub
    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Try
                Me.Cursor = Cursors.WaitCursor
    
                Dim f As New Form1
                AddBarcodeImages(dsOM.Tables(0))
                f.ShowDialog(dsOM, Application.StartupPath & "\Reports\bundle.rpt")
            Catch ex As Exception
                MsgBox(ex.ToString)
            Finally
                Me.Cursor = Cursors.Default
            End Try
        End Sub

报表设计：

![12125424-31562dbaedaf43de86c433dd88bffc5f.jpg][]

运行效果：

![12125252-6752d228c5c546e0a92097b13728ba58.jpg][]

[12123904-a6febf77401247a6a58c013fcfdddcc5.jpg]: /images/20220331/1525a2564fe64383bb7aae79dcce09d7.png
[12124051-2e432c9b10494b7c9ad2cf5a05119b92.jpg]: /images/20220331/9725024a3fec4d7f90d2b48229c11d25.png
[12125424-31562dbaedaf43de86c433dd88bffc5f.jpg]: /images/20220331/5e041d1b21e243758b73d913a6b91a8f.png
[12125252-6752d228c5c546e0a92097b13728ba58.jpg]: /images/20220331/6d1f56d0addd4c469a43a9a88b41d40f.png