📄 cg_sh_rpt.dsr
字号:
VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} Cg_SHd_rPt
Caption = "采购收货单_打印"
ClientHeight = 8595
ClientLeft = 60
ClientTop = 345
ClientWidth = 11880
Icon = "Cg_SH_rPt.dsx":0000
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
_ExtentX = 20955
_ExtentY = 15161
SectionData = "Cg_SH_rPt.dsx":08CA
End
Attribute VB_Name = "Cg_SHd_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
lbl_gsmc.Caption = Trim(c_gsmc)
Lbl_cdizh.Caption = Trim(C_DizH)
lbl_dh.Caption = Trim(gs_dh)
Lbl_cz.Caption = Trim(gs_cz)
Me.PageLeftMargin = 200
Me.PageTopMargin = 800
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -