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