企业管理

开发平台：
Visual Basic

：源码内容
							Attribute VB_Name = "DyjbModule"
'**********************************************
'*    模 块 名 称 :打印基本模块
'*    功 能 描 述 :
'*    程序员姓名  : 张建忠
'*    最后修改人  : 张建忠
'*    最后修改时间:2001/07/25
'*    备        注:
'**********************************************
Public XtReportCode As String                                  '传递打印报表编码
Public Sub Scdybb(Dyymctbl As Form, Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer, Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer, bbylte As Boolean, Optional PrintMessageNotShow As Boolean)  '生 成 打 印 报 表
   
    '函数参数为:打印页面设置窗体变量,报表主标题,报表小标题数组,报表小标题组织形式,报表小标题个数,报表表尾行数组,报表表尾行组织形式,报表表尾行行数,是预览还是直接打印(选择项),打印时打印选择项窗体是否显示(主要为了支持连续打印)
    '程 序 运 行 临 时 变 量
    Dim Bbbtkd$, Bbbody$, Bbydx#, Bbydy#, Bbqsx#                '报表标题宽度,表体,移动X,移动Y,报表左边界(报表起始X坐标)
    Dim Rowjsq%, Coljsq%, Byhjsq%                               '网格行列计数器,本页行计数器
    Dim Bbzkd#, Btzgd#, Bwzgd#, Btkdte#, Btsjhgd#, MaxColwidth# '报表总宽度,标题总高度,报表表尾行高度,标题宽度,表头+n行数据行高度,报表最大列宽
    Dim Bbhsjsq&, Bbhsjsqte&, Byzzh&, Bybbhs&                   '报表数据行数计数器,报表数据行数计数保存,报表终止行,本页报表行数
    Dim Ztkd1#, Ztkd2#, Ztgd1#, Ztgd2#                          '不同字体高与宽
    Dim Bbsjhgd#, Bbgdhgd#, Kdfdbl#, Gdfdbl#                    '报表数据行高度,固定行高度,表宽放大比例,表高放大比例
    Dim Lszbj#, Bbpage$, Bbynfyh&                               '临时左边界,报表页号,报表页内分页号
    Dim jsqte%                                                  '临时计数器
    Dim bbQslz&, bbzzlz&                                        '本页报表输出起始列值,本页报表输出终止列值
    Dim Yxbbkd#                                                 '本页有效报表宽度
    Dim Tsxx As String                                          '系统提示信息
    Dim Papername(1 To 70) As String                            '纸张大小对应描述
    Dim Bbzys As Integer
    Dim Sfdyfyh As Boolean                                      '是否打印分页号
    Dim Xbtmaxlen As Double                                     '小标题最大长度
    Dim Bwhmaxlen As Double                                     '表尾行最大长度
    
    '设计人员自定义变量(不让用户定义是为了保持系统打印一致性)
    
    Dim Sckd#, Xhsjg#, Xbthjg#, zdxgd#                          '标题下划线缩进,下划线间隔,小标题表尾行间隔,装订线高度
    Dim Zdxsjg#, Zdxzjg#                                        '装订线上间隔,装订线左间隔
    Dim Xbths%, Bwhs%                                           '小标题行数,表尾行数
    Dim Bbfzbl As String                                        '报表分组输出条件
    Dim Bwzb$, Bwbzdw$                                          '表尾制表人,报表编制单位
       
    '用 户 自 定 义 变 量
    Dim Bbgdscqsl&, Bbgdsczzl&, bbscQslz&, bbsczzlz&            '报表固定输出起始列,报表固定输出终止列,报表输出起始列,报表输出终止列(报表起始列>报表固定输出终止列)
    Dim Btfontsize&, Sjfontsize&, Btfontname$, Sjfontname$      '报表标题字体大小,数据区字体大小
    Dim Pagecount%, Mybbhs&, Zdbbhs&                            '报表页数计数器,每页满页报表行数,用户指定报表行数
    Dim Dyxsbz As Boolean, Sfmy As Boolean, Zdhs As Boolean     '是否输出单元标志,表格满页控制,指定每页报表行数
    Dim Bwdyrq$, Bwrjmc$                                        '打印日期,软件制作版本
    Dim Bbalign$                                                '报表组织形式(1-居左,2-居中)
    Dim zdxwz%                                                  '报表装订线位置
    Dim sfsckb  As Boolean                                      '是否输出空表
    Dim sfscgdl As Boolean                                      '页内分页时是否输出固定列
    Dim Sflxdy  As Boolean                                      '报表是否连续打印
    Dim Sftdfssc As Boolean                                     '是否套打方式输出
    Dim Bjjghs  As Integer                                      '报表之间间隔
    Dim Bbmcte  As String                                       '报 表 名 称
    Dim Bbbxjg  As Long                                         '报表表线打印间隔
    
    Papername(1) = "Letter, 8 1/2 x 11 英寸"
    Papername(2) = "Letter Small, 8

						