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

    '程 序 運 行 臨 時 變 量
    Dim Bbbtkd$, Bbbody$, Bbydx#, Bbydy#, Bbqsx#                '報表標(biāo)題寬度,表體,移動X,移動Y,報表左邊界(報表起始X坐標(biāo))
    Dim Rowjsq%, Coljsq%, Byhjsq%                               '網(wǎng)格行列計數(shù)器,本頁行計數(shù)器
    Dim Bbzkd#, Btzgd#, Bwzgd#, Btkdte#, Btsjhgd#, MaxColwidth# '報表總寬度,標(biāo)題總高度,報表表尾行高度,標(biāo)題寬度,表頭+n行數(shù)據(jù)行高度,報表最大列寬
    Dim Bbhsjsq&, Bbhsjsqte&, Byzzh&, Bybbhs&                   '報表數(shù)據(jù)行數(shù)計數(shù)器,報表數(shù)據(jù)行數(shù)計數(shù)保存,報表終止行,本頁報表行數(shù)
    Dim Ztkd1#, Ztkd2#, Ztgd1#, Ztgd2#                          '不同字體高與寬
    Dim Bbsjhgd#, Bbgdhgd#, Kdfdbl#, Gdfdbl#                    '報表數(shù)據(jù)行高度,固定行高度,表寬放大比例,表高放大比例
    Dim Lszbj#, Bbpage$, Bbynfyh&                               '臨時左邊界,報表頁號,報表頁內(nèi)分頁號
    Dim jsqte%                                                  '臨時計數(shù)器
    Dim bbQslz&, bbzzlz&                                        '本頁報表輸出起始列值,本頁報表輸出終止列值
    Dim Yxbbkd#                                                 '本頁有效報表寬度
    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è)計人員自定義變量(不讓用戶定義是為了保持系統(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                                        '報表分組輸出條件
    Dim Bwzb$, Bwbzdw$                                          '表尾制表人,報表編制單位
       
    '用 戶 自 定 義 變 量
    Dim Bbgdscqsl&, Bbgdsczzl&, bbscQslz&, bbsczzlz&            '報表固定輸出起始列,報表固定輸出終止列,報表輸出起始列,報表輸出終止列(報表起始列>報表固定輸出終止列)
    Dim BtFontSize&, Sjfontsize&, BtFontName$, Sjfontname$      '報表標(biāo)題字體大小,數(shù)據(jù)區(qū)字體大小
    Dim Pagecount%, Mybbhs&, Zdbbhs&                            '報表頁數(shù)計數(shù)器,每頁滿頁報表行數(shù),用戶指定報表行數(shù)
    Dim Dyxsbz As Boolean, Sfmy As Boolean, Zdhs As Boolean     '是否輸出單元標(biāo)志,表格滿頁控制,指定每頁報表行數(shù)
    Dim Bwdyrq$, Bwrjmc$                                        '打印日期,軟件制作版本
    Dim Bbalign$                                                '報表組織形式(1-居左,2-居中)
    Dim zdxwz%                                                  '報表裝訂線位置
    Dim sfsckb  As Boolean                                      '是否輸出空表
    Dim sfscgdl As Boolean                                      '頁內(nèi)分頁時是否輸出固定列
    Dim Sflxdy  As Boolean                                      '報表是否連續(xù)打印
    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