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
|