水晶报表用户自定义打印(c/s)

 

Public Class Form1

    Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()

        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。

        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写处置以清理组件列表。

    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

        If disposing Then

            If Not (components Is Nothing) Then

                components.Dispose()

            End If

        End If

        MyBase.Dispose(disposing)

    End Sub

    'Windows 窗体设计器所必需的

    Private components As System.ComponentModel.IContainer

    '注意：以下过程是 Windows 窗体设计器所必需的

    '可以使用 Windows 窗体设计器修改此过程。

    '不要使用代码编辑器修改它。

    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox

    Friend WithEvents SSTab1 As System.Windows.Forms.TabControl

    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage

    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage

    Friend WithEvents AxCRDesignerCtrl101 As AxCRDESIGNERCTRLLib10.AxCRDesignerCtrl10

    Friend WithEvents AxCrystalActiveXReportViewer1 As AxCrystalActiveXReportViewerLib10.AxCrystalActiveXReportViewer

    Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar

    Friend WithEvents tbbNew As System.Windows.Forms.ToolBarButton

    Friend WithEvents tbbOpen As System.Windows.Forms.ToolBarButton

    Friend WithEvents tbbSave As System.Windows.Forms.ToolBarButton

    Friend WithEvents tbbClose As System.Windows.Forms.ToolBarButton

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))

        Me.PictureBox1 = New System.Windows.Forms.PictureBox

        Me.SSTab1 = New System.Windows.Forms.TabControl

        Me.TabPage1 = New System.Windows.Forms.TabPage

        Me.AxCRDesignerCtrl101 = New AxCRDESIGNERCTRLLib10.AxCRDesignerCtrl10

        Me.TabPage2 = New System.Windows.Forms.TabPage

        Me.AxCrystalActiveXReportViewer1 = New AxCrystalActiveXReportViewerLib10.AxCrystalActiveXReportViewer

        Me.ToolBar1 = New System.Windows.Forms.ToolBar

        Me.tbbNew = New System.Windows.Forms.ToolBarButton

        Me.tbbOpen = New System.Windows.Forms.ToolBarButton

        Me.tbbSave = New System.Windows.Forms.ToolBarButton

        Me.tbbClose = New System.Windows.Forms.ToolBarButton

        Me.SSTab1.SuspendLayout()

        Me.TabPage1.SuspendLayout()

        CType(Me.AxCRDesignerCtrl101, System.ComponentModel.ISupportInitialize).BeginInit()

        Me.TabPage2.SuspendLayout()

        CType(Me.AxCrystalActiveXReportViewer1, System.ComponentModel.ISupportInitialize).BeginInit()

        Me.SuspendLayout()

        '

        'PictureBox1

        '

        Me.PictureBox1.BackColor = System.Drawing.SystemColors.ActiveCaptionText

        Me.PictureBox1.Location = New System.Drawing.Point(624, 8)

        Me.PictureBox1.Name = "PictureBox1"

        Me.PictureBox1.Size = New System.Drawing.Size(96, 32)

        Me.PictureBox1.TabIndex = 3

        Me.PictureBox1.TabStop = False

        '

        'SSTab1

        '

        Me.SSTab1.Controls.Add(Me.TabPage1)

        Me.SSTab1.Controls.Add(Me.TabPage2)

        Me.SSTab1.ItemSize = New System.Drawing.Size(0, 17)

        Me.SSTab1.Location = New System.Drawing.Point(0, 40)

        Me.SSTab1.Name = "SSTab1"

        Me.SSTab1.SelectedIndex = 0

        Me.SSTab1.Size = New System.Drawing.Size(728, 528)

        Me.SSTab1.TabIndex = 2

        '

        'TabPage1

        '

        Me.TabPage1.Controls.Add(Me.AxCRDesignerCtrl101)

        Me.TabPage1.Location = New System.Drawing.Point(4, 21)

        Me.TabPage1.Name = "TabPage1"

        Me.TabPage1.Size = New System.Drawing.Size(720, 503)

        Me.TabPage1.TabIndex = 0

        Me.TabPage1.Text = "设计"

        '

        'AxCRDesignerCtrl101

        '

        Me.AxCRDesignerCtrl101.ContainingControl = Me

        Me.AxCRDesignerCtrl101.Enabled = True

        Me.AxCRDesignerCtrl101.Location = New System.Drawing.Point(0, 0)

        Me.AxCRDesignerCtrl101.Name = "AxCRDesignerCtrl101"

        Me.AxCRDesignerCtrl101.OcxState = CType(resources.GetObject("AxCRDesignerCtrl101.OcxState"), System.Windows.Forms.AxHost.State)

        Me.AxCRDesignerCtrl101.Size = New System.Drawing.Size(720, 504)

        Me.AxCRDesignerCtrl101.TabIndex = 0

        '

        'TabPage2

        '

        Me.TabPage2.Controls.Add(Me.AxCrystalActiveXReportViewer1)

        Me.TabPage2.Location = New System.Drawing.Point(4, 21)

        Me.TabPage2.Name = "TabPage2"

        Me.TabPage2.Size = New System.Drawing.Size(720, 503)

        Me.TabPage2.TabIndex = 1

        Me.TabPage2.Text = "预览"

        '

        'AxCrystalActiveXReportViewer1

        '

        Me.AxCrystalActiveXReportViewer1.ContainingControl = Me

        Me.AxCrystalActiveXReportViewer1.Enabled = True

        Me.AxCrystalActiveXReportViewer1.Location = New System.Drawing.Point(0, 0)

        Me.AxCrystalActiveXReportViewer1.Name = "AxCrystalActiveXReportViewer1"

        Me.AxCrystalActiveXReportViewer1.OcxState = CType(resources.GetObject("AxCrystalActiveXReportViewer1.OcxState"), System.Windows.Forms.AxHost.State)

        Me.AxCrystalActiveXReportViewer1.Size = New System.Drawing.Size(720, 496)

        Me.AxCrystalActiveXReportViewer1.TabIndex = 0

        '

        'ToolBar1

        '

        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbbNew, Me.tbbOpen, Me.tbbSave, Me.tbbClose})

        Me.ToolBar1.DropDownArrows = True

        Me.ToolBar1.Location = New System.Drawing.Point(0, 0)

        Me.ToolBar1.Name = "ToolBar1"

        Me.ToolBar1.ShowToolTips = True

        Me.ToolBar1.Size = New System.Drawing.Size(728, 41)

        Me.ToolBar1.TabIndex = 6

        '

        'tbbNew

        '

        Me.tbbNew.Text = " New "

        '

        'tbbOpen

        '

        Me.tbbOpen.Text = "Open"

        '

        'tbbSave

        '

        Me.tbbSave.Text = "Save"

        '

        'tbbClose

        '

        Me.tbbClose.Text = "Close"

        '

        'Form1

        '

        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)

        Me.ClientSize = New System.Drawing.Size(728, 573)

        Me.Controls.Add(Me.ToolBar1)

        Me.Controls.Add(Me.SSTab1)

        Me.Name = "Form1"

        Me.Text = "昆供报表定制"

        Me.SSTab1.ResumeLayout(False)

        Me.TabPage1.ResumeLayout(False)

        CType(Me.AxCRDesignerCtrl101, System.ComponentModel.ISupportInitialize).EndInit()

        Me.TabPage2.ResumeLayout(False)

        CType(Me.AxCrystalActiveXReportViewer1, System.ComponentModel.ISupportInitialize).EndInit()

        Me.ResumeLayout(False)

    End Sub

#End Region

    Dim m_Application As New CRAXDDRT.Application

    Dim m_Report As CRAXDDRT.Report

    '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    '该版本用到的是水晶报表10高级开发版，不能用企业版，因为企业版缺少控件支持

    '程序需要用到CRDesignerCtrl.DLL，然后还要COM引用 crystal reports activex designer design and ruantime library 10.0

    '程序还需要添加两个com组件，embeddable crystal reports designer control 10.0 和 crystal activex report viewer control 10.0

    '就可以运新了

    '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        SSTab1.TabIndex = 0

        AxCrystalActiveXReportViewer1.EnableExportButton = True

        AxCRDesignerCtrl101.DisplayToolbar = True

    End Sub

    Public Sub DisplayReport()

        AxCRDesignerCtrl101.ReportObject = m_Report '指定设计控件的报表源

        AxCRDesignerCtrl101.EnableHelp = False

        AxCrystalActiveXReportViewer1.ReportSource = m_Report   '指定预览控件报表源

        AxCrystalActiveXReportViewer1.Zoom(1)

        AxCrystalActiveXReportViewer1.ViewReport()

    End Sub

    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick

        Try

            Select Case Trim(e.Button.Text)

                Case "New"

                    m_Report = Nothing

                    m_Report = m_Application.OpenReport(Application.StartupPath & "/Report1.rpt", 1) '打开空白rpt

                    DisplayReport()

                Case "Open"

                    Dim dlg As New OpenFileDialog

                    dlg.Title = "请选择rpt格式文件"

                    dlg.Filter = "Crystal Reports (*.rpt)|*.rpt|All Files (*.*)|*.*"

                    dlg.InitialDirectory = "C:/Program Files/Microsoft Visual Studio.NET/Crystal Reports/Samples/Reports"

                    If (dlg.ShowDialog() = DialogResult().OK) Then

                        m_Report = Nothing

                        Me.Cursor = Cursors.WaitCursor  '定义鼠标样式

                        m_Report = m_Application.OpenReport(dlg.FileName, 1)    '打开已存在的rpt

                        Me.Cursor = Cursors.Default

                        DisplayReport()

                    End If

                    dlg.Dispose()   '释放dialog资源，不然会出错

                Case "Save"

                    Dim dlgSave As New SaveFileDialog

                    dlgSave.Title = "请保存rpt格式文件"

                    dlgSave.Filter = "Crystal Reports (*.rpt)|*.rpt"

                    dlgSave.InitialDirectory = "c:/"

                    If (dlgSave.ShowDialog() = DialogResult.OK) Then

                        m_Report.SaveAs(dlgSave.FileName, CRAXDDRT.CRReportFileFormat.crDefaultFileFormat)  '保存修改后的rpt

                    End If

                    dlgSave.Dispose()   '释放dialog资源，不然会出错

                Case "Close"

                    m_Report = Nothing

                    Me.Close()

            End Select

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

        Me.AxCRDesignerCtrl101.Dispose()    '释放控件资源

        Me.AxCrystalActiveXReportViewer1.Dispose()

    End Sub

End Class