print/ReportPrintDocument.vb

（开头部分） 12KB

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

Imports System.Drawing.Printing

Public MustInherit Class ReportPrintDocument

    '打印事件回调事件与对象
    '打印结束通知外部
    Public Delegate Sub EndPrintCallBack(ByVal sender As Object, ByVal e As PrintCallBackEventArgs)
    Private m_EndCallBack As EndPrintCallBack

    '报表数据源
    'Private m_DataSourceList As Object  'List(Of Object)

    '默认纸张
    Private m_DefaultPageSize As Printing.PaperSize

    '页边距设置
    Private m_LeftMargin As Integer
    Private m_RightMargin As Integer
    Private m_TopMargin As Integer
    Private m_BottomMargin As Integer

    '页面总体打印宽度，报表的总宽度，而不是纸张宽度
    Private m_PageWidth As Single
    '一行数据的总宽度，主要针对页面中有表格的部分
    Private m_RowWidth As Single

    '页眉部分
    Private m_PageHeader As ReportSectionPrintElement
    '页脚部分
    Private m_PageFooter As ReportSectionPrintElement
    '页面正文部分
    Private m_PageBody As ReportSectionPrintElement

    '默认字体设置
    Private m_DefaultFont As Font
    '默认笔刷设置
    Private m_DefaultBrush As SolidBrush ' = New SolidBrush(Color.Black)
    Private m_DefaultPen As Pen '= New Pen(New SolidBrush(Color.Black))

    '分辨率设定
    Protected _dpiX As Single = 96
    Protected _dpiY As Single = 96
    '总页数与当前打印页
    Protected _TotalPages As Integer
    Protected _CurrentPage As Integer
    '每页可打印行数
    Protected _RowsOfPage As Integer
    '当前正在打印的记录索引，对应数据源的索引
    Protected _CurrentItemIndex As Integer
    '每页的绘制点
    Protected _CurrentPoint As Point

#Region "构造函数"

    Public Sub New()
        'Private m_EndCallBack As EndPrintCallBack

        '报表数据源
        'Private m_DataSourceList As List(Of Object)
后面还有 368 行代码，解锁后查看完整代码

24 小时内免费解锁 3 个项目，之后 1 积分/个。 规则说明

AI 解读

登录后可用，每次 10 积分，解读结果公开显示在下面。

还没有人解读过这个文件。