Pregunta: | 48835 - IMPRESION LENTA EN LPT1 |
Autor: | Gustavo Alvarez |
Amigos programadores espero que esten bien Amigos estoy usando la clase TDOSPRN, y me funciona bien solo tengo un inconveniente, cuando mando a imprimir tengo que salir del programa para que la impresion sea inmediata y rapida, si no me salgo cuesta que llegue la impresion y cuando llega es lenta. mi pregunta es sera que existe algun commando para evitar salir del programa y que la impresion sea rapida si me pudieran ayudar se los agradesco mucho. Que Dios los bendiga. Gracias. esta es una parte de mi progrma. FUNCTION PrnVou2() local oPr Opr := TDosPrn():New("lpt1") oPr:Command( ' 27,67,33 ' ) // 33 Líneas por página = 1/2 Carta OPR:SAY( 1 , 5, "BANCO DEL " + chequera->banco+Space(5) + alltrim(empresa->empresa2)) OPR:SAY( 2 , 55, "Cheque No. " + cheques->no_cheque ) OPR:SAY( 2 , 5, "CUENTA..: " + chequera->cta_banco ) OPR:SAY( 4 , 55, "Valor Q. "+Alltrim(transform(cheques->valor,"999,999,999.99"))) OPR:SAY( 4 , 5, "Lugar y Fecha: " + Xfecha ) OPR:SAY( 6 , 5, "Pagado A..: " + cheques->nombre ) OPR:SAY( 7 , 5, "Cantidad..: " + Xletras ) Opr:EndPage() Opr:Command( ' 27,67,66 ' ) // 33 Líneas por página = 1/2 Carta Opr:end() return nil |