1. izradim , normalno racun u reportu i snimim ga u txt file sa
Code:
Racun.ExportToFilter(TQRAsciiExportFilter.Create('racun.txt')) ;
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);
StrRacun.Insert(0,zaglavlje);
i dodajem kraj tj.
Code:
StrRacun.Append(chr(12));
StrRacun.Append(chr(12));
saljem taj racun.txt na LPT1 sa
Code:
CopyFile(pchar('racun.txt'),pchar('LPT1'),False) ;
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;
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.