prifp.dsr

适合乡镇供电所使用电费处理系统v3 软件

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} PriFP 
   ClientHeight    =   8595
   ClientLeft      =   75
   ClientTop       =   450
   ClientWidth     =   11880
   Icon            =   "PriFP.dsx":0000
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   _ExtentX        =   20955
   _ExtentY        =   15161
   SectionData     =   "PriFP.dsx":030A
End
Attribute VB_Name = "PriFP"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private bLastPage As Boolean

Private Sub ActiveReport_FetchData(eof As Boolean)
    bLastPage = dcRptData.Recordset.eof
End Sub

Private Sub ActiveReport_Initialize()
    PriRunInfo.Caption = "发票打印"
    'PriRunInfo.PageTopMargin = 210
    'PriRunInfo.PageRightMargin = 0
    'PriRunInfo.PageLeftMargin = 120
    'PriRunInfo.PageBottomMargin = 290
    'PriUserLabel.Printer.DisplayProgressDialog = False
    'PriUserLabel.PageSetup(1, 1) = True
End Sub

Private Sub ActiveReport_ReportStart()
    Me.Toolbar.Tools.Add "退出(&E)"
    Me.Toolbar.Tools(Me.Toolbar.Tools.Count - 1).ID = 999
    'PriUserCode.Printer.DisplayProgressDialog = False
    'dcRptData.DatabaseName = App.Path & "\Data\Eletricity.mdb"
    'dcRptData.RecordSource = "SELECT * From 操作纪录"
    'Field9.DataField = "用户编码"
    'Field10.DataField = "辅助号"
    'Field11.DataField = "用户名称"
End Sub

Private Sub PageFooter_Format()
    'If Not bLastPage Then
    '   lblContinued.Caption = "打印:"
    'Else
    '    lblContinued.Caption = "Report Complete"
    'End If
End Sub


Private Sub ActiveReport_ToolbarClick(ByVal tool As DDActiveReports.DDTool)
If tool.ID <> 999 Then Exit Sub
Unload Me
End Sub