lazarus 如何使用自带控件实现DBGrid打印预览功能

zaciig

lazarus自带的组件可以实现DBGrid打印预览功能吗？怎么实现？或者有什么组件可以实现，高手指点下

zaciig

没人解答下，请问下 lazreport怎么使用，这个组件不是用打印预览功能吗

gbm_pgs

lazreport 就是一组报表组件，是从FastReport转过来的，如果用过FastReport 就很简单了！

zaciig

恩，fastreport是很简单，可是我这边不知道什么情况，总是装不上，编译的时候提示 cannot find unit libc used by rlutils，我的是在ubuntu下面的是组件不支持linux吗

artpaper123

转帖自 CSDN

这类问题，google上搜索，很多答案的。

procedure   TForm1.Button2Click(Sender:   TObject);   
const   
　　   LeftBlank=1;   //定义页边距，单位厘米   
　　   RightBlank=1;   
　　   TopBlank=1;   
　　   BottomBlank=1;   
var   
　　   PointX,PointY:integer;   
　　   PointScale,PrintStep:integer;   
　　   s:string;   
　　   x,y:integer;   
　　   i:integer;   
begin   //获取当前打印机的分辨率   
        PointX:=Trunc(GetDeviceCaps(Printer.Handle,LOGPIXELSX)/2.54);   
　　PointY:=Trunc(GetDeviceCaps(Printer.Handle,LOGPIXELSY)/2.54);   

　　//根据打印机和屏幕的分辨率计算出从屏幕转换到打印机的比例　   

        PointScale:=Trunc(GetDeviceCaps(Printer.Handle,LOGPIXELSX)/Screen.PixelsPerInch+0.5);   
　   
      //   横向打印   
      printer.Orientation:=poLandscape;   

　　   //打印的字体和大小   
　　printer.Canvas.Font.Name:=′宋体′;   
　　printer.canvas.Font.Size:=10;   

　　   //根据字体的大小确定每行的高度   
　　s:=′漳州市刑警支队′;   
　　PrintStep:=printer.canvas.TextHeight(s)+16;   

　　   //打印的起点位置   
　　x:=PointX*LeftBlank;   
　　y:=PointY*TopBlank;   

　　   //DataSource1是DBGrid1所连接的数据源   

　　if   ((DataSource1.DataSet).Active=true)   and   ((DataSource1.DataSet).RecordCount〉0)   
        then   
　　begin   
　　printer.BeginDoc;                                   
　　(DataSource1.DataSet).First;     
　　while   not   (DataSource1.DataSet).Eof   do   
　　begin   
          //打印DBGrid中的所有列   
　　   for   i:=0   to   DBGrid1.FieldCount－1   do   
　　   begin   
　　     //假如所要打印的列超出了打印范围，则忽略该列   
　　       if   (x+DBGrid1.Columns.Items.Width*PointScale) <=(Printer.PageWidth－PointX*RightBlank)   then   
　       　begin   //画表格线   
                    //每页的第一行打印表头   
    　             Printer.Canvas.Rectangle(x,y,x+DBGrid1.Columns.Items.Width*PointScale,y+PrintStep);   
　                 if   y=PointY*TopBlank   then   
　　                 Printer.Canvas.TextOut(x+8,y+8,DBGrid1.Columns.Title.Caption)   
　　             else   
　　                 Printer.Canvas.TextOut(x+8,y+8,DBGrid1.Fields.asString);
              end;   //计算下一列的横坐标   
        　   x:=x+DBGrid1.Columns.Items.Width*PointScale;   
　　   end;   

    　   if   not   (y=PointY*TopBlank)   then   
          (DataSource1.DataSet).next;   

  　　x:=PointX*LeftBlank;   
　       y:=y+PrintStep;   
        //换页！   
　     if   (y+PrintStep)> (Printer.PageHeight－PointY*BottomBlank)   then   
　     begin   
　　   Printer.NewPage;   
　　   y:=PointY*TopBlank;   
　　   end;   
　   end;   

　   printer.EndDoc;   
　　   (DataSource1.DataSet).First;   
　　   Application.MessageBox(′打印完成′,′打印′,32);   
　　end;   
end;

zaciig

谢谢 我试试

猫工

我用FortesReport组件可以，这个组件本社区里有，可以用

zaciig

为什么我的安装还是有问题呀