Ayuda con impresion en DataReport

Nabucodonosor
16 de Noviembre del 2004
Hola a todos

Tengo un problema al tratar de mandar la accion de mostrar el Reporte por medio de un boton que me llama al DataReport, me sale un error que me dice Que el ancho del informe es mayor que el ancho del papel, donde puedo cambiar esa opción para que no me salga este error.
Utilizo

Set ptr = Printer
With ptr

gRptCurOrientation = groo.GetPrinterOrientation( _
.DeviceName, .hDC)
gRptNewOrientation = gRptCurOrientation
.ScaleMode = vbTwips
gRptWidthPortrait = .Width - objRpt.LeftMargin - _
objRpt.RightMargin
gRptWidthLandscape = .Height - objRpt.LeftMargin - _
objRpt.RightMargin
If gRptCurOrientation = vbPRORLandscape Then
'//Swap
tmp = gRptWidthPortrait
gRptWidthPortrait = gRptWidthLandscape
gRptWidthLandscape = tmp
objRpt.ReportWidth = gRptWidthLandscape
End If
End With
Set ptr = Nothing

Por su ayuda les anticipo las gracias

welfo
16 de Noviembre del 2004
El data report esta limitado en funciones de orientacion, sobre todo cuando quieres que la hoja este en forma horizontal, lo que debes hacer y es la unica forma, al menos que programes una clase y esta complicado, es que en las propiedades de la impresora cambies la orientacion de la hoja, y la pongas como predeterminada, o que coloques el commondialog de visual basic para controlar la impresora y sus propiedades desde tu aplicacion.
suerte.