Printing of labels jumping from 2 to 2

1

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?

    
asked by anonymous 16.12.2015 / 14:53

2 answers

-1

I think you need to define the height of the tag and the vertical space between them, if any. Depending on the version of Delphi you are using, you may have the quick report. If this is the case, try to use it. In it you can easily create and generate tags.

    
17.12.2015 / 07:36
-1

Your problem is with the label setting. Once you are not informed, the printer follows a preset pattern. Try setting the format (Height x width, sheet size, etc.) in the printer setup, or through your code.

If you want to tell the model of your printer and take a look at its manual to see if you can adjust this in the setup.

    
17.12.2015 / 20:22