开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 打印编程 > 查看源码
frmExcelPrint.vb
资源名称：GOLDPRINT.rar　[点击查看]
上传用户：jx_fiona
上传日期：2014-03-08
资源大小：1387k
文件大小：9k
源码类别：

打印编程

开发平台：

Others

frmExcelPrint.vb：源码内容
  2. ' Excel输出、Excel打印预览、Excel模板定制 -- 通打天下报表
  3. ' 将所有的格式、报表统计、图形分析等等借用Excel强大功能
  4. Public Class frmExcelPrint
  5.     Inherits System.Windows.Forms.Form
  7. #Region " Windows 窗体设计器生成的代码 "
  9.     Public Sub New()
  10.         MyBase.New()
  12.         '该调用是 Windows 窗体设计器所必需的。
  13.         InitializeComponent()
  15.         '在 InitializeComponent() 调用之后添加任何初始化
  17.     End Sub
  19.     '窗体重写 dispose 以清理组件列表。
  20.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  21.         If disposing Then
  22.             If Not (components Is Nothing) Then
  23.                 components.Dispose()
  24.             End If
  25.         End If
  26.         MyBase.Dispose(disposing)
  27.     End Sub
  29.     'Windows 窗体设计器所必需的
  30.     Private components As System.ComponentModel.IContainer
  32.     '注意: 以下过程是 Windows 窗体设计器所必需的
  33.     '可以使用 Windows 窗体设计器修改此过程。
  34.     '不要使用代码编辑器修改它。
  35.     Friend WithEvents dataGrid1 As System.Windows.Forms.DataGrid
  36.     Friend WithEvents btnExcelTemplate As System.Windows.Forms.Button
  37.     Friend WithEvents btnExcel As System.Windows.Forms.Button
  38.     Friend WithEvents btnExcelPreview As System.Windows.Forms.Button
  39.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  40.         Me.dataGrid1 = New System.Windows.Forms.DataGrid
  41.         Me.btnExcelTemplate = New System.Windows.Forms.Button
  42.         Me.btnExcel = New System.Windows.Forms.Button
  43.         Me.btnExcelPreview = New System.Windows.Forms.Button
  44.         CType(Me.dataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
  45.         Me.SuspendLayout()
  46.         '
  47.         'dataGrid1
  48.         '
  49.         Me.dataGrid1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
  50.                     Or System.Windows.Forms.AnchorStyles.Left) _
  51.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  52.         Me.dataGrid1.CaptionText = "MIS金质打印通  通打天下报表  作者：长江支流  下载：www.webmis.com.cn"
  53.         Me.dataGrid1.DataMember = ""
  54.         Me.dataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
  55.         Me.dataGrid1.Location = New System.Drawing.Point(0, 40)
  56.         Me.dataGrid1.Name = "dataGrid1"
  57.         Me.dataGrid1.ReadOnly = True
  58.         Me.dataGrid1.Size = New System.Drawing.Size(712, 408)
  59.         Me.dataGrid1.TabIndex = 13
  60.         '
  61.         'btnExcelTemplate
  62.         '
  63.         Me.btnExcelTemplate.Location = New System.Drawing.Point(392, 8)
  64.         Me.btnExcelTemplate.Name = "btnExcelTemplate"
  65.         Me.btnExcelTemplate.Size = New System.Drawing.Size(312, 23)
  66.         Me.btnExcelTemplate.TabIndex = 11
  67.         Me.btnExcelTemplate.Text = "Excel模板套打、格式、统计分析报表、图形分析"
  68.         '
  69.         'btnExcel
  70.         '
  71.         Me.btnExcel.Location = New System.Drawing.Point(8, 8)
  72.         Me.btnExcel.Name = "btnExcel"
  73.         Me.btnExcel.Size = New System.Drawing.Size(180, 23)
  74.         Me.btnExcel.TabIndex = 10
  75.         Me.btnExcel.Text = "Excel输出"
  76.         '
  77.         'btnExcelPreview
  78.         '
  79.         Me.btnExcelPreview.Location = New System.Drawing.Point(200, 8)
  80.         Me.btnExcelPreview.Name = "btnExcelPreview"
  81.         Me.btnExcelPreview.Size = New System.Drawing.Size(180, 23)
  82.         Me.btnExcelPreview.TabIndex = 12
  83.         Me.btnExcelPreview.Text = "Excel打印预览"
  84.         '
  85.         'frmExcelPrint
  86.         '
  87.         Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
  88.         Me.ClientSize = New System.Drawing.Size(712, 446)
  89.         Me.Controls.Add(Me.dataGrid1)
  90.         Me.Controls.Add(Me.btnExcelTemplate)
  91.         Me.Controls.Add(Me.btnExcel)
  92.         Me.Controls.Add(Me.btnExcelPreview)
  93.         Me.Name = "frmExcelPrint"
  94.         Me.Text = "Excel输出、Excel打印预览、Excel模板定制 -- 通打天下报表"
  95.         CType(Me.dataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
  96.         Me.ResumeLayout(False)
  98.     End Sub
  100. #End Region
  102.     '用Excel打印
  103.     Private Sub btnExcel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExcel.Click
  104.         Me.Cursor = Cursors.WaitCursor
  105.         ImportPrint(False)
  106.         Me.Cursor = Cursors.Default
  107.     End Sub
  109.     '直接调用Excel打印预览，用户可以调整列宽、设置页面、页边距、页眉页脚、调整居中方式
  110.     Private Sub btnExcelPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExcelPreview.Click
  111.         Me.Cursor = Cursors.WaitCursor
  112.         ImportPrint(True)
  113.         Me.Cursor = Cursors.Default
  114.     End Sub
  116.     '用Excel定制模板打印，所有的格式、报表统计、图形分析等等借用Excel强大功能
  117.     Private Sub btnExcelTemplate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExcelTemplate.Click
  118.         Me.Cursor = Cursors.WaitCursor
  119.         ExcelTemplatePrint()
  120.         Me.Cursor = Cursors.Default
  121.     End Sub
  123.     '加载打印示例数据
  124.     Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  125.         Me.dataGrid1.DataSource = Me.GetDataSource()
  126.     End Sub
  128.     Private Function GetDataSource() As System.Data.DataTable
  129.         Return PrintDataSource.GetDataSource(10)
  130.     End Function
  133.     Private Sub ImportPrint(ByVal IsPrintPreview As Boolean)
  135.         Dim dt As New System.Data.DataTable
  136.         dt = CType(dataGrid1.DataSource, DataTable)
  138.         Dim font As New Font("黑体", 21, FontStyle.Bold)
  140.         '用Excel打印，步骤为：打开、写数据、打印预览、关闭
  141.         Dim excel As New GoldPrinter.ExcelAccess
  142.         excel.Open()
  144.         excel.FormCaption = Me.dataGrid1.CaptionText    '"MIS金质打印通  通打天下报表"
  146.         excel.MergeCells(1, 1, 1, dt.Columns.Count)     '合并单元格写标题，并设置字体
  147.         excel.SetFont(1, 1, 1, dt.Columns.Count, font)
  148.         excel.SetCellText(1, 1, 1, dt.Columns.Count, "为灾区募捐，为中国程序员呐喊")
  150.         '打印网格及网格线
  151.         excel.SetCellText(dt, 3, 1, True)
  154.         '可以在打印预览时单击“页边距”，调整每列的宽。单击“设置页边距”，选择水平居中方式
  155.         If (IsPrintPreview) Then
  156.             excel.PrintPreview()
  157.             excel.Close()
  158.         Else
  159.             excel.ShowExcel()
  160.         End If
  162.         font.Dispose()
  164.     End Sub
  166.     '用Excel模板打印，比较适合套打、格式、统计分析报表、图形分析、自定义打印
  167.     Private Sub ExcelTemplatePrint()
  168.         '用Excel打印，步骤为：打开、写数据、打印预览、关闭
  169.         Dim dt As New System.Data.DataTable
  170.         dt = CType(dataGrid1.DataSource, DataTable)     '少打几行看看，哈，打多少也行，只要你不闲慢
  173.         Dim excel As New GoldPrinter.ExcelAccess
  174.         Dim strExcelTemplateFile As String = System.IO.Path.GetFullPath("..ExcelTemplateexample.xlt")
  176.         excel.Open(strExcelTemplateFile)                '用模板文件
  177.         excel.IsVisibledExcel = True
  178.         excel.FormCaption = Me.dataGrid1.CaptionText    '"MIS金质打印通  通打天下报表"
  181.         Dim intDataTemplateRowIndex As Int32 = 16       '//15、16、17为模板数据行，在中间插入，则SUM(E15:E17)会自动更新如SUM(E15:E18)
  182.         Dim intDataStartRowIndex As Int32 = 18         '//写数据起始行，这里应用了Excel本身的技巧，把格式和合计留给Excel本身去做。
  183.         '//大家可以打开Excel文件，其中模板定义了三个数据行即15、16、17行（定义格式如小数位数、对齐），还有一个合计行18行，合计行定义了形如 =SUM(E15:E17) 。
  184.         '//为什么定义三行数据行呢？因为定义多于两行的话，插入复制单元格后Excel会自动把SUM(E15:E17)中间的合计行也会增加一行
  185.         '//如拷贝第16行，并在16行插入复制单元格后，数据行会成为4行，而合计=SUM(E15:E17)自动变成=SUM(E15:E18)、
  186.         '//同理，图形统计也利用了这一原理
  187.         '//***哈哈，大家注意了，以上是Excel本身的技术，与程序无关啊，我只是在制作Excel模板的时候用了Excel本身的技术，大家如果看不明白我上面的解释，不用管。
  189.         '打印网格上面说明
  190.         excel.SetCellText(12, "B", "010-81120172")
  191.         'excel.SetCellText(12, "E", "go@webmis.com.cn")
  193.         '打印网格及网格线，可以直接调用
  194.         'excel.SetCellText(dt, intDataStartRowIndex, 1, True)
  196.         '打印网格下面说明
  197.         excel.SetCellText(19, "B", "010-81120172")
  198.         excel.SetCellText(20, "B", "flygoldfish@sina.com")
  199.         excel.SetCellText(19, "E", "150439795")
  200.         excel.SetCellText(20, "E", System.DateTime.Now.ToLongDateString())
  201.         excel.SetCellText(21, "A", "定制模板打印真方便啊，可以把好多事情如格式、计算、图表等让Excel自己做。")
  202.         excel.SetCellText(22, "A", "不信?打开" + strExcelTemplateFile)
  204.         '打印数据网格
  205.         '这里用另一种方法，直接输出到模板文件指定的数据行上，不影响其它数据
  207.         Dim i, j As Int32
  208.         For i = 0 To dt.Rows.Count - 1
  209.             excel.InsertRow(intDataTemplateRowIndex, intDataTemplateRowIndex) '拷贝插入模板行并设置行高
  210.             excel.SetRowHeight(intDataTemplateRowIndex, 14.25F)
  211.         Next
  213.         For i = 0 To dt.Rows.Count - 1
  214.             For j = 0 To dt.Columns.Count - 1
  215.                 excel.SetCellText(intDataStartRowIndex + i, j + 1, dt.Rows(i)(j).ToString())
  216.             Next
  217.         Next
  220.         '画边框及网格线
  221.         excel.SetBordersEdge(intDataStartRowIndex, 1, intDataStartRowIndex + dt.Rows.Count - 1, dt.Columns.Count, False)
  223.         '删除模板数据行
  224.         excel.DeleteRow(17)
  225.         excel.DeleteRow(16)
  226.         excel.DeleteRow(15)
  228.         excel.PrintPreview()    '预览
  230.         excel.Close()           '关闭并释放
  232.     End Sub
  235. End Class