水晶报表用户自定义打印(c/s)
水晶报表用户自定义打印(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