como generar un reporte impreso por pantalla a excel

[jeanficetola]

buenas tardes alguien tendra codigo ejemplo de como generar un reporte impreso por pantalla a excel.


saludos

[Nunotbe]

Hombre, código de ejemplo, no, pero si de lo que hablamos es de pasar el report impreso a Excel en el momento de su presentación, comentarte que puedes acceder por menú a través de Sistema -> Lista -> Grabar -> Fichero local, con lo que podrías grabarlo en el servidor de presentación dentro de una hoja Excel.
No sé si era eso lo que pedías y necesitas.

Suerte y saludos!

[ibecerra]

Hola haber si te entendi, lo que deseas es generar un reporte pero que te visualize una pantalla en excel.
utiliza la siguiente funcion

Hola utiliza lo siguiente funcion
DATA: BEGIN OF F_CAMPOS OCCURS 40,
FIELD(60),
END OF F_CAMPOS.
DATA: F_PIVOT LIKE EXCELPIVOT OCCURS 10 WITH HEADER LINE.

*----puede tener cualquier campo
DATA: BEGIN OF T_EXCEL OCCURS 0,
RAZON_SOCIAL(72) TYPE C, "KNA1-NAME1
APELLIDO_PA(24) TYPE C,"MOVER ESPACIO
APELLIDO_MA(24) TYPE C,"MOVER ESPACIO
TIPDOC(1) TYPE C,
NUMIDENT(15) TYPE C,"NRO DOC DE IDENTIDAD
NUMLETRA(12) TYPE C,"REFERENCIA DEL REPORTE
FECVEC(6) TYPE C,"FEC VENCIMIENTO DDMMAA
IMPORTE LIKE ZTB_CARTA_P-WRBTR ,"IMP REPORTE 11.2
END OF T_EXCEL.


DATA:
W_HOJA LIKE RLGRAP-FILENAME
VALUE 'Estructura para banco',
XPATH LIKE RLGRAP-FILENAME VALUE 'C:\WINDOWS '.
CLEAR F_CAMPOS.
FREE F_CAMPOS.
F_CAMPOS = 'Razón Social '.
APPEND F_CAMPOS.
F_CAMPOS = 'Apellido Paterno '. APPEND F_CAMPOS.
F_CAMPOS = 'Apellido Materno '. APPEND F_CAMPOS.
F_CAMPOS = 'T. de Documento de Ident.'. APPEND F_CAMPOS.
F_CAMPOS = 'Nro de Documento de ident.'. APPEND F_CAMPOS.
F_CAMPOS = 'Nro de Letra'. APPEND F_CAMPOS.
F_CAMPOS = 'Fecha de vencimiento'. APPEND F_CAMPOS.
F_CAMPOS = 'Importe'. APPEND F_CAMPOS.

*-- Nombre de Hoja ..
W_HOJA = 'Reporte'.

MS_EXCEL_OLE_STANDARD_DAT


CALL FUNCTION 'MS_EXCEL_OLE_STANDARD_DAT'
EXPORTING
FILE_NAME = XPATH
CREATE_PIVOT = ' '
DATA_SHEET_NAME = W_HOJA
PIVOT_SHEET_NAME = W_HOJA
PASSWORD = ' '
PASSWORD_OPTION = 0
TABLES
PIVOT_FIELD_TAB = F_PIVOT
DATA_TAB = T_EXCEL
FIELDNAMES = F_CAMPOS
EXCEPTIONS
FILE_NOT_EXIST = 1
FILENAME_EXPECTED = 2
COMMUNICATION_ERROR = 3
OLE_OBJECT_METHOD_ERROR = 4
OLE_OBJECT_PROPERTY_ERROR = 5
INVALID_FILENAME = 6
INVALID_PIVOT_FIELDS = 7
DOWNLOAD_PROBLEM = 8

[fede69]

hola a todos...una pregunta...necesito bajar un excel pero lo que tengo que poner son dos tablas con sus encabezados en una misma hoja de excel...las tablas tienen una cantidad de columnas y filas fija...según lo uqe vi la función MS_EXCEL_OLE_STANDARD_DAT no te permite hacerlo...hay alguna otra función que lo haga???

gracias!!!!
Federico

[golden_fbi]

hola disculpen, no me sale ninguna cabezera

FIELDNAMES = F_CAMPOS

como se declara el f_campos??

le puse asi en el top pero creo que no es:
DATA: BEGIN OF F_CAMPOS OCCURS 0.
INCLUDE STRUCTURE "TABLA_QUE_RECIBE_EL EXELL".
DATA: END OF F_CAMPOS.


MUCHAS GRACIAS