Imprimir una tabla interna

[marsilady]

Hola a todos

Nuevamente escribo porque necesito una manita.....

Estoy trabajando con un reporte que lo que requiere es que descargue a la PC un archivo *.txt con ciertas condiciones, pero tambien requiere que además de descargar el archivo este vaya a la impresora y se imprima..... hasta acá llegué yo, si alguien sabe como hacer esto se lo agradecería muchiiisimo....

Muchas gracias por adelantado

Marsi

[Aron]

Hola Marsi, si no te entendi mal lo que deseas hacer es que primero bajar a PC en txt la data que posees (esta ya filtrada por las condicione que tienes) y despues de ello enviarlo al spool e imprimir directamente, bueno aqui ta paso unas rutina que te podria ayudar en esto ;

despues de haber bajado tu data a tu pc lo puedes imprimer de la siguiente manera:

FORM enviar_spool.
DATA: w_flag TYPE i VALUE 0,
w_view TYPE string.

SORT t_error BY typer.
PERFORM new-page USING 'LOG - Carga Masiva de Materiales'.
LOOP AT t_error.
""""" Aqui es donde comienzas a imprimir tu data como si lo estuviareas haciendo directamente en pantalla (modo report list).
ENDLOOP.

NEW-PAGE PRINT OFF.
ENDFORM. "ENVIAR_SPOOL


FORM new-page USING w_titulo.

NEW-PAGE PRINT ON
LIST NAME w_titulo
DESTINATION 'LOCL'
COPIES '001'
COVER TEXT w_titulo
IMMEDIATELY ' '
KEEP IN SPOOL 'X'
NEW LIST IDENTIFICATION 'X'
LAYOUT 'X_90_120'
LINE-SIZE '120'
LINE-COUNT '90'
DATASET EXPIRATION '5'
NEW-SECTION
NO DIALOG.

ENDFORM. "NEW-PAGE



Aqui lo importante es la rutina FORM NEW-PAGE la cual hace que lo que desees escribir lo hagas directamente en el spool indicandole la impresora, tamaños de pagina, si se imprimira inmediatamente, etc.

asi es como lo he hecho en varios programas que he realizado espero te pueda servir.

Saludos

Aron

[marsilady]

Mil Gracias Aaron

Me entendiste perfectamente!!!

Lo probé y me funcionó, era justo lo que necesitaba......

Muchas Gracias por tu colaboración.

Marsi