| 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 | |
| Respuesta: | adaptoide adaptoide |
| Que tal Tavo, yo tambien tenia ese problema en Clipper 5.2 y probe varios programas, pero el que me resulto el mejor de todos es el No2imp, checa lo que hace : Por medio de este programa podra enviar archivos tipo TXT (texto) a impresoras que no impriman en DOS (como la Canon BJC-1000,BJC-2100, etc...) esto tambien ayuda a realizar impresiones a traves de la red local, con solo escojer la impresora requerida. evitando asi la molesta captura de puertos. o para imprimir en impresoras con puerto USB. Es fantastico. Si no lo puedes localizar contactame. Saludos desde Mexico. | |
| Respuesta: | Alex Castillo A |
| No se si sea tarde la respuesta pero yo trabajo con los comandos set device to print //rutina de impresión como si estuviera enviando a pantalla y funciona // rapido no tengo problema de velocidad. setprc(0,2) // Setear impresora en cero @10,10 say 'Numero de Cheque:'+str(x_nuem,10) @11,10 say 'Nombre :'+nombre @33,0 say '' // posicionas en la linea 33 (1/2 pagin) setprc(0,1) // Setear impresora en cero eject // Salto de pagina etcs set device to screen aqui te envio todos los comamndos que uno para imprimer y saltar de media pagina | |