rptparent.dsr

一个OA办公自动化管理系统

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} RptParent 
   ClientHeight    =   8595
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11880
   StartUpPosition =   3  '窗口缺省
   _ExtentX        =   20955
   _ExtentY        =   15161
   SectionData     =   "RptParent.dsx":0000
End
Attribute VB_Name = "RptParent"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Const WidthMultiple = 200

Private Sub ActiveReport_ReportStart()
    LabelHead.Left = (10500 - LabelHead.Width) / 2
    
    LabelHead1 = LoadResString(Val(LabelHead1 & GLanguageID))
    LabelHead3 = LoadResString(Val(LabelHead3 & GLanguageID))
    LabelHead5 = LoadResString(Val(LabelHead5 & GLanguageID))
    
    LabelFoot1 = LoadResString(Val(LabelFoot1 & GLanguageID))
    LabelFoot3 = LoadResString(Val(LabelFoot3 & GLanguageID))
    LabelFoot5 = LoadResString(Val(LabelFoot5 & GLanguageID))
    LabelFoot7 = LoadResString(Val(LabelFoot7 & GLanguageID))
    LabelFoot9 = LoadResString(Val(LabelFoot9 & GLanguageID))
    LabelFoot11 = LoadResString(Val(LabelFoot11 & GLanguageID))
    LabelFoot13 = LoadResString(Val(LabelFoot13 & GLanguageID))
    
    LabelHead2 = Trim(strAccountName)
    LabelHead2.Width = Len(LabelHead2) * WidthMultiple
    
    LabelFoot2 = Trim(LoginName)
    LabelFoot4 = Trim(LocalComputerName)
    LabelFoot6 = Trim(Format(Now, "yyyy-mm-dd hh-mm-ss"))
End Sub

Private Sub PageFooter_Format()
    LabelHead4 = Me.pageNumber
End Sub