ACBRETQ imprimir quantidade de etiquetas

[Maurício Souza]

Preciso de ajuda com o acbetq  na seguinte situação etiqueta de 3 colunas quanto eu coloco pra imprimir 7 sai sete linhas impresso  em vez de sair 7 etiquetas ja teste de outra forma e conseguir imprimir 7  mas toda as 7 saíram na primeira coluna de cada linha como proceder pra imprimir uma certa quantidade.segue meu codigo.

                FDMemEtiquetas.First;                
                 while not FDMemEtiquetas.Eof  do
                    begin

                        IniciarEtiqueta;

                        ImprimirTexto(orNormal, 1, 1, 2,15, 2, FDMemEtiquetasDESCRICAO.Value, 0, false);
                        ImprimirTexto(orNormal, 2, 1, 2, 2, 2, 'R$');
                        ImprimirTexto(orNormal, 2, 1, 2, 2, 6,FormatFloat('#0.00', FDMemEtiquetasPMC.value));
                        ImprimirTexto(orNormal, 1, 1, 2,10, 2,FDMemEtiquetasId_produto.Value, 0,false);
                        FDMemEtiquetas.Next;

                     if (not FDMemEtiquetas.Eof) then
                       begin

                        ImprimirTexto(orNormal, 1, 1, 2,15, 38, FDMemEtiquetasDESCRICAO.Value, 0, false);
                        ImprimirTexto(orNormal, 2, 1, 2, 2, 40, 'R$');
                        ImprimirTexto(orNormal, 2, 1, 2, 2, 42,FormatFloat('#0.00', FDMemEtiquetasPMC.value));
                        ImprimirTexto(orNormal, 1, 1, 2,10, 38,FDMemEtiquetasId_produto.Value, 0,false);
                        FDMemEtiquetas.Next;
                      end;

                     if (not FDMemEtiquetas.Eof) then
                      begin
                       ImprimirTexto(orNormal, 1, 1, 2,15,72, FDMemEtiquetasDESCRICAO.Value, 0, false);
                       ImprimirTexto(orNormal, 2, 1, 2, 2,74, 'R$');
                       ImprimirTexto(orNormal, 2, 1, 2, 2,79,FormatFloat('#0.00', FDMemEtiquetasPMC.value));
                       ImprimirTexto(orNormal, 1, 1, 2,10,72,FDMemEtiquetasId_produto.Value, 0,false);
                       FDMemEtiquetas.Next;
                      end;

                    end;
                     FDMemEtiquetas.Next;
                     
                     ImprimirEtiquetaComCopiasEAvanco(FDMemEtiquetasQNT.Value.ToString,EditAvanco.Text);

                     Desativar;

 

[EliasCesar]

Olá, 
Cada bloco de etiquetas precisa ser iniciado e finalizado. Veja que vc colocou um "IniciarEtiqueta", mas após desenhar a linha(3 etiquetas) não informou o comando "FinalizarEtiqueta".

Talvez isso funcione:
 

  FDMemEtiquetas.First;
  while not FDMemEtiquetas.Eof  do
  begin
    IniciarEtiqueta;

    ImprimirTexto(orNormal, 1, 1, 2,15, 2, FDMemEtiquetasDESCRICAO.Value, 0, false);
    ImprimirTexto(orNormal, 2, 1, 2, 2, 2, 'R$');
    ImprimirTexto(orNormal, 2, 1, 2, 2, 6,FormatFloat('#0.00', FDMemEtiquetasPMC.value));
    ImprimirTexto(orNormal, 1, 1, 2,10, 2,FDMemEtiquetasId_produto.Value, 0,false);
    FDMemEtiquetas.Next;

    if (not FDMemEtiquetas.Eof) then
    begin
      ImprimirTexto(orNormal, 1, 1, 2,15, 38, FDMemEtiquetasDESCRICAO.Value, 0, false);
      ImprimirTexto(orNormal, 2, 1, 2, 2, 40, 'R$');
      ImprimirTexto(orNormal, 2, 1, 2, 2, 42,FormatFloat('#0.00', FDMemEtiquetasPMC.value));
      ImprimirTexto(orNormal, 1, 1, 2,10, 38,FDMemEtiquetasId_produto.Value, 0,false);
      FDMemEtiquetas.Next;
    end;

    if (not FDMemEtiquetas.Eof) then
    begin
      ImprimirTexto(orNormal, 1, 1, 2,15,72, FDMemEtiquetasDESCRICAO.Value, 0, false);
      ImprimirTexto(orNormal, 2, 1, 2, 2,74, 'R$');
      ImprimirTexto(orNormal, 2, 1, 2, 2,79,FormatFloat('#0.00', FDMemEtiquetasPMC.value));
      ImprimirTexto(orNormal, 1, 1, 2,10,72,FDMemEtiquetasId_produto.Value, 0,false);
      FDMemEtiquetas.Next;
    end;

    FinalizarEtiqueta(1, 600);
  end;

  Imprimir(1, 600);
  Desativar;

 

Editado 7 Junho, 2021 por EliasCesar