Establecer tamaño a un reporte con VB6 y Crystal Report 9

[RsOfT]

Estoy utilizando Crystal Report 9 y VB6.
Cómo puedo poner el tamaño del papel en 8 1/2 x 5 1/2?

Yo llamo un reporte asi:

Código:

Dim Crystal As CRAXDRT.Application
Dim Report  As CRAXDRT.Report

rst.Open "Select * from Tabla",cnn,3,1

Set Crystal = New CRAXDRT.Application
Set Report = Crystal.OpenReport(Ruta_Reporte)

Report.DiscardSavedDataFROM RECORDSET
Report.Database.SetDataSource rst

CRViewer.ReportSource = Report
CRViewer.ViewReport

rst.Close    
Set rst = Nothing
Set Crystal = Nothing
Set Report = Nothing

Estuve observando las propiedades de la variable Report
y veo que tiene la propiedad Report.PaperSize y Report.SetUserPaperSize, pero no encuentro forma de utilizarla, alguien me podría mostrar como?

[CesarP]

Me funcionó para imprimir una factura en un formato de papel no estandar.
Trabaje sin incluir el CRViewer asi:

'---------------------------------------------------------------------------------

Dim Crystal As CRAXDRT.Application
Dim Report As CRAXDRT.Report

Set Crystal = New CRAXDRT.Application
Set Report = Crystal.OpenReport(rpt88)

Report.DiscardSavedData
Report.SetUserPaperSize 850, 2000
Report.PaperSize = crPaperUser

Report.GroupSelectionFormula = "{TFACC.TFACT} = " & Int(Wnrofac)
Report.PrintOut

Set Crystal = Nothing
Set Report = Nothing


'---------------------------------------------

El tamaño de papel lo settee asi: Report.SetUserPaperSize 850, 2000
donde 850 es el largo de la pagina y 2000 el ancho. (Con esas dimensiones e4s aproximadamente la terecera parte de una hoja tamaño carta.)

En el ejemplo TFACC es la tabla, TFACT es el nro de factura.

Ojala te sirva

[RsOfT]

Me funciona, pero asi como tu lo haces no tengo un Preview antes de ir al printer.
Lo probé de la forma que yo lo hago y la página sigue tomando el mismo tamaño.

Lo que haré por el momento es crear el tamaño de la hoja en la impresora de cada PC y asignarle ese tamaño al reporte. Eso lo haré hasta que consiga la otro alternativa.

Muchas gracias

[CesarP]

Rsoft:

De pronto en vez de que impriman directamente al ver el preview, puedes eliminar la opcion de impresion desde el preview, y mejor cuando el usario cierra el preview, preguntar si lo desea imprimir. Si contesta afirmativo hacerlo de la forma que funciona.

No es la solucion deseada, pero te evita setear cada una de las impresoras, mientras encuentras otra solucion.

Suerte

[RsOfT]

Muy buena idea, Gracias...