Crystal Reports

[CecileR]

Anyone, I need your help pls.
This code works fine. But I want to know how can I control the number of pages to preview and to print. Using Crystal Report object not Crystal Report OCX.

Set crapp = CreateObject("Crystal.CRPE.Application")
Set crpReport = crapp.OpenReport("C:\Autocall\Reports\Rpt\percent.rpt")
Set crpedefs = crpReport.FormulaFields

Set crpedef1 = crpedefs.Item("Hotels1")
crpedef1.Text = "'" & HOTEL & "'"

Set crpedef2 = crpedefs.Item("VCPNoVid")
crpedef2.Text = "'" & VCPN & "'"

Dim crpedefs As CRPEAuto.FormulaFieldDefinitions
Private crpedef1 As CRPEAuto.FormulaFieldDefinition
Private crpedef2 As CRPEAuto.FormulaFieldDefinition
Private crpReport As CRPEAuto.REPORT

Thanks.

Cecile


The more u read, the more u do not know