yy_djfp_rpt.dsr

基于SQL2000的企业管理MRPII,包含进销存,财务,报关等组件,VB6开发,带文档说明.

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} yy_DjFp_Rpt 
   Caption         =   "商业发票_打印输出"
   ClientHeight    =   8595
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11880
   Icon            =   "yy_DjFp_Rpt.dsx":0000
   StartUpPosition =   3  '窗口缺省
   _ExtentX        =   20955
   _ExtentY        =   15161
   SectionData     =   "yy_DjFp_Rpt.dsx":1272
End
Attribute VB_Name = "yy_DjFp_Rpt"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ActiveReport_ReportStart()
Me.ToolBar.Tools.Add "转换EXCEL文档"
Me.ToolBar.Tools(Me.ToolBar.Tools.Count - 1).Id = 999
End Sub

Private Sub ActiveReport_ToolbarClick(ByVal Tool As DDActiveReports.DDTool)
If Tool.Id <> 999 Then Exit Sub
miF_EXCEL_Export
End Sub
Private Sub miF_EXCEL_Export()
Dim exl As New ActiveReportsExcelExport.ARExportExcel
Dim sFile As String
Dim bSave As Boolean
   Load SJ_EXCEL_ZH
   SJ_EXCEL_ZH.Show vbModal
   exl.FileName = Pathe
    
    If Me.Pages.Count > 0 Then
        exl.Export Me.Pages
    ElseIf Not arv.ReportSource Is Nothing Then
        If Me.Pages.Count > 0 Then
            exl.Export Me.Pages
        End If
 End If
    Set exl = Nothing
End Sub

Private Sub PageFooter_Format()
Me.p_number.Caption = Str(Me.pageNumber)
End Sub