Setting space between each printed bar code
Hello,
For printing a code bar list I have this code:
This code works fine so, I need to make space between each printed bar code. This space is a value entered in a TEdit by the user in order to set the desired space according to the space in the paper. I tried the top property but it doens't works for me.
Can you help me please ?
And sorry for my english
For printing a code bar list I have this code:
var
  Page : TfrxReportPage;
  Band : TfrxBand;
  Bar  : TfrxBarCodeView;
  I : Integer;
Top:integer
begin
      frxReport1.Clear;
      Page := TfrxReportPage.Create(frxReport1);
      Page.CreateUniqueName;
      Page.SetDefaults;
      Band:= TfrxReportTitle.Create(Page);
      Band.CreateUniqueName;
      Band.Top:= 0;
      Band.Height:= 20;
   Â
      for I := 0 to BarCodeCount do
      begin
        Bar := TfrxBarCodeView.Create(Band);
        Bar.CreateUniqueName;
        Bar.Text:= datamodule1.art_anxCODE_BARRE.asString;
        Bar.Height:= BarCodeHeight;
    //    Bar.BarType:=bcEAN13;
       Â
        Bar.Left:= BarCodeLeft;
        Bar.Top:=Top+10;
        Top:=Top+StrToInt(Edit1.Text);
        Bar.Align:= baNone;
   Â
      end;
end;
This code works fine so, I need to make space between each printed bar code. This space is a value entered in a TEdit by the user in order to set the desired space according to the space in the paper. I tried the top property but it doens't works for me.
Can you help me please ?
And sorry for my english
Comments
probably a solution: insert a blank memo (with dynamical height) or other object between the barcodes?
greetz