[Lazarus-es] imprimir tickeadora: ticket y testigo

[Paola Bruccoleri]

El 27/09/2012 02:53 p.m., Claudio Romero escribió:
> Hola Paola
> si no entendi mal, imprimes lo misma string en original y duplicado.
>
> yo por ahi hice una función para imprimir los duplicados en laser.
> Con matricial esta el problema de que hay que dejar espacios a la
> izquierda, segun el largo de la cadena, pero se resuelve facil.
>
> Ej
>
> procedure ImprimirDuplicadoCadenaRaw(CADENA:string);
> CADENA='RAZON';
> ImprimirDuplicadoCadenaRaw(CADENA);
> Const ComienzoDuplicado=40;
>
> Saldría Columna
> 1
>            40
> RAZON (ComienzoDuplicado-lengh(CADENA) espacios) RAZON
>
> En este ejemplo RAZON tiene 5 carac. dejaria 35 espacios, e imprime el duplicado
> en la columna 40.
>
> De esta manera usas una sola función para imprimir las lineas con
> duplicados a la columna 40. Ya que los espacios se calculan en función
> del largo de la cadena, se adapta a cualquier cadena.
> Lo hice de memoria, pero recuerdo que funcionaba bien asi-
> Lo único haz un chequeo para evitar que cadenas largas se salgan de la
> hoja a imprimir, o superen el largo de ComienzoDuplicado, etc.
>
> Si encuentro la función te la paso.
Hola Claudio..
si, era lo q pensaba hacer más o menos..
si llegas a encontrar la función, mejor aún! .. me ahorro tiempo :)
Cuando termine este embrollo de cosas, les cuento como me fué.
chauuuuuuuuuuu