📄 rptwaterraterequisition.dsr
字号:
Object.Width = 435
Object.Height = 195
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Object.Caption = "单价"
EndProperty
ItemType28 = 3
BeginProperty Item28 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label13"
Object.Left = 5460
Object.Top = 915
Object.Width = 480
Object.Height = 195
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Object.Caption = "水费"
EndProperty
ItemType29 = 4
BeginProperty Item29 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Text5"
Object.Left = 1020
Object.Top = 870
Object.Width = 825
Object.Height = 255
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
DataField = "PmWaterRead"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
ItemType30 = 5
BeginProperty Item30 {1C13A8E3-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Line9"
Object.Left = 165
Object.Top = 2580
Object.Width = 6900
EndProperty
ItemType31 = 3
BeginProperty Item31 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label16"
Object.Left = 300
Object.Top = 1305
Object.Width = 615
Object.Height = 1140
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Object.Caption = "注意："
EndProperty
ItemType32 = 3
BeginProperty Item32 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label17"
Object.Left = 1035
Object.Top = 1320
Object.Width = 5595
Object.Height = 225
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Object.Caption = "1) 用户请于本月22--25日交纳水费"
EndProperty
ItemType33 = 3
BeginProperty Item33 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label18"
Object.Left = 1035
Object.Top = 1560
Object.Width = 5595
Object.Height = 225
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Object.Caption = "2) 在规定的日期范围内没有交纳水费,每超一天将收取滞纳金1元"
EndProperty
ItemType34 = 3
BeginProperty Item34 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label19"
Object.Left = 1035
Object.Top = 1785
Object.Width = 5595
Object.Height = 225
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Object.Caption = "3) 交费地点:工行\建行各分理处网点"
EndProperty
ItemType35 = 3
BeginProperty Item35 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label20"
Object.Left = 1035
Object.Top = 2025
Object.Width = 5595
Object.Height = 225
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Object.Caption = "4) 用户水费拖欠两个月,公司有权采取停水等措施"
EndProperty
ItemType36 = 3
BeginProperty Item36 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label21"
Object.Left = 225
Object.Top = 2700
Object.Width = 1500
Object.Height = 195
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Object.Caption = "修换调整吨数："
EndProperty
ItemType37 = 4
BeginProperty Item37 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Text6"
Object.Left = 1500
Object.Top = 2685
Object.Width = 1290
Object.Height = 255
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
DataField = "WaterRevise"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
EndProperty
SectionCode3 = 7
BeginProperty Section3 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Section3"
Object.Height = 375
NumControls = 2
ItemType0 = 3
BeginProperty Item0 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label14"
Object.Left = 5835
Object.Top = 30
Object.Width = 1095
Object.Height = 240
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Object.Caption = "%d"
EndProperty
ItemType1 = 3
BeginProperty Item1 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label15"
Object.Left = 4920
Object.Top = 60
Object.Width = 990
Object.Height = 195
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Object.Caption = "打印日期："
EndProperty
EndProperty
SectionCode4 = 8
BeginProperty Section4 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Section5"
NumControls = 0
EndProperty
End
Attribute VB_Name = "rptWaterrateRequisition"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub DataReport_Initialize()
' Const iW = 0 '误 差 调 整
' Printer.PaperSize = vbPRPSUser
' Printer.PaperSize = vbPRPSFanfoldUS
' Printer.Height = 8000
' Me.Sections.Item("Section1").Controls.Item("lblYear").Caption = strYear_P
' Me.Sections.Item("Section1").Controls.Item("lblMonth").Caption = strMonth_P
' Me.ReportWidth = Printer.Width - Me.LeftMargin - Me.RightMargin - iW
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -