vbnet 下的 datagridview打印

《vbnet 下的 datagridview打印》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、vb.net下的DataGridView打印PublicClassPrintToolStrip   InheritsToolStrip   PrivateWithEventsToolStripButton1,ToolStripButton2,ToolStripButton3,ToolStripButton4AsNewToolStripButton   PrivateWithEventsPrintDocument1AsNewPrinting.PrintDocument   PrivateWithEventsPageSetupDialog1AsNewSystem.Windows.Forms.P

2、ageSetupDialog   PrivateWithEventsFontDialog1AsNewSystem.Windows.Forms.FontDialog   PrivateWithEventsPrintPreviewDialog1AsNewSystem.Windows.Forms.PrintPreviewDialog   PrivateDGVAsDataGridView   PrivatestrTitleAsString   PrivatetsiDisplayStyleAsToolStripItemDisplayStyle=ToolStripItemDisplayStyle.Im

3、age   PrivatetirTextImageRelationAsTextImageRelation=Windows.Forms.TextImageRelation.ImageAboveText   'wInc为单元格宽增量   PrivatewIncAsSingle=5   'hInc为单元格竖增量   PrivatehIncAsSingle=5   'MainStartHeigth为主体表格起始的高度   PrivateMainStartHeigthAsSingle   'pNo为页码   SharedpNoAsInteger=1   PrivateStartHeigthAsSin

4、gle   PrivateStartPosAsSingle   SharedhiAsInteger=0   PrivatePrintFontAsFont=Me.Font   '数组ColumnsWidth为计算后的列宽   PrivateColumnsWidth()AsSingle   '数组orgColumnsWidth为原始的最大列宽   PrivateorgColumnsWidth()AsSingle   'RowHeigth为计算后的行高   PrivateRowHeigthAsSingle   '数据源，输入DataGridView   PublicPropertyMyDataG

5、ridView()AsDataGridView       Set(ByValvalueAsDataGridView)           DGV=value       EndSet       Get           ReturnDGV       EndGet   EndProperty   '报表标题   PublicPropertyTitle()AsString       Set(ByValvalueAsString)           strTitle=value       EndSet       Get           ReturnstrTitle      

6、 EndGet   EndProperty   '按钮显示方式   _   PublicPropertyDisplayStyle()AsToolStripItemDisplayStyle       Set(ByValvalueAsToolStripItemDisplayStyle)           ts

7、iDisplayStyle=value       EndSet       Get           ReturntsiDisplayStyle       EndGet   EndProperty   '图片文字显示位置