Case "Print"
GenerateDSN
With MAIN.CR
.Reset: MAIN.InitCrys
.ReportFileName = App.Path & "\Reports\rptStocksInformation.rpt"
.Connect = "DSN=" & App.Path & "\rptCN.dsn;PWD=braintech"
.WindowTitle = "Stocks Information List"
.ParameterFields(0) = "prBussAddr;" & CurrBiz.BUSINESS_ADDRESS & ";True"
.ParameterFields(1) = "prmBussContact;" & CurrBiz.BUSINESS_CONTACT_INFO & ";True"
.ParameterFields(2) = "prmTitle;STOCKS INFORMATION LIST;True"
.PageZoom 100
.Action = 1
End With
RemoveDSN
please help....
- 7 views