Clarion - Salto Pagina

   
Vista:

Salto Pagina

Publicado por Marco (3 intervenciones) el 12/07/2012 16:52:24
Tengo que imprimir una factura que lo formatee con un ancho de 203 mm y alto 145 mm, cree una formulario en propiedades del servidor que la llame factura con las mismas dimensiones. La primera me imprime bien, el problema es cuando hace el salto, pues me toma el tamaño como carta o A4.
Uso el report del clarion, pues no se como usar en lineprint, por lo tanto alguien me puede dar una ayuda para solucionar este problema?
Desde ya muchas gracias

Marco
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Clarion
- Código fuente de Clarion
- Cursos de Clarion
información
Códigos de Clarion
- Llamar al form para insertar desde el menu

Salto Pagina

Publicado por Marcelo Madelon (572 intervenciones) el 13/07/2012 00:13:20
Marco
Te paso parte de código, espero te sirva.
Saludos desde Argentina


! IMPRIMIR CON LINEPRINT
! Agregar desde los Embeds de la GLOBAL :
! AFTER GLOBAL INCLUDEs
Include('prnprop.clw')


!!!!!!!!!!!!!! Uso del line print Te copio un poco de codigo que uso


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)



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)

LinePrint('<27,102,1,2>',,0) ! Salta 2 Lineas
IF FAC1:CodTransporte > 0 or FAC1:LugarEnvio <> '' or FAC1:DireccionEnvio <> ''..
......................
.........................
........................

LinePrint(FF) ! salto de pagina


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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar