Sobre DataReport, Crystal Report y Report Manager..

[gscolari]

Mirá hace tiempo que estaba renegando con eso.
Hoy, tarde pero seguro... modifique REPORTWIDH 18500 cuando diseño el reporte y me dejo ver mas a la derecha.
Eso junto con todas las cosas que andanda dando vuenta por ahi en los foros....
Lo logré!!!!!!!!!!!!!!!

En mi reporte hago esto:
1: Instalo dos veces la impresora. Una con nombre "Impresora para Sistema" y la configuro Oficio y Horizontal y si quiero solo en ByN y bla, bla...

2: Antes de Abrir el reporte Verifico cual es la impresora Predeterminada:
MsgBox Printer.DeviceName
Dim NP As String
NP = Printer.DeviceName

3: Pongo mi impresora como predeterminada:
Dim obj_Impresora As Object
Set obj_Impresora = CreateObject("WScript.Network")
obj_Impresora.setdefaultprinter "Impresora para Sistema"

4: Pongo mi reporte en Horizontal (Acordate que en tiempo de diseño cambiamos REPORTWIDH a 1850):
Nombredelreporte.Orientation = rptOrientLandscape

5: Abro el reporte:
Nombredelreporte.Show vbModal

6: .... al salir pongo predeterminada la impreso que habia antes y rompo el objeto:
obj_Impresora.setdefaultprinter NP
Set obj_Impresora = Nothing

Espero que sirva........

Gerardo.... (Si esto sirve, por fin pude, una vez, ayudar yo!!!)