Label printing skipping 2 by 2

Question

I’m generating an application that reads a txt , and generates labels to be printed at the time I am using an Argox with the code below I receive and print the labels:

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 labels blank, and prints correctly and so goes.

I realized that the print queue is filled by the requisitions, I believe that is the reason.

To better illustrate what happens when I print made a drawing:

Is there a way to store and send everything at once? or any change in the code that changes this?

Answer 1

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

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

Answer 2

I think Voce needs to define the height of the label 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 your case, try using it. There you can easily create and generate labels.