Impresión de
Publicado por Juan Carlos Lopera (13 intervenciones) el 27/09/2011 00:24:55
Tengo el siguiente código de programa para imprimir en forma directa a la impresora
SET PRINTER TO DEFAULT
SET DEVICE TO PRINTER
SET CONSOLE OFF
SET PRINTER ON
SET EXACT OFF
SELECT MDe
SEEK DTOS(MSu.Fecha)+MSu.Tipo+STR(MSu.Numero,6)
SET EXACT ON
wCtaAnt = SPACE(10)
DO WHILE !EOF() AND MSu.Numero = MDe.Numero AND MDe.Tipo = MSu.Tipo
SELECT Cta
SEEK MDe.Cuenta
SET PRINTER FONT 'Courier New', 8
?? ' '+TRANSFORM(MDe.Cuenta,'@R X XX XX XX XXX')+' '+Cta.Nombre+' '
?? TRANSFORM(wDol,'999,999,999.99')
?? TRANSFORM(wDebe,'@Z 9,999,999,999.99')
?? TRANSFORM(wHaber,'@Z 9,999,999,999.99')
SET PRINTER FONT 'Courier New', 8
?? SPACE(16)+MDe.Glosa
ENDDO
SET PRINTER OFF
SET DEVICE TO SCREEN
SET PRINTER TO
Es un resumen del Código original como un ejemplo.
Con el reporte me va bien, pero tengo las siguientes consultas:
1.- Como hago para imprimir en forma HORIZONTAL?
2.- Como imprimo líneas verticales dentro del reporte?.
3.- Como imprimo un gráfico en el reporte?
Mis agradecimientos anticipados por su atención a estas inquietudes.
Saludos
SET PRINTER TO DEFAULT
SET DEVICE TO PRINTER
SET CONSOLE OFF
SET PRINTER ON
SET EXACT OFF
SELECT MDe
SEEK DTOS(MSu.Fecha)+MSu.Tipo+STR(MSu.Numero,6)
SET EXACT ON
wCtaAnt = SPACE(10)
DO WHILE !EOF() AND MSu.Numero = MDe.Numero AND MDe.Tipo = MSu.Tipo
SELECT Cta
SEEK MDe.Cuenta
SET PRINTER FONT 'Courier New', 8
?? ' '+TRANSFORM(MDe.Cuenta,'@R X XX XX XX XXX')+' '+Cta.Nombre+' '
?? TRANSFORM(wDol,'999,999,999.99')
?? TRANSFORM(wDebe,'@Z 9,999,999,999.99')
?? TRANSFORM(wHaber,'@Z 9,999,999,999.99')
SET PRINTER FONT 'Courier New', 8
?? SPACE(16)+MDe.Glosa
ENDDO
SET PRINTER OFF
SET DEVICE TO SCREEN
SET PRINTER TO
Es un resumen del Código original como un ejemplo.
Con el reporte me va bien, pero tengo las siguientes consultas:
1.- Como hago para imprimir en forma HORIZONTAL?
2.- Como imprimo líneas verticales dentro del reporte?.
3.- Como imprimo un gráfico en el reporte?
Mis agradecimientos anticipados por su atención a estas inquietudes.
Saludos
Valora esta pregunta


0