! IMPRIMIR CON LINEPRINT
! Agregar desde los Embeds de la GLOBAL :
! AFTER GLOBAL INCLUDEs
Include('prnprop.clw')
Aca te paso un ejemplo (parte de una rutina) vos analizala y toma lo que te sirva
LOC:DefaultPrinter = (PRINTER{PROPPRINT:Device}) ! Guardo la Impresora por Predeterminada
LOC:ReceiptPrinter = 'Epson LX-810' ! Cambio por la Epson LX-810
PRINTER{PROPPRINT:Device}=CLIP(LOC:ReceiptPrinter)
LOC:CanCopias = 3
BA# = 0
Loop BA# = 1 to LOC:CanCopias BY 1
LinePrint('<27,64>',,0) ! Inicializo Impresora
LinePrint('<27,67,72>',,0) ! Longitud pagina a 72 Líneas
LinePrint('<27,102,1,4>',,0) ! Salta 4 Lineas
LinePrint(CHR(27)&CHR(18)&' FECHA EMISION: '&(format (FAC1:FechaEmision,@d6)))
LinePrint('<27,102,1,4>',,0) ! Salta 4 Lineas
LinePrint(CHR(27)&CHR(18)&' '&AC1:ApellidoNombre)
LinePrint(CHR(27)&CHR(18)&' '&AC1:Direccion)
LinePrint(CHR(27)&CHR(18)&' '&AEN:Localidad &' '&Format(AC1:Cuit,@P##-########-#P)&' '&ASI:Abreviatura)
FAC2:VectorVta = FAC1:VectorVta
SET(FAC2:KeyVectorVta,FAC2:KeyVectorVta)
LOOP UNTIL Access:Afact002.Next() or FAC2:VectorVta <> FAC1:VectorVta or LOC:CanLin > 27
IF FAC1:Letra = 'A'
LinePrint(CHR(27)&CHR(15)&FAC2:CodArticulo&' '&Format(FAC2:Cantidad,@N9.2)|
&' '&FAC2:Denominacion&' '&Format(FAC2:Gravado,@N9.2)&' '&Format(FAC2:TotalGravado,@N9.2))
ELSE
LinePrint(CHR(27)&CHR(15)&FAC2:CodArticulo&' '&Format(FAC2:Cantidad,@N9.2)|
&' '&FAC2:Denominacion&' '&Format(FAC2:PrecioUnitario,@N9.2)|
&' '&Format(FAC2:ImporteTotal,@N9.2))
LOC:ImpSubTotal += FAC2:ImporteTotal
END
LOC:CanLin += 1
END ! Loop
LinePrint(CHR(27)&CHR(102)&CHR(1)&CHR(33-LOC:CanLin),,0) ! Salta (33 - LineasImpresas)
! Imprimo Total
IF FAC1:Letra = 'A'
LOC:ImpSubTotal = (FAC1:ImporteGravado1 + FAC1:ImporteGravado2 + FAC1:ImporteExento1)
LOC:ImpDescuento = FAC1:ImpDescuento
LOC:ImpSubTotalNeto = (FAC1:NetoGravado1 + FAC1:NetoGravado2 + FAC1:NetoExento1)
LOC:ImpIva = (FAC1:ImpivaRi_1 + FAC1:ImpivaRi_2)
LinePrint(CHR(27)&CHR(15)&|
' '&Format(LOC:ImpSubTotal,@N14.2)&' '&Format(LOC:ImpDescuento,@N14.2)&' 0.00 '&|
' '&Format(LOC:ImpSubTotalNeto,@N14.2)&' '&Format(LOC:ImpIva,@N14.2)&|
' '&Format(FAC1:ImpivaRni_1,@N14.2)&' '&Format(FAC1:ImporteTotal,@N14.2))
ELSE
LOC:ImpDescuento = ((LOC:ImpSubTotal * FAC1:PorDescuento) / 100)
LOC:ImpSubTotalNeto = FAC1:ImporteTotal
LOC:ImpIva = (FAC1:ImpivaRi_1 + FAC1:ImpivaRi_2)
LinePrint(CHR(27)&CHR(15)&|
' '&Format(LOC:ImpSubTotal,@N14.2)&' '&Format(LOC:ImpDescuento,@N14.2)&' 0.00 '&|
' '&Format(LOC:ImpSubTotalNeto,@N14.2)&' '&' 0.00'&|
' '&' 0.00'&' '&Format(FAC1:ImporteTotal,@N14.2))
END
LinePrint(CHR(27)&CHR(18)&' ')
LinePrint('<27,102,1,1>',,0) ! Salta 1 Lineas
! Imprimo Pie
LinePrint(FF)
END ! Loop
LinePrint('<27,64>',,0) ! Inicializo Impresora
LinePrint('<27,67,72>',,0) ! Longitud pagina a 72 Líneas
PRINTER{PROPPRINT:Device}=CLIP(LOC:DefaultPrinter) ! Devuelvo la impresora predeterminada
Espero te sirva, Cualquier cosa llama.
Saludos desde Venado Tuerto