VERSION 5.00
Object = "{8767A745-088E-4CA6-8594-073D6D2DE57A}#9.2#0"; "crviewer9.dll"
Begin VB.Form InvRepFrm 
   Caption         =   "Invoice Form"
   ClientHeight    =   6570
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   12195
   LinkTopic       =   "Form3"
   ScaleHeight     =   6570
   ScaleWidth      =   12195
   StartUpPosition =   3  'Windows Default
   Begin CRVIEWER9LibCtl.CRViewer9 CRV1 
      Height          =   6375
      Left            =   0
      TabIndex        =   0
      Top             =   120
      Width           =   12135
      lastProp        =   500
      _cx             =   21405
      _cy             =   11245
      DisplayGroupTree=   -1  'True
      DisplayToolbar  =   -1  'True
      EnableGroupTree =   -1  'True
      EnableNavigationControls=   -1  'True
      EnableStopButton=   -1  'True
      EnablePrintButton=   -1  'True
      EnableZoomControl=   -1  'True
      EnableCloseButton=   -1  'True
      EnableProgressControl=   -1  'True
      EnableSearchControl=   -1  'True
      EnableRefreshButton=   -1  'True
      EnableDrillDown =   -1  'True
      EnableAnimationControl=   -1  'True
      EnableSelectExpertButton=   0   'False
      EnableToolbar   =   -1  'True
      DisplayBorder   =   -1  'True
      DisplayTabs     =   -1  'True
      DisplayBackgroundEdge=   -1  'True
      SelectionFormula=   ""
      EnablePopupMenu =   -1  'True
      EnableExportButton=   -1  'True
      EnableSearchExpertButton=   0   'False
      EnableHelpButton=   0   'False
      LaunchHTTPHyperlinksInNewBrowser=   -1  'True
   End
End
Attribute VB_Name = "InvRepFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim appl As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report



Private Sub CRV1_PrintButtonClicked(UseDefault As Boolean)
Report.PrintOut False, 1

Unload Me

End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbkeyesc Then
    Unload Me
End If


End Sub

Private Sub Form_Load()

Set Report = appl.OpenReport("C:\SampleReport\InvNew.Rpt")
Report.ParameterFields(1).ClearCurrentValueAndRange
Report.ParameterFields(1).AddCurrentValue Trim(pPrnForm.txtInvno)
Report.ParameterFields(2).ClearCurrentValueAndRange
Report.ParameterFields(2).AddCurrentValue CDate(pPrnForm.MskDate)
Report.ParameterFields(3).ClearCurrentValueAndRange
Report.ParameterFields(3).AddCurrentValue Trim(pPrnForm.cAdd1)
Report.ParameterFields(4).ClearCurrentValueAndRange
Report.ParameterFields(4).AddCurrentValue Trim(pPrnForm.cAdd2)
Report.ParameterFields(5).ClearCurrentValueAndRange
Report.ParameterFields(5).AddCurrentValue Trim(pPrnForm.cAdd3)
Report.ParameterFields(6).ClearCurrentValueAndRange
Report.ParameterFields(6).AddCurrentValue Trim(pPrnForm.txtCustomerName)
Report.ParameterFields(7).ClearCurrentValueAndRange
Report.ParameterFields(7).AddCurrentValue pPrnForm.OwnCustomer
Report.ParameterFields(8).ClearCurrentValueAndRange
Report.ParameterFields(8).AddCurrentValue Trim(pUserName)

crv1.ReportSource = Report
'CRV1.PrintReport
crv1.ViewReport


'report.PrintOut
'Set Report = Nothing
'Set pPrnForm = Nothing
''Unload Me

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Set Report = Nothing
Set pPrnForm = Nothing
'Unload Me
End Sub

Private Sub Form_Resize()

With crv1
    .Top = 0
    .Left = 0
    .Width = Me.ScaleWidth
    .Height = Me.ScaleHeight
End With

End Sub