Content Supported by Sourcelens Consulting
VERSION 5.00
Begin {78E93846-85FD-11D0-8487-00A0C90DC8A9} rptNwind
Bindings = "rptNwind.dsx":0000
Caption = "Northwind Data Report"
ClientHeight = 8595
ClientLeft = 1335
ClientTop = 2655
ClientWidth = 11880
_ExtentX = 20955
_ExtentY = 15161
_Version = 393216
_DesignerVersion= 100684049
ReportWidth = 8352
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
GridX = 10
GridY = 10
DataMember = "Customers_Grouping"
NumSections = 11
SectionCode0 = 1
BeginProperty Section0 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "ReportHeader"
Object.Height = 360
NumControls = 0
EndProperty
SectionCode1 = 3
BeginProperty Section1 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Customers_Grouping_Header"
Object.Height = 255
NumControls = 1
ItemType0 = 4
BeginProperty Item0 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "txtCountry"
Object.Width = 2880
Object.Height = 240
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
DataField = "Country"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1024
EndProperty
DataMember = "Customers_Grouping"
EndProperty
EndProperty
SectionCode2 = 3
BeginProperty Section2 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Customers_Header"
Object.Height = 285
NumControls = 1
ItemType0 = 4
BeginProperty Item0 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "txtCompanyName"
Object.Left = 864
Object.Width = 2016
Object.Height = 240
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
DataField = "CompanyName"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1024
EndProperty
DataMember = "Customers"
EndProperty
EndProperty
SectionCode3 = 3
BeginProperty Section3 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Orders_Header"
Object.Height = 384
NumControls = 3
ItemType0 = 4
BeginProperty Item0 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "txtOrderDate"
Object.Left = 1440
Object.Width = 1440
Object.Height = 240
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
DataField = "OrderDate"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1024
EndProperty
DataMember = "Orders"
EndProperty
ItemType1 = 4
BeginProperty Item1 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "txtProductCount"
Object.Left = 3600
Object.Width = 432
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
DataField = "ProductCount"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1024
EndProperty
DataMember = "Orders"
EndProperty
ItemType2 = 3
BeginProperty Item2 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label6"
Object.Left = 4320
Object.Width = 1875
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 = "Product(s) Ordered"
EndProperty
EndProperty
SectionCode4 = 3
BeginProperty Section4 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "OrderDetails_Header"
NumControls = 0
EndProperty
SectionCode5 = 4
BeginProperty Section5 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Products_Detail"
Object.Height = 300
NumControls = 6
ItemType0 = 4
BeginProperty Item0 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "txtProductName"
Object.Left = 1872
Object.Width = 1440
Object.Height = 240
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
DataField = "ProductName"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1024
EndProperty
DataMember = "Products"
EndProperty
ItemType1 = 4
BeginProperty Item1 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "txtUnitPrice"
Object.Left = 4320
Object.Width = 1005
Object.Height = 240
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
DataField = "UnitPrice"
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
ItemType2 = 4
BeginProperty Item2 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "txtQuantity"
Object.Left = 3600
Object.Width = 432
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
DataField = "Quantity"
Alignment = 1
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1024
EndProperty
DataMember = "OrderDetails"
EndProperty
ItemType3 = 4
BeginProperty Item3 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "txtTotal"
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
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