print/AccountSumPrintDocument.vb

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

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports System.Drawing.Printing

Public Class AccountSumPrintDocument
    Inherits ReportPrintDocument


    ''打印结束通知外部
    'Public Delegate Sub EndPrintCallBack(ByVal sender As Object, ByVal e As PrintCallBackEventArgs)
    'Private m_EndCallBack As EndPrintCallBack

    '打印数据源
    Private m_AcctSumList As List(Of ClsTAccountSum)

    '公司信息
    Private m_CompanyName As String

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

    ''页数
    'Private _TotalPages As Integer
    'Private _CurrentPage As Integer
    ''单页行数
    'Private _RowsOfPage As Integer '每页行数
    'Private _CurrentItemIndex As Integer '当前正在打印的记录索引

    ''每页的绘制点
    'Private _CurrentPoint As Point

    '字体设置
    Private m_TitleFont As Font '= New Font("宋体", 14, FontStyle.Bold)
    Private m_HeaderFont As Font ' = New Font("宋体", 9, FontStyle.Bold)
    Private m_FooterFont As Font '=  New Font("宋体", 8, FontStyle.Regular)
    Private m_TextNormalFont As Font '= New Font("宋体", 8, FontStyle.Regular)
    Private m_TextBoldFont As Font '= New Font("宋体", 8, FontStyle.Bold)
    Private m_TextSmallFont As Font '= New Font("宋体", 6, FontStyle.Regular)

    '笔刷设置
    Private m_Brush As SolidBrush ' = New SolidBrush(Color.Black)
    Private m_Pen As Pen '= New Pen(New SolidBrush(Color.Black))

    ''分辨率设定
    'Private _dpiX As Single = 96
    'Private _dpiY As Single = 96

    '各部位高度与宽度
    '高度
    Private m_PageHeaderHeight As Single '页眉高度， 科目汇总 大标题 1.4cm
    Private m_WorkPeriodHeight As Single '会计期间高度 0.6cm
    Private m_CompanyHeight As Single '核算单位高度 0.8cm
    Private m_ItemHeaderHeight As Single '表头行高度 0.8cm
    Private m_ItemHeight As Single '表格行高度 0.7cm
    Private m_ItemFooterHeight As Single '表尾行高度 0.8cm
    Private m_PageFooterHeight As Single '页脚高度 0.9cm
    '宽度
    Private m_AcctCodeWidth As Single '科目编码区宽度 2cm