Attribute VB_Name = "DyjbModule"
'**********************************************
'*    模 塊 名 稱(chēng) :打印基本模塊
'*    功 能 描 述 :
'*    程序員姓名  : 張建忠
'*    最后修改人  : 張建忠
'*    最后修改時(shí)間:2001/07/25
'*    備        注:
'**********************************************

Public XtReportCode As String                                  '傳遞打印報(bào)表編碼

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)  '生 成 打 印 報(bào) 表
   
    '函數(shù)參數(shù)為:打印頁(yè)面設(shè)置窗體變量,報(bào)表主標(biāo)題,報(bào)表小標(biāo)題數(shù)組,報(bào)表小標(biāo)題組織形式,報(bào)表小標(biāo)題個(gè)數(shù),報(bào)表表尾行數(shù)組,報(bào)表表尾行組織形式,報(bào)表表尾行行數(shù),是預(yù)覽還是直接打印(選擇項(xiàng)),打印時(shí)打印選擇項(xiàng)窗體是否顯示(主要為了支持連續(xù)打印)

    '程 序 運(yùn) 行 臨 時(shí) 變 量
    Dim Bbbtkd$, Bbbody$, Bbydx#, Bbydy#, Bbqsx#                '報(bào)表標(biāo)題寬度,表體,移動(dòng)X,移動(dòng)Y,報(bào)表左邊界(報(bào)表起始X坐標(biāo))
    Dim Rowjsq%, Coljsq%, Byhjsq%                               '網(wǎng)格行列計(jì)數(shù)器,本頁(yè)行計(jì)數(shù)器
    Dim Bbzkd#, Btzgd#, Bwzgd#, Btkdte#, Btsjhgd#, MaxColwidth# '報(bào)表總寬度,標(biāo)題總高度,報(bào)表表尾行高度,標(biāo)題寬度,表頭+n行數(shù)據(jù)行高度,報(bào)表最大列寬
    Dim Bbhsjsq&, Bbhsjsqte&, Byzzh&, Bybbhs&                   '報(bào)表數(shù)據(jù)行數(shù)計(jì)數(shù)器,報(bào)表數(shù)據(jù)行數(shù)計(jì)數(shù)保存,報(bào)表終止行,本頁(yè)報(bào)表行數(shù)
    Dim Ztkd1#, Ztkd2#, Ztgd1#, Ztgd2#                          '不同字體高與寬
    Dim Bbsjhgd#, Bbgdhgd#, Kdfdbl#, Gdfdbl#                    '報(bào)表數(shù)據(jù)行高度,固定行高度,表寬放大比例,表高放大比例
    Dim Lszbj#, Bbpage$, Bbynfyh&                               '臨時(shí)左邊界,報(bào)表頁(yè)號(hào),報(bào)表頁(yè)內(nèi)分頁(yè)號(hào)
    Dim jsqte%                                                  '臨時(shí)計(jì)數(shù)器
    Dim bbQslz&, bbzzlz&                                        '本頁(yè)報(bào)表輸出起始列值,本頁(yè)報(bào)表輸出終止列值
    Dim Yxbbkd#                                                 '本頁(yè)有效報(bào)表寬度
    Dim Tsxx As String                                          '系統(tǒng)提示信息
    Dim Papername(1 To 70) As String                            '紙張大小對(duì)應(yīng)描述
    Dim Bbzys As Integer
    Dim Sfdyfyh As Boolean                                      '是否打印分頁(yè)號(hào)
    Dim Xbtmaxlen As Double                                     '小標(biāo)題最大長(zhǎng)度
    Dim Bwhmaxlen As Double                                     '表尾行最大長(zhǎng)度
    
    '設(shè)計(jì)人員自定義變量(不讓用戶(hù)定義是為了保持系統(tǒng)打印一致性)
    
    Dim Sckd#, Xhsjg#, Xbthjg#, zdxgd#                          '標(biāo)題下劃線(xiàn)縮進(jìn),下劃線(xiàn)間隔,小標(biāo)題表尾行間隔,裝訂線(xiàn)高度
    Dim Zdxsjg#, Zdxzjg#                                        '裝訂線(xiàn)上間隔,裝訂線(xiàn)左間隔
    Dim Xbths%, Bwhs%                                           '小標(biāo)題行數(shù),表尾行數(shù)
    Dim Bbfzbl As String                                        '報(bào)表分組輸出條件
    Dim Bwzb$, Bwbzdw$                                          '表尾制表人,報(bào)表編制單位
       
    '用 戶(hù) 自 定 義 變 量
    Dim Bbgdscqsl&, Bbgdsczzl&, bbscQslz&, bbsczzlz&            '報(bào)表固定輸出起始列,報(bào)表固定輸出終止列,報(bào)表輸出起始列,報(bào)表輸出終止列(報(bào)表起始列>報(bào)表固定輸出終止列)
    Dim Btfontsize&, Sjfontsize&, Btfontname$, Sjfontname$      '報(bào)表標(biāo)題字體大小,數(shù)據(jù)區(qū)字體大小
    Dim Pagecount%, Mybbhs&, Zdbbhs&                            '報(bào)表頁(yè)數(shù)計(jì)數(shù)器,每頁(yè)滿(mǎn)頁(yè)報(bào)表行數(shù),用戶(hù)指定報(bào)表行數(shù)
    Dim Dyxsbz As Boolean, Sfmy As Boolean, Zdhs As Boolean     '是否輸出單元標(biāo)志,表格滿(mǎn)頁(yè)控制,指定每頁(yè)報(bào)表行數(shù)
    Dim Bwdyrq$, Bwrjmc$                                        '打印日期,軟件制作版本
    Dim Bbalign$                                                '報(bào)表組織形式(1-居左,2-居中)
    Dim zdxwz%                                                  '報(bào)表裝訂線(xiàn)位置
    Dim sfsckb  As Boolean                                      '是否輸出空表
    Dim sfscgdl As Boolean                                      '頁(yè)內(nèi)分頁(yè)時(shí)是否輸出固定列
    Dim Sflxdy  As Boolean                                      '報(bào)表是否連續(xù)打印
    Dim Sftdfssc As Boolean                                     '是否套打方式輸出
    Dim Bjjghs  As Integer                                      '報(bào)表之間間隔
    Dim Bbmcte  As String                                       '報(bào) 表 名 稱(chēng)
    Dim Bbbxjg  As Long                                         '報(bào)表表線(xiàn)打印間隔
    
    Papername(1) = "Letter, 8 1/2 x 11 英寸"
    Papername(2) = "Letter Small, 8