打印编程

开发平台：
Others

frmAbout.vb：源码内容
							Public Class frmAbout
    Inherits System.Windows.Forms.Form
#Region " Windows 窗体设计器生成的代码 "
    Public Sub New()
        MyBase.New()
        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()
        '在 InitializeComponent() 调用之后添加任何初始化
    End Sub
    '窗体重写 dispose 以清理组件列表。
    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 btnOK As System.Windows.Forms.Button
    Friend WithEvents textBox1 As System.Windows.Forms.TextBox
    Friend WithEvents txtDescript As System.Windows.Forms.TextBox
    Friend WithEvents label10 As System.Windows.Forms.Label
    Friend WithEvents label9 As System.Windows.Forms.Label
    Friend WithEvents lkForum As System.Windows.Forms.LinkLabel
    Friend WithEvents label8 As System.Windows.Forms.Label
    Friend WithEvents label7 As System.Windows.Forms.Label
    Friend WithEvents lkBlog As System.Windows.Forms.LinkLabel
    Friend WithEvents label6 As System.Windows.Forms.Label
    Friend WithEvents label5 As System.Windows.Forms.Label
    Friend WithEvents label3 As System.Windows.Forms.Label
    Friend WithEvents label1 As System.Windows.Forms.Label
    Friend WithEvents label2 As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.btnOK = New System.Windows.Forms.Button
        Me.textBox1 = New System.Windows.Forms.TextBox
        Me.txtDescript = New System.Windows.Forms.TextBox
        Me.label10 = New System.Windows.Forms.Label
        Me.label9 = New System.Windows.Forms.Label
        Me.lkForum = New System.Windows.Forms.LinkLabel
        Me.label8 = New System.Windows.Forms.Label
        Me.label7 = New System.Windows.Forms.Label
        Me.lkBlog = New System.Windows.Forms.LinkLabel
        Me.label6 = New System.Windows.Forms.Label
        Me.label5 = New System.Windows.Forms.Label
        Me.label3 = New System.Windows.Forms.Label
        Me.label1 = New System.Windows.Forms.Label
        Me.label2 = New System.Windows.Forms.Label
        Me.SuspendLayout()
        '
        'btnOK
        '
        Me.btnOK.Location = New System.Drawing.Point(492, 388)
        Me.btnOK.Name = "btnOK"
        Me.btnOK.TabIndex = 0
        Me.btnOK.Text = "确定"
        '
        'textBox1
        '
        Me.textBox1.BackColor = System.Drawing.SystemColors.Control
        Me.textBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.textBox1.Location = New System.Drawing.Point(12, 62)
        Me.textBox1.Name = "textBox1"
        Me.textBox1.Size = New System.Drawing.Size(548, 14)
        Me.textBox1.TabIndex = 30
        Me.textBox1.Text = "版权所有：周方勇[长江支流]  Email:flygoldfish@163.com  QQ:150439795"
        '
        'txtDescript
        '
        Me.txtDescript.Location = New System.Drawing.Point(10, 86)
        Me.txtDescript.Multiline = True
        Me.txtDescript.Name = "txtDescript"
        Me.txtDescript.ReadOnly = True
        Me.txtDescript.ScrollBars = System.Windows.Forms.ScrollBars.Both
        Me.txtDescript.Size = New System.Drawing.Size(550, 134)
        Me.txtDescript.TabIndex = 29
        Me.txtDescript.Text = "诚征冠名、赞助商、合作：" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "010 - 8112 0172" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & "功能特点：" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "简单快捷、易用实用，源码定制、变换无穷，Excel通打天下报表" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & "功能概述" & _
        "：" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "本程序为通用打印程序，单据、会计凭证、发票清单、报表、任意复杂表格、合并表格如工矿企业合同都可以由系统提供的几个默认打印对象组合打印。" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "DataGr" & _
        "id、DataTable、ListView、MSHFlexGrid、VS2005DataGridView等二维形式或二维数组全部可以打印。源码二次开发，通打天下" & _
        "报表。" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "后期版本将陆续提供XML描述、SQL数据源的打印，并用管理器管理任意多个网格、文本对象、图象等，用户可以随意定义。" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "MIS金质打印通（Excel" & _
        "专版）" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "开发Excel操作打印功能，能够生成Excel文件、Excel打印预览、Excel操作、Excel模板自定制套打、报表、分析、图形统计。" & Microsoft.VisualBasic.ChrW(9) & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & "程" & _
        "序提供：" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "周方勇" & Microsoft.VisualBasic.ChrW(9) & "（长江支流）" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "Email：" & Microsoft.VisualBasic.ChrW(9) & "flygoldfish@sina.com" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "QQ:" & Microsoft.VisualBasic.ChrW(9) & "150439795" & Microsoft.VisualBasic.ChrW(9) & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & "友情下载：" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "作者主页" & _
        "：" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "http://www.webmis.com.cn" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "中国共享软件网：" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "http://www.shareware.cn/pub/2261.html/" & _
        "2319.html" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "DOTNET控件网：" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "http://www.dnc.com.cn/?g=productview&id=252" & Microsoft.VisualBasic.ChrW(9) & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "中国盟动力：" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & _
        "" & Microsoft.VisualBasic.ChrW(9) & "http://www.tomore.com/1/20163.html" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "程序太平洋：" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "http://www.5ivb.net/Down/10/20054" & _
        "261071394" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "开源盛世：" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "http://www.vscodes.com/Software/Catalog32/404.html" & Microsoft.VisualBasic.ChrW(9) & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & "功能列表：" & _
        "" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "打印、预览、页面设置对话框" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "可以指定每个对象是否每页重复打印" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "可以调整套打" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "可以每页都显示当前页小计" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "可以为每页指定打印行数，小于等于" & _
        "0自适应，默认" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "可以打印装订线，分左装订和上装订，随意选择" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "打印有效区域矩阵，以在开发中参照" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "可以指定打印边框，分单边框，加粗单边框、双边框、加粗双" & _
        "边框等等" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "分页处理" & Microsoft.VisualBasic.ChrW(9) & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "背景颜色" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "能够生成Excel文件、Excel打印预览、Excel操作。" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "自定制模板打印，非常灵活。完成各种打印、套打、报表" & _
        "、图表分析。" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "MIS金质打印通（Excel专版）" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & "打印对象提供：" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "主标题" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "副标题" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "页顶(简单的一行三列打印样式,第一列居左,第三列居右" & _
        ",中间列居中)" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "网格头(任意行列数，正文网格主体之上的几行几列的标注说明)" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "网格标题(多层表头，任意合并，适应中国特点)" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "网格主体(清单、报表等等要" & _
        "打印的数据)" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "网格底(任意行列数)" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "页底(简单的一行三列打印样式,第一列居左,第三列居右,中间列居中)" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & "二次开发：" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(9) & "根据核心源码进行二次开" & _
        "发，满足各种不同需要。" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & "最新源码及相关文章：" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & "http://www.webmis.com.cn" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & "http://blog.csdn.net/flyg" & _
        "oldfish/" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & "★★★★★声明：本文版权、解释权、现有源代码版权归周方勇所有，如需转载，请保留完整的内容及此声明，以维护知识产权★★★★★"
        '
        'label10
        '
        Me.label10.Font = New System.Drawing.Font("宋体", 9.0!)
        Me.label10.Location = New System.Drawing.Point(10, 388)
        Me.label10.Name = "label10"
        Me.label10.Size = New System.Drawing.Size(468, 42)
        Me.label10.TabIndex = 28
        Me.label10.Text = "敬告：本程序为共享软件，不经过任何加密，无需注册。您可以免费使用、复制、传播本程序中的任何部分，但是需要保留相关程序注释以便接受传播者阅读。作者对使用本程序所引起" & _
        "的一切后果不承担任何责任。"
        '
        'label9
        '
        Me.label9.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.label9.Location = New System.Drawing.Point(-3, 380)
        Me.label9.Name = "label9"
        Me.label9.Size = New System.Drawing.Size(584, 3)
        Me.label9.TabIndex = 27
        '
        'lkForum
        '
        Me.lkForum.Font = New System.Drawing.Font("宋体", 9.0!)
        Me.lkForum.Location = New System.Drawing.Point(10, 352)
        Me.lkForum.Name = "lkForum"
        Me.lkForum.Size = New System.Drawing.Size(550, 18)
        Me.lkForum.TabIndex = 26
        Me.lkForum.TabStop = True
        Me.lkForum.Text = "http://blog.csdn.net/flygoldfish"
        '
        'label8
        '
        Me.label8.Font = New System.Drawing.Font("宋体", 9.0!)
        Me.label8.Location = New System.Drawing.Point(10, 334)
        Me.label8.Name = "label8"
        Me.label8.Size = New System.Drawing.Size(100, 16)
        Me.label8.TabIndex = 25
        Me.label8.Text = "参预评论："
        '
        'label7
        '
        Me.label7.Font = New System.Drawing.Font("宋体", 9.0!)
        Me.label7.Location = New System.Drawing.Point(12, 38)
        Me.label7.Name = "label7"
        Me.label7.Size = New System.Drawing.Size(232, 20)
        Me.label7.TabIndex = 24
        Me.label7.Text = "版本：V2.5  免费共享版"
        '
        'lkBlog
        '
        Me.lkBlog.Font = New System.Drawing.Font("宋体", 9.0!)
        Me.lkBlog.Location = New System.Drawing.Point(10, 310)
        Me.lkBlog.Name = "lkBlog"
        Me.lkBlog.Size = New System.Drawing.Size(204, 18)
        Me.lkBlog.TabIndex = 23
        Me.lkBlog.TabStop = True
        Me.lkBlog.Text = "http://www.webmis.com.cn"
        '
        'label6
        '
        Me.label6.Font = New System.Drawing.Font("宋体", 9.0!)
        Me.label6.Location = New System.Drawing.Point(10, 292)
        Me.label6.Name = "label6"
        Me.label6.Size = New System.Drawing.Size(100, 16)
        Me.label6.TabIndex = 22
        Me.label6.Text = "更多实用源码："
        '
        'label5
        '
        Me.label5.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.label5.Location = New System.Drawing.Point(-2, 280)
        Me.label5.Name = "label5"
        Me.label5.Size = New System.Drawing.Size(584, 3)
        Me.label5.TabIndex = 21
        '
        'label3
        '
        Me.label3.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.label3.Font = New System.Drawing.Font("宋体", 9.0!)
        Me.label3.Location = New System.Drawing.Point(10, 250)
        Me.label3.Name = "label3"
        Me.label3.Size = New System.Drawing.Size(550, 26)
        Me.label3.TabIndex = 20
        Me.label3.Text = "只要你愿意，就是你的。如需交流或合作，请联系作者。"
        '
        'label1
        '
        Me.label1.Font = New System.Drawing.Font("宋体", 9.0!)
        Me.label1.Location = New System.Drawing.Point(12, 228)
        Me.label1.Name = "label1"
        Me.label1.Size = New System.Drawing.Size(120, 20)
        Me.label1.TabIndex = 19
        Me.label1.Text = "本产品使用权属于："
        '
        'label2
        '
        Me.label2.Font = New System.Drawing.Font("宋体", 15.0!)
        Me.label2.ForeColor = System.Drawing.Color.Red
        Me.label2.Location = New System.Drawing.Point(12, 12)
        Me.label2.Name = "label2"
        Me.label2.Size = New System.Drawing.Size(232, 24)
        Me.label2.TabIndex = 18
        Me.label2.Text = "MIS金质打印通"
        '
        'frmAbout
        '
        Me.AcceptButton = Me.btnOK
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(578, 442)
        Me.Controls.Add(Me.btnOK)
        Me.Controls.Add(Me.textBox1)
        Me.Controls.Add(Me.txtDescript)
        Me.Controls.Add(Me.label10)
        Me.Controls.Add(Me.label9)
        Me.Controls.Add(Me.lkForum)
        Me.Controls.Add(Me.label8)
        Me.Controls.Add(Me.label7)
        Me.Controls.Add(Me.lkBlog)
        Me.Controls.Add(Me.label6)
        Me.Controls.Add(Me.label5)
        Me.Controls.Add(Me.label3)
        Me.Controls.Add(Me.label1)
        Me.Controls.Add(Me.label2)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "frmAbout"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "关于  MIS金质打印通  ..."
        Me.ResumeLayout(False)
    End Sub
#End Region
    Private Sub linkLabel_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lkBlog.LinkClicked, lkForum.LinkClicked
        System.Diagnostics.Process.Start("IEXPLORE.EXE", sender.Text)
    End Sub
    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Me.Close()
    End Sub
End Class

						