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

[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