Criar etiqueta no Delphi FastReport

Criar etiqueta no Delphi FastReport

  março 23, 2018    Ana Paula Novello

---

Vamos utilizar dentro do fr3:

• 1 - BarCode
• 1 - MasterData;
• 1 - TFrxMemoView

Ajustar as propriedades ColumnsGap, Columns, ColumnsWidth de acordo com o tamanho das etiquetas que vocês irão necessitar

No BarCode tem que ser definido o BarType, e os campos de conexão com o banco de dados;

Normalmente no OnBeforePrint eu utilizo esse código ( Para não exibir o código de barras caso esteja em branco para não aparecer um código invalido ).

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
  BarCode2.Visible :=  <> '';
end;

Vamos criar um TForm nele vamos colocar

• 3 - TBitBtn;
• 1 - TClientDataSet; ( Ou no caso de vocês uma tabela de conexão com o banco de dados )
• 1 - TfrxReport;
• 1 - TfrxDBDataset;
• 1 - TfrxBarCodeObject;

Vamos colocar em tela assim

Agora vamos criar um função para verificar se o arquivo .fr3 existe

function TFSistema.Ler_Arquivo(AArquivo: String): Boolean;
var
  lCaminho: String;
begin
  lCaminho := ExtractFilePath(Application.ExeName) + 'Relatórios\' + AArquivo;
  Result := FileExists(lCaminho);
  if Result then
    frxReport.LoadFromFile(lCaminho)
  else Exception.Create('A pasta relatórios não pôde ser criada!' + SlineBreaK +
     'Verifique as permissões de acesso com o Administrador da rede!');
end;

No evento de OnClick do botão Visualizar colocar o código abaixo e acrescenta o mesmo evento no do imprimir;

procedure TFSistema.btnVisualizarClick(Sender: TObject);
begin
  if CDSEtiquetas_Teste.IsEmpty then begin
    Application.MessageBox(Pchar('Seleção sem registros'), Pchar(Caption), MB_ICONINFORMATION + MB_OK + MB_DEFBUTTON1 + MB_SYSTEMMODAL);
    Exit;
  end;
  if Ler_Arquivo('Etiquetas_6x16.fr3') then begin
    frxTable.DataSet := CDSEtiquetas_Teste; {Joga a tabela de etiquetas para o relaório}
    if Sender = btnVisualizar then
      frxReport.ShowReport
    else begin
      frxReport.PrepareReport;
      frxReport.Print;
    end;
  end;
end;

Resultado da impressão 

Exemplo: Download do exemplo