Impressão de etiquetas ...

Delphi

15/10/2004

Bom Dia, gostaria de saber como posso imprimir etiquetas por coluna e linha aproveitando toda a folha de etiquetas.

Obrigado.


Rscrj

Rscrj

Curtidas 0

Respostas

Xanatos

Xanatos

15/10/2004

Bom se voce quer uma impressão individual de etiquetas ...eu ja fiz e nao sei se é a melhor maneira mas foi rapido e funciona.

usei o Quick mesmo e dividi em duas colunas o report, colocando QRShape de acordo com a quantidade de etiquetas. Na hora de imprimir o usuario seleciona a etiqueta na tela com mouse ( a coluna e a linha q quer imprimir) e assim posiciono nos QRLabels atribuindo antes o Tag = 2 para identificalos e assim nao ter que fazer referencia a cada componente. Olha o codigo:

procedure TFQREtiquetaIndividual.QuickRepBeforePrint(
  Sender: TCustomQuickRep; var PrintReport: Boolean);
var
  i: integer;
  Left, Width, Top: integer;
begin
  Top:= 0;
  Left:= 0;
  if Etiqueta in [1..7] then
  begin
    Top:= Top + (128*(Etiqueta-1)); // Muda o Top de acordo com a posicao da Etiqueta
  end
  else if Etiqueta in [8..14] then
  begin
    Left:= 400;
    Top:= Top + (128*(Etiqueta-8)); // Muda o Top de acordo com a posicao da Etiqueta
  end;


  for i:= 0 to FQREtiquetaIndividual.ComponentCount - 1 do
  begin
    if Components[i].Tag = 2 then
    begin
      (Components[i] as TQRLabel).Left := (Components[i] as TQRLabel).Left + left;
      (Components[i] as TQRLabel).Top := (Components[i] as TQRLabel).Top + Top;
    end;

  end;
end;


Espero que seja util e seja isso que vc queria.


GOSTEI 0
POSTAR