Content Supported by Sourcelens Consulting

VERSION 5.00
Object = "{831FDD16-0C5C-11d2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{6FBA474E-43AC-11CE-9A0E-00AA0062BB4C}#1.0#0"; "SysInfo.Ocx"
Begin VB.Form frmShowReport 
   Caption         =   "Data Report"
   ClientHeight    =   840
   ClientLeft      =   1335
   ClientTop       =   870
   ClientWidth     =   4515
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   ScaleHeight     =   840
   ScaleWidth      =   4515
   Begin SysInfoLib.SysInfo sysInfo 
      Left            =   3960
      Top             =   720
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
   End
   Begin MSComCtlLib.Toolbar tlbReport 
      Align           =   1  'Align Top
      Height          =   630
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   4515
      _ExtentX        =   7964
      _ExtentY        =   1111
      ButtonWidth     =   1905
      ButtonHeight    =   953
      Appearance      =   1
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   4
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "Show Report"
            Description     =   "Show the report"
            Object.ToolTipText     =   "Show Report"
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "Export Report"
            Description     =   "Exports the report"
            Object.ToolTipText     =   "Export Report"
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "Templates"
            Description     =   "Print Templates"
            Object.ToolTipText     =   "Print Templates"
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "Exit"
            Description     =   "Exits Program"
            Object.ToolTipText     =   "Exit"
         EndProperty
      EndProperty
   End
   Begin VB.Menu mnuFile 
      Caption         =   "&File"
      Begin VB.Menu mnuShow 
         Caption         =   "&Show Report"
      End
      Begin VB.Menu mnuExport 
         Caption         =   "Export Report"
      End
      Begin VB.Menu mnuPrintReport 
         Caption         =   "&Print Report"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "E&xit"
      End
   End
End
Attribute VB_Name = "frmShowReport"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub mnuExit_Click()

    While rptNwind.AsyncCount > 0
        DoEvents
    Wend
    Unload rptNwind
    Unload frmShowReport
End Sub

Private Sub mnuExport_Click()
    ' Export a report. The code displays the
    ' Export Report dialog box. The ExportFormat
    ' is created in the Data Report's Initialize
    ' event.
    
     rptNwind.ExportReport _
     FormatIndexOrKey:="DailyReport", _
     FileName:="C:\Temp\DailyRpt", _
     overwrite:=True, _
     showdialog:=True, _
     range:=rptRangeFromTo, _
     pagefrom:=1, _
     pageto:=3

End Sub

Private Sub mnuPrintReport_Click()
    rptNwind.PrintReport
End Sub

Private Sub mnuShow_Click()
    rptNwind.Show
End Sub

Private Sub tlbReport_ButtonClick(ByVal Button As MSComCtlLib.Button)
    Select Case Button.Caption
    Case "Show Report"
        rptNwind.Show
    Case "Export Report"
        mnuExport_Click
    Case "Templates"
    
        ' Print all the templates.
        Dim i As Integer
        For i = 1 To rptNwind.ExportFormats.Count
            Debug.Print "TEMPLATE " & i
            Debug.Print rptNwind.ExportFormats(i).Template
            Debug.Print ' Space
        Next i
        MsgBox "Templates printed to Immediate window."
    Case "Exit"
        mnuExit_Click
    End Select
End Sub