RE:Salto de pág. en Reporte
Hola Fernando.
Tendría que saber si al reporte lo estás generando en forma normal o con los templates LinePrint o PrintDrv.
Creo que lo que queres hacer es imprimir original y duplicado en una misma hoja.
La pregunta es A4 o Continuo?
Si la impresión la generas en forma normal. Lo que yo hago es manejarme todo con detalles.
Uno para el Encabezado, otro para el detalle y uno para el total.
Luego en RerportProperties - Filters properties le indico FALSE y marco en ExcludeUnfiltered
Luego los imprimo a mano
Aca tengo una Queue cargada con los datos de las lineas.
Primero imprimo el Encabezado y por ultimo el total y lo repito segun las copias que necesite.
C# = 0
Loop
If C# = 2 ! 3 si necesitas triplicado ! 4......
break ! sale del loop
end
Print(RPT:Cabeza) ! Imprimo el detalle que se llama Cabeza
Loop I# = 1 to records(QLineas) ! leo la Queue
get(QLineas,I#)
Print(RPT:Lineas) ! Imprimo el detalle que se llama Lineas
END
Print(RPT:Totales) ! Imprimo el Total
C# += 1
End
! Con LinePrint........
!!!! Ejemplo de imprimir usando line print
! aca no uso un Reporte sino un proceso
! IMPRIMIR CON LINEPRINT
! Agregar desde los Embeds de la GLOBAL :
! AFTER GLOBAL INCLUDEs
Include('prnprop.clw')
! te paso la impresion de algunos campos con su formato
! Es Igual escribir: Para setear la letra Normal
LinePrint(CHR(27)&CHR(18)....) o
LinePrint('<27,18>'....)
! Por costumbre las lines de Seteo, saltos de pag., etc. uso:
LinePrint('<27,64>',,0)
! y las que son de impresión de datos uso:
LinePrint(CHR(27)&CHR(18)&' '&AC1:ApellidoNombre)
LinePrint(CHR(27)&CHR(15)&' '&AC1:Direccion) ! Condensado
! A continuación va un ejemplo
LinePrint('<27,64>',,0) ! Inicializo Impresora
LinePrint('<27,67,72>',,0) ! Longitud pagina a 72 Líneas
LinePrint('<27,102,1,1>',,0) ! Salta 1 Lineas
LinePrint(CHR(27)&CHR(18)&' '&ATI:DenominacionCbte)
LinePrint('<27,102,1,2>',,0) ! Salta 2 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) ! Letra Normar
LinePrint(CHR(27)&CHR(15)&' '&AC1:Direccion) ! Letra Condensada
LinePrint(CHR(27)&CHR(18)&Format(AC1:CodPostal,@P(####-##)P)&' '&AEN:Localidad&' '&Format(AC1:Cuit,@P##-########-#P)&' '|
&ASI:Abreviatura)
LinePrint('<27,102,1,2>',,0) ! Salta 2 Lineas
LinePrint(FF) ! salto de página
!!! PrintDrv es un poco diferente a LinePrint pero no mucho (Line Print es Gratis)
! FIJATE QUE LOS COMANDO DE IMPRESIÓN SON LOS MISMOS QUE USABAMOS EN COBOL (DOS puro)
Si no los tenes fijate en el manual de la impresora.
Un abarazo