vbnet 下的 DataGridView打印.doc

下的 DataGridView打印 Public Class PrintToolStrip??? Inherits ToolStrip ??? Private WithEvents ToolStripButton1, ToolStripButton2, ToolStripButton3, ToolStripButton4 As New ToolStripButton??? Private WithEvents PrintDocument1 As New Printing.PrintDocument??? Private WithEvents PageSetupDialog1 As New System.Windows.Forms.PageSetupDialog??? Private WithEvents FontDialog1 As New System.Windows.Forms.FontDialog??? Private WithEvents PrintPreviewDialog1 As New System.Windows.Forms.PrintPreviewDialog ??? Private DGV As DataGridView??? Private strTitle As String??? Private tsiDisplayStyle As ToolStripItemDisplayStyle = ToolStripItemDisplayStyle.Image??? Private tirTextImageRelation As TextImageRelation = Windows.Forms.TextImageRelation.ImageAboveText 牋u? wInc 为单元格宽增量??? Private wInc As Single = 5??? hInc 为单元格竖增量??? Private hInc As Single = 5 ??? MainStartHeigth 为主体表格起始的高度??? Private MainStartHeigth As Single ??? pNo 为页码??? Shared pNo As Integer = 1 ??? Private StartHeigth As Single??? Private StartPos As Single ??? Shared hi As Integer = 0??? Private PrintFont As Font = Me.Font ??? 数组 ColumnsWidth 为计算后的列宽??? Private ColumnsWidth() As Single??? 数组 orgColumnsWidth 为原始的最大列宽??? Private orgColumnsWidth() As Single ??? RowHeigth 为计算后的行高??? Private RowHeigth As Single ??? 数据源，输入DataGridView??? Public Property MyDataGridView() As DataGridView??????? Set(ByVal value As DataGridView)??????????? DGV = value??????? End Set??????? Get??????????? Return DGV??????? End Get??? End Property ??? 报表标题??? Public Property Title() As String??????? Set(ByVal value As String)??????????? strTitle = value??????? End Set??????? Get??????????? Return strTitle??????? End Get??? End Property ??? 按钮显示方式??? System.ComponentModel.DefaultValue(ToolStripItemDisplayStyle.Image), _??? System.ComponentModel.Description(获取或设置是否在 AutoPrintControl 上显示文本和图象) _??? Public Property DisplayStyle() As ToolStripItemDisplayStyle??????? Set(ByVal value As ToolStripItemDisplayStyle)??