print/VoucherPrintDocument.vb

（开头部分） 45KB

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

Public Class VoucherPrintDocument
    '1、数据控制：数据源（list）
    '2、打印控制：页面设置、页数控制、单页打印、凭证背景打印、凭证信息打印、标题打印、分录打印、合计打印、人员信息打印

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

    '打印数据源
    Private m_VoucherList As List(Of ClsTVoucher)

    '公司信息
    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 _TotalVouchers As Integer '凭证总数
    Private _CurrentVoucherIndex As Integer '当前打印凭证索引
    Private _IfMultiPageOfVoucher As Boolean '当前打印凭证是否为多页
    Private _RowsOfCurrentVoucher As Integer '当前打印凭证总共有几行分录
    Private _PagesOfCurrentVoucher As Integer '当前打印凭证需要几页
    Private _PrintingPageOfCurrentVoucher As Integer '当前正在打印的是当前凭证的第几页
    Private _RowsOfPrintingPageOfCurrentVoucher '当前正在打印的凭证页的分录数量
    Private _RowIndexOfCurrentVoucher As Integer '当前打印凭证的下一页的行数索引（如果是第一页，则是6）
    Private _LeftRowsOfCurrentVoucher As Integer '当前打印凭证的下一页还有几行分录(如果是第一页，则是 分录总数 - 6)

    '单页行数
    Private _RowsOfPage As Integer '每页行数


    Private _CurrentRowOfPage As Integer '当前打印页的当前行
    Private _RowsOfAllPages As Integer '所有打印页的总行数
    Private _CurrentRowOfAllPages As Integer '当前行在所有页中索引

    '每页的绘制点
    Private _CurrentPoint As Point


    '字体设置
    Private m_TitleFont As Font '= New Font("宋体", 24, FontStyle.Bold)
    Private m_HeaderFont As Font ' = New Font("宋体", 10, FontStyle.Bold)
    Private m_ItemFont As Font '= New Font("宋体", 9, FontStyle.Regular)
    Private m_TextFont As Font '= New Font("宋体", 9, FontStyle.Regular)

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

    '单页高度设置
    Private m_PageTitleHeight As Single ' 记账凭证 标题区高
后面还有 1197 行代码，解锁后查看完整代码

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

AI 解读

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

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