sc_jhd_rpt.dsr

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

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} Sc_JhD_RpT 
   Caption         =   "生产计划（生产排期）_打印输出"
   ClientHeight    =   11115
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   15240
   Icon            =   "Sc_JhD_RpT.dsx":0000
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   _ExtentX        =   26882
   _ExtentY        =   19606
   SectionData     =   "Sc_JhD_RpT.dsx":1472
End
Attribute VB_Name = "Sc_JhD_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
L_EMc.Caption = Trim(E_gsm)
L_gsmc.Caption = Trim(c_gsmc)
'Me.Printer.PaperSize = 256
'Me.Printer.PaperHeight = 14 * 1440 / 2.5 '(1 inch = 1440 twips, so this would be 8 inches)
'Me.Printer.PaperWidth = 22 * 1440 / 2.5
End Sub

Private Sub PageFooter_Format()
Me.L_page.Caption = "第 " & Me.pageNumber & "页"
End Sub