要打印的效果 就是一张表格，连直线都有。up有分

Question

急着要在delphi中打印报表的时候
连直线的效果都可以打印出来
谢谢

Answer 1

下面是一个比较直接的方法.
用form.Print 命令在form上作出你要打印的内容,在此form上添加一Button控件如button1编写button1代码procedure Tform1.Button1Click(Sender: TObject);
begin
  if  messagedlg('真的要打印吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
    begin
    form1.Color:=clwhite;    //设置背景色,white为纸张的原色
    button1.Visible:=false;   //隐藏button1按钮
    form1.Print;              //打印
    end
    else
    end;

Answer 2

可我现在就是觉得在form上面画出一个表格的样子
很难
所以就想请教一下怎么样才能够很容易的实现
比如说用什么控件
或者说 有什么第三方控件
表格是有边框的
而且里面都是一行一列的区分好了的
谢谢

Answer 3

用QReport就可以
QrBand可以打印横线，在字段之间加QrShape设置成竖线，长度和QrBand宽度一样

Answer 4

强烈推荐FastReport,全中文恨好用，画线对他来说简直是小Case,而且当你的单元格扩充时他还自动加长。如果你需要的话，准备一个大油箱，我发给你..不过..这个..分数嘛.....嘿嘿嘿...:)

Answer 5

我见过有人在form里添加Panel控件然后将Height属性设为1,color属性设为black就成直线了,希望对你有帮助.