过年散分：顺便带一个问题（位图打印问题）（500分相送见者有分）

Question

问题如下：
   我要打印条形码，条形码已经生成在屏幕上的一个image里面。
   数据库的字段包括：
   制单  工序  票号  件数  尺码    条形码
 打印的时候我要把条形码的图形达到对应的“条形码”字段的上。
   打印效果：
   制单  工序  票号  件数  尺码    条形码
   1234   5     454  4     M     ||||||||（图形，来自image）
这个问题解决了绝对是500分相送，下次另开帖子给分。各位告诉请指点。

Answer 1

可以在WWW。51DELPHI。COM下载FASTREPORT

Answer 2

你是说你的条形码是动态生成的吧！不过，楼上说的那个FastReport好象自带了条形码呢！即使没有用FastReport也比用QucikReport要强，它可是允许在报表中编程呢！

Answer 3

TO： cg1120(代码最优化－§新年祝福你，好运伴着你
TO： yczyk($我是一只菜虫，向大家学习呢$) 
我现在在用FastReport，但是我对它不是很熟悉，麻烦指点一下。

Answer 4

在FastReport里面怎么插入字段啊？它的条形码图形会不会跟者数值动态改变
    呢？

Answer 5

网上有FASTREPORT的中文帮助文档，找一个来看看

Answer 6

新年快乐！
fastreport的条形码控件就是根据字段的值改变的呀

Answer 7

procedure TForm1.Button1Click(Sender: TObject);
var
  ScaleX, ScaleY: Integer;
  R: TRect;begin
  Printer.BeginDoc;  // **
  with Printer do
  try
    ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
    ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
    R := Rect(0, 0, Image1.Picture.Width * ScaleX,
      Image1.Picture.Height * ScaleY);
    Canvas.StretchDraw(R, Image1.Picture.Graphic);  // **
  finally
    EndDoc;  // **
  end;
end;