RE:Como imprimir directamente un reporte
Prueba con lo siguiente:
En las propidades del boton de impresión coloca el siguiente codigo:
DECLARE
V_IN_FILE TEXT_IO.FILE_TYPE;
LINEA VARCHAR(200);
LINEA2 VARCHAR(20);
BEGIN
/* ABRIMOS EL PUERTO PARA PODER IMPRIMIR*/
V_IN_FILE :=TEXT_IO.FOPEN('LPT1','W');
TEXT_IO.PUT_LINE(V_IN_FILE,CHR(27)||CHR(10));
/* IMPRIMIMOS TODO LO QUE QUERAMOS*/
LINEA:= ' ';
TEXT_IO.PUT_LINE(V_IN_FILE,LINEA2); Estos son lineas
TEXT_IO.PUT_LINE(V_IN_FILE,LINEA2); o espacios en blanco
TEXT_IO.PUT_LINE(V_IN_FILE,LINEA2);
TEXT_IO.PUT_LINE(V_IN_FILE,LINEA2);
LINEA :=' '||TO_CHAR( :VIAJES.FECHA,'HH24:MI'); Aqui estoy insertando un campo.
TEXT_IO.PUT_LINE(V_IN_FILE,LINEA2);
TEXT_IO.PUT_LINE(V_IN_FILE,LINEA2);
/*CERRANDO EL PUERTO DE IMPRESION*/
TEXT_IO.FCLOSE(V_IN_FILE);
EXCEPTION
WHEN OTHERS THEN
MESSAGE('ERROR: '||SQLERRM);
RAISE FORM_TRIGGER_FAILURE;
END;
Prueba y me avisas si no entiendes algo. Con esto mandas de una vez los parametros a la impresora.Exitos
Orale.
gilberto hernandez.