Visual Fox Pro 6 Ctrl generar PRN imprimir
Publicado por Jesus E. R. (1 intervención) el 27/01/2006 04:03:22
Saludos.
Agradeceré su apoyo con el fin de controlrar la generación de archivos PRN o TXT, mediante la instrucción SET PRINTER, SET DEVICE.
Uno de los Problemas es como sontrolar el salto de página. Durante el proceso de la aplicación o cuando se imprime por medio del "Bloc de Notas.exe"
Mi rutina es el siguiente:
SET PRINTER (Nombre_File) ADDTIVE
SET PRINTER FONT 'Arial', 08
SET PRINTER OFF
SET DEVICE TO PRINTER
vLinea=0
DO WHILE !EOF("Alias")
vLinea = vLinea+1
@ vLinea, 10 SAY Alias.Campo
SKIP 1 IN Alias
IF vLinea>60
vlinea = 0
ENDIF
ENDDO
SET PRINTER TO
SET PRINTER OFF
SET DEVICE TO SCREEN
TYPE (Nombre_File) TO PRINTER
Con lo anterior no genera salto de página.
Agradeceré también si se me señala donde puedo obtener los controladores de impresión para Visual Fox Pro 6, que peden ser con la función CHR() o @ Fila, Col, SAY.
Gracias por el Apoyo de antemano.
Agradeceré su apoyo con el fin de controlrar la generación de archivos PRN o TXT, mediante la instrucción SET PRINTER, SET DEVICE.
Uno de los Problemas es como sontrolar el salto de página. Durante el proceso de la aplicación o cuando se imprime por medio del "Bloc de Notas.exe"
Mi rutina es el siguiente:
SET PRINTER (Nombre_File) ADDTIVE
SET PRINTER FONT 'Arial', 08
SET PRINTER OFF
SET DEVICE TO PRINTER
vLinea=0
DO WHILE !EOF("Alias")
vLinea = vLinea+1
@ vLinea, 10 SAY Alias.Campo
SKIP 1 IN Alias
IF vLinea>60
vlinea = 0
ENDIF
ENDDO
SET PRINTER TO
SET PRINTER OFF
SET DEVICE TO SCREEN
TYPE (Nombre_File) TO PRINTER
Con lo anterior no genera salto de página.
Agradeceré también si se me señala donde puedo obtener los controladores de impresión para Visual Fox Pro 6, que peden ser con la función CHR() o @ Fila, Col, SAY.
Gracias por el Apoyo de antemano.
Valora esta pregunta


0