POS ispis ponavljanje zaglavlja?

[ codeb.s @ 28.02.2007. 12:33 ] @

Molim pomozite mi oko ovo problema. Imam neki proramcic za POS kasicu kojim stampam POS racuncic . Inace koristim LX300 kao POS stampac i to na sledeci nacin:
1. izradim , normalno racun u reportu i snimim ga u txt file sa

Code:

Racun.ExportToFilter(TQRAsciiExportFilter.Create('racun.txt')) ;

gdje je Racun QuickReport

potom ucitavam ja snimljeni racun u StringList koji sam nazva StrRacun i dodajem pripremljene commande za stampac
koje se nalaze u stringu "zaglavlje"

Code:

StrRacun.Insert(0,zaglavlje);

i dodajem kraj tj.

Code:

StrRacun.Append(chr(12));

saljem taj racun.txt na LPT1 sa

Code:

CopyFile(pchar('racun.txt'),pchar('LPT1'),False) ;

E sad u zaglavlje pravim sa sledecom funkciom:

Code:

function Tform7.napravizaglavlje():string;
var ch:char;
begin
  case  fontgroupbox.itemindex of
  0: ch:=chr(80);
  1: ch:=chr(77) ;

  end;
   result:=  #27'@' +     // Reset

                         #27#79 +     // Cancel Skip-Over-Perforation
                         #27#48 +     // 1/8 Inch razmak izmedju redova
                         #27+ch +     // velicina slova
                         #27#120#0 +  // Draft = 0
                         #27#33+chr(form7.ConSpin.value)+
                         #27#108+chr(form7.LeftMarginSpin.value) +  // Leva margina =  0
                         #27#67#0+chr(form7.VelicinaSTraneSpin.value) ; // Velicina stranice u incima

end;

sve to radi ok , e sad:
PROBLEM
Kada racun ima dve strane, program mi stamapa zaglavlje ponovo, i to preko zadnjih par unosa ,Kako da to resim???????
Kada snimim taj racun u txt file (taj sto prelazi na dva ili vise lista), ne prikazuje duplo zaglavlje.
Zna li ko rijesenje.