Imprimir Etiquetas

Question

Ola Amigos,

To eu aqui denovo pedindo help, agora com impresao de etiquetas no fortesreport, se alguem tiver algum material para me ajudar, fico muito agradecido, estou iniciando no delphi e logo quero poder ajudar os outros.

Blz, Obrigado.

Aroldo Zanela · Answer

Colega,Use uma banda DetailGrid e ajuste a propriedade ColCount para a quantidade de colunas de etiquetas....

Marcosrocha · Answer

O DetailGrid acompanha o DataSource do RLReport. Se voc� for jogar os dados do Banco de Dados, voc� pode colocar um RLDBText dentro do DetailGrid e ligar seu DataSource no DS da Query na qual voc� est� fazendo o Select.

Pattarelli · Answer

Obrigado amigos, vou tentar o que me passaram, valew.T+...

Pattarelli · Answer

McBlade, obrigado deu certo sua dica, so que agora estou com outra duvida presciso imprimir uma mesma imformacao em varias etiquetas como posso fazer? crio um arquivo temporario que acha?

se puder me dar uma dica , obrigado.

O DetailGrid acompanha o DataSource do RLReport. Se voc� for jogar os dados do Banco de Dados, voc� pode colocar um RLDBText dentro do DetailGrid e ligar seu DataSource no DS da Query na qual voc� est� fazendo o Select.

Marcosrocha · Answer

Uma mesma informa��o em v�rias etiquetas? Do tipo que cada etiqueta tem um dado diferente mas todas possuem um texto X?
Se a informa��o que voc� precisa imprimir em cada etiqueta for est�tica, ou seja, ser sempre a mesma, voc� pode coloc�-la num RLLabel e caso haja necessidade de alter�-la na execu��o do Relat�rio, voc� pode faz�-lo no BeforePrint do DetailGrid.

Vitor Alcantara · Answer

Isso mesmo. Crie uma tabela tempor�ria com um ClientDataSet por exemplo, dai � s� fazer um la�o pra fazer os inserts nescess�rios.

Ex.

var
  Espacos,QtdEtiq,x:Integer;
begin
  //Pergunta quantos espa�os em branco deseja deixar.
  Espacos := StrToInt(Inputbox(�Informe a quantidade de espa�os em branco�,�Qtd. Espa�os em branco.�, 0));
  
  for x := 0 to Esacos do
  begin
      ClientDataSet1.Append;
      ClientDataSet1Texto.AsString := � �;
      ClientDataSet1.Post;
  end;
  
  //Pergunta quantas etiquetas deseja fazer igual
  QtdEtiq := StrToInt(InputBox(�Informe a quantidade de etiquetas.�,�Qtd. de etiquetas.�,1));
  
  for x := 0 to QtdEtiq do
  begin
     ClientDataSEt1.Append;
     ClientDataSet1Texto.AsString := �Texto da etiqueta.�
     ClientDataSEt1.Post;
  end;
  
  RlReport1.Preview;
end;

Pattarelli · Answer

Obrigado pessoal pelas dicas vou tentar e se der certo posto denovo. Valew...

Pattarelli · Answer

Valew pessoal , todas as dicas foram de grande valor. Obrigado....

F�rum Imprimir Etiquetas #352504