Rave - Imprimindo codigos de barras

Top  Previous  Next

uses RpBars;

 

Rv: TRvSystem;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  Rv.Execute;

end;

 

procedure TForm1.RvPrint(Sender: TObject);

var

  Bar: TRpBarsBase;

begin

  Bar := TRPBarsEAN.Create(Sender as TBaseReport);

  Bar.Text := '2007730005723';

  Bar.PrintXY(11);

  Bar.Free;

end;

 

////////////// vários em colunas e linhas

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  Rv.SystemPrinter.Units        := unCM;  // Todas as medidas serao em Centimetros

  Rv.SystemPrinter.MarginTop    := 1;     // 1 Centimetro

  Rv.SystemPrinter.MarginBottom := 1;     // Idem

  Rv.SystemPrinter.MarginRight  := 1;     // Idem

  Rv.SystemPrinter.MarginLeft   := 1;     // Idem

  Rv.Execute;

end;

 

procedure TForm1.RVPrint(Sender: TObject);

var

  Bar: TRpBarsBase;

  L, C, I: Integer;

  Linha, Coluna: Double;

begin

  Bar := TRPBarsCode39.Create(Sender as TBaseReport);

 

  with Sender as TBaseReport do

  begin

    Bar.BarHeight     := 0.7;

    Bar.BarWidth      := 0.03;

    Bar.PrintReadable := False;

    Linha := 1.7;

    for L := 1 to 20 do

    begin

      Coluna := 2.5;

      for C := 1 to 4 do

      begin

        Bar.Text := IntToStr(C) + IntTostr(L);

        Bar.PrintXY(Coluna, Linha);

        Coluna := Coluna + 4.8;

      end;

      Linha := Linha + 1.262;

    end;

    Bar.Free;

  end;

end;