📄 rptnwind.dsr
字号:
EndProperty
DataField = "Total"
Alignment = 1
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 1
Format = """$""#,##0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
EndProperty
DataMember = "OrderDetails"
EndProperty
ItemType4 = 3
BeginProperty Item4 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label1"
Object.Left = 4176
Object.Width = 135
Object.Height = 285
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Object.Caption = "*"
EndProperty
ItemType5 = 3
BeginProperty Item5 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label2"
Object.Left = 5328
Object.Width = 285
Object.Height = 285
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Object.Caption = "="
EndProperty
EndProperty
SectionCode6 = 5
BeginProperty Section6 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "OrderDetails_Footer"
NumControls = 0
EndProperty
SectionCode7 = 5
BeginProperty Section7 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Orders_Footer"
Object.Height = 288
NumControls = 3
ItemType0 = 13
BeginProperty Item0 {49FF6930-2B8C-11D1-8DA9-00A0C90FFFC2}
_Version = 393216
Name = "Function1"
Object.Left = 5472
Object.Width = 1155
Object.Height = 240
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
DataField = "Total"
Alignment = 1
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 1
Format = """$""#,##0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
EndProperty
DataMember = "OrderDetails"
EndProperty
ItemType1 = 5
BeginProperty Item1 {1C13A8E3-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Line1"
Object.Left = 5472
Object.Width = 1152
EndProperty
ItemType2 = 3
BeginProperty Item2 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label3"
Object.Left = 4320
Object.Width = 1152
Object.Height = 288
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Object.Caption = "Order Total"
Alignment = 1
EndProperty
EndProperty
SectionCode8 = 5
BeginProperty Section8 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Customers_Footer"
Object.Height = 288
NumControls = 2
ItemType0 = 13
BeginProperty Item0 {49FF6930-2B8C-11D1-8DA9-00A0C90FFFC2}
_Version = 393216
Name = "Function2"
Object.Left = 5472
Object.Width = 1155
Object.Height = 240
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
DataField = "Total"
Alignment = 1
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 1
Format = """$""#,##0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
EndProperty
DataMember = "OrderDetails"
EndProperty
ItemType1 = 3
BeginProperty Item1 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label4"
Object.Left = 4176
Object.Width = 1440
Object.Height = 288
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Object.Caption = "Customer Total"
EndProperty
EndProperty
SectionCode9 = 5
BeginProperty Section9 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Customers_Grouping_Footer"
Object.Height = 360
NumControls = 0
EndProperty
SectionCode10 = 8
BeginProperty Section10 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "ReportFooter"
Object.Height = 429
NumControls = 2
ItemType0 = 13
BeginProperty Item0 {49FF6930-2B8C-11D1-8DA9-00A0C90FFFC2}
_Version = 393216
Name = "Function3"
Object.Left = 4896
Object.Width = 1740
Object.Height = 285
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
DataField = "Total"
Alignment = 1
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 1
Format = """$""#,##0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
EndProperty
DataMember = "OrderDetails"
EndProperty
ItemType1 = 3
BeginProperty Item1 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label5"
Object.Left = 2448
Object.Width = 2304
Object.Height = 288
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Object.Caption = "Report Grand Total"
Alignment = 1
EndProperty
EndProperty
End
Attribute VB_Name = "rptNwind"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub DataReport_Initialize()
AddExportReport ' Add a custom format.
With rptNwind ' Adjust size of report using screen measurements supplied by SysInfo control.
.Left = 1000
.Top = 1000
.Width = frmShowReport.sysInfo.WorkAreaWidth * 0.75
.Height = frmShowReport.sysInfo.WorkAreaHeight * 0.75
End With
End Sub
Private Sub DataReport_ProcessingTimeout(ByVal Seconds As Long, _
Cancel As Boolean, ByVal JobType As MSDataReportLib.AsyncTypeConstants, _
ByVal Cookie As Long)
End Sub
Private Sub AddExportReport()
Dim strTemplate As String
' Create the template.
strTemplate = _
"<HTML>" & vbCrLf & _
"<HEAD>" & vbCrLf & _
"<TITLE>" & "MyCompany: " & rptTagTitle & _
"</TITLE>" & vbCrLf & _
"<BODY>" & vbCrLf & _
rptTagBody & vbCrLf & _
"<BODY>" & vbCrLf & _
"</HTML>"
' Add an ExportFormat object using the new template.
rptNwind.ExportFormats.Add _
Key:="DailyReport", _
FormatType:=rptFmtHTML, _
FileFormatString:="Daily Report (*.htm)", _
FileFilter:="*.HTM", _
Template:=strTemplate
End Sub
Private Sub DataReport_QueryClose(Cancel As Integer, CloseMode As Integer)
While rptNwind.AsyncCount > 0
DoEvents
Wend
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -