procedure TFrmPacoteProdutos.BtnPrintClick(Sender: TObject);
var
  vLeft, vTop: Integer;
begin
   vLeft:=0;
   vTop:=0;
   with ACBrETQ do
   begin
     ImprimirCaixa(50 + vTop,10 + vLeft,999,700,10,10);
     ImprimirTexto(orNormal, 3, 1, 1, 655 + vTop, 30 + vLeft, 'PRODUTO', 0, True);
     ImprimirTexto(orNormal, 3, 1, 1, 655 + vTop, 700 + vLeft - 30, RightM('1452574',14), 0, True);
     ImprimirCaixa(645 + vTop,20 + vLeft,979,80,70,70);
     ImprimirTexto(orNormal, 3, 1, 1, 600 + vTop, 30 + vLeft, Copy(RemoveAcentos('MALHA CARDADA 100% ALGODÃO'), 1, 40), 0, True);
     ImprimirTexto(orNormal, 3, 1, 1, 560 + vTop, 30 + vLeft, Copy(RemoveAcentos('CANO LONGO'), 41, 40), 0, True);
     ImprimirTexto(orNormal, 2, 1, 1, 485 + vTop, 30 + Left, Copy(RemoveAcentos('NF-7487'), 1, 50), 0, True);
     ImprimirCaixa(410 + vTop,20 + vLeft,979,100,70,70);
     ImprimirTexto(orNormal, 4, 1, 1, 420 + vTop, 30 + vLeft, '                        Peso       ', 0, True);
//     TblPro.Locate('Referencia', TblPecasProduto.Value, []);
     ImprimirTexto(orNormal, 4, 1, 1, 355 + vTop, 30 + vLeft, RightM('', 6)+'       '+RightM('', 5)+'   '+'       '+RightM('14,784', 6)+' '+'Kg');
     ImprimirLinha(340 + vTop,20 + vLeft,979,6);
     ImprimirBarras(orNormal, 'F', '5', '5', 160 + vTop, 385 + vLeft, '1119990000019', 170, becNAO);
     ImprimirTexto(orNormal, 3, 1, 1, 115 + vTop, 375 + vLeft, '1119990000019');
     ImprimirLinha(100 + vTop,375 + vLeft,620,6);

     CarregarImagem(ExtractFilePath(Application.ExeName)+'\logo.bmp', 'IMAGE');

     ImprimirImagem(1,70 + vTop,40 + vLeft,'IMAGE');

     ImprimirTexto(orNormal, 2, 1, 1, 40 + vTop, 375 + vLeft, '10.677.149/0001-63'+' / '+'6578445-87');
     ImprimirTexto(orNormal, 2, 1, 1, 70 + vTop, 375 + vLeft, RemoveAcentos('Caruaru'+' - '+'PE'));

     Imprimir(1, 600);
   end;
end;