[Lazarus-es] imprimir tickeadora: ticket y testigo

[Claudio Romero]

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.

Saludos