procedure TFrmPrincipal.Button2Click(Sender: TObject);
var
  vLeft, vTop: Integer;
begin
   vLeft:=0;
   vTop:=0;
   with Etiqueta do
   begin
     DPI           := TACBrETQDPI(0);
     Modelo        := TACBrETQModelo(StrToInt(printermodel));
     Porta         := port;
     LimparMemoria := True;
     Ativar;

       ImprimirCaixa(20 + Top, 10 + Left,999, 700 -25,10,10);
       ImprimirTexto(orNormal, 3, 1, 1, 655 + Top - 25, 30 + Left, 'PRODUTO', 0, False);
       ImprimirTexto(orNormal, 3, 1, 1, 655 + Top - 25, 700 + Left - 30, RightM('1452574',14), 0, False);
       ImprimirCaixa(645 + Top -25,20 + Left,979,80,70,70);
       ImprimirTexto(orNormal, 3, 1, 1, 600 + Top -25, 30 + Left, Copy(RemoveAcentos('MALHA CARDADA 100% ALGODÃO'), 1, 40), 0, False);
       ImprimirTexto(orNormal, 3, 1, 1, 560 + Top -25, 30 + Left, Copy(RemoveAcentos('CANO LONGO'), 41, 40), 0, False);
       ImprimirTexto(orNormal, 2, 1, 1, 455 + Top -25, 30 + Left, Copy(RemoveAcentos('NF-7487'), 1, 50), 0, False);
       ImprimirCaixa(410 + Top,20 + Left,979,100,70,70);
       ImprimirTexto(orNormal, 4, 1, 1, 420 + Top, 30 + Left, '                        Peso       ', 0, False);
       ImprimirTexto(orNormal, 4, 1, 1, 355 + Top, 30 + Left, RightM('', 6)+'       '+RightM('', 5)+'   '+'   '+RightM('14,784', 6)+' Kg');
       ImprimirLinha(340 + Top,20 + Left,979,6);
       ImprimirBarras(orNormal, 'F', '5', '5', 160 + Top, 385 + Left, '1119990000019', 170, becNAO);
       ImprimirTexto(orNormal, 3, 1, 1, 115 + Top, 375 + Left, '1119990000019');
       ImprimirLinha(100 + Top,375 + Left,620,6);
       CarregarImagem(ExtractFilePath(Application.ExeName)+'\logo.bmp', 'IMAGE');
       ImprimirImagem(1,70 + Top,40 + Left,'IMAGE');
       ImprimirTexto(orNormal, 2, 1, 1, 40 + Top, 375 + Left, '10.677.149/0001-63'+' / '+'6578445-87');
       ImprimirTexto(orNormal, 2, 1, 1, 70 + Top, 375 + Left, RemoveAcentos('Caruaru'+' - '+'PE'));
       Imprimir(1, 600);
   end;
end;