I'm generating an application that reads txt
, and generates labels to be printed at the time I'm using an argox
with the code below I get and print the tags:
var x: string;
var y,i : integer;
begin
begin
for i := 0 to count do
begin
button1.visible := false;
label1.caption := form1.memo1.lines[i];
label2.Caption := form1.memo7.lines[i] ;
label9.Caption := form1.memo2.lines[i];
label10.Caption := form1.memo3.lines[i];
label11.Caption := form1.memo4.lines[i];
label13.Caption := form1.memo5.lines[i];
label14.Caption := form1.memo6.lines[i];
GerarCodigo(label1.caption, Image1.Canvas);
PrintScale := poNone;
Print;
end;
It leaves 2 blank labels, and prints correctly and so it goes.
I noticed that the print queue is filled by the requisitions, I believe that is the reason.
To better illustrate what happens when I'm going to print I made a drawing:
Is there a way to store and send everything at once? or any changes in the code that change this?