Attribute VB_Name = "DyjbModule"
'**********************************************
'*    模 塊 名 稱 :打印基本模塊
'*    功 能 描 述 :
'*    程序員姓名  : 張建忠
'*    最后修改人  : 張建忠
'*    最后修改時(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ù)為:打印頁面設(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ù)器,本頁行計(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)表終止行,本頁報(bào)表行數(shù)
    Dim Ztkd1#, Ztkd2#, Ztgd1#, Ztgd2#                          '不同字體高與寬
    Dim Bbsjhgd#, Bbgdhgd#, Kdfdbl#, Gdfdbl#                    '報(bào)表數(shù)據(jù)行高度,固定行高度,表寬放大比例,表高放大比例
    Dim Lszbj#, Bbpage$, Bbynfyh&                               '臨時(shí)左邊界,報(bào)表頁號,報(bào)表頁內(nèi)分頁號
    Dim jsqte%                                                  '臨時(shí)計(jì)數(shù)器
    Dim bbQslz&, bbzzlz&                                        '本頁報(bào)表輸出起始列值,本頁報(bào)表輸出終止列值
    Dim Yxbbkd#                                                 '本頁有效報(bào)表寬度
    Dim Tsxx As String                                          '系統(tǒng)提示信息
    Dim Papername(1 To 70) As String                            '紙張大小對應(yīng)描述
    Dim Bbzys As Integer
    Dim Sfdyfyh As Boolean                                      '是否打印分頁號
    Dim Xbtmaxlen As Double                                     '小標(biāo)題最大長度
    Dim Bwhmaxlen As Double                                     '表尾行最大長度
    
    '設(shè)計(jì)人員自定義變量(不讓用戶定義是為了保持系統(tǒng)打印一致性)
    
    Dim Sckd#, Xhsjg#, Xbthjg#, zdxgd#                          '標(biāo)題下劃線縮進(jìn),下劃線間隔,小標(biāo)題表尾行間隔,裝訂線高度
    Dim Zdxsjg#, Zdxzjg#                                        '裝訂線上間隔,裝訂線左間隔
    Dim Xbths%, Bwhs%                                           '小標(biāo)題行數(shù),表尾行數(shù)
    Dim Bbfzbl As String                                        '報(bào)表分組輸出條件
    Dim Bwzb$, Bwbzdw$                                          '表尾制表人,報(bào)表編制單位
       
    '用 戶 自 定 義 變 量
    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)表頁數(shù)計(jì)數(shù)器,每頁滿頁報(bào)表行數(shù),用戶指定報(bào)表行數(shù)
    Dim Dyxsbz As Boolean, Sfmy As Boolean, Zdhs As Boolean     '是否輸出單元標(biāo)志,表格滿頁控制,指定每頁報(bào)表行數(shù)
    Dim Bwdyrq$, Bwrjmc$                                        '打印日期,軟件制作版本
    Dim Bbalign$                                                '報(bào)表組織形式(1-居左,2-居中)
    Dim zdxwz%                                                  '報(bào)表裝訂線位置
    Dim sfsckb  As Boolean                                      '是否輸出空表
    Dim sfscgdl As Boolean                                      '頁內(nèi)分頁時(shí)是否輸出固定列
    Dim Sflxdy  As Boolean                                      '報(bào)表是否連續(xù)打印
    Dim Sftdfssc As Boolean                                     '是否套打方式輸出
    Dim Bjjghs  As Integer                                      '報(bào)表之間間隔
    Dim Bbmcte  As String                                       '報(bào) 表 名 稱
    Dim Bbbxjg  As Long                                         '報(bào)表表線打印間隔
    
    Papername(1) = "Letter, 8 1/2 x 11 英寸"
    Papername(2) = "Letter Small, 8