求关于打印DBGrid和StringGrid数据的源码？谢谢

Question

呵呵，怎么碰到和我的问题一样啊，现在我正在解决表格线的问题，打印DBGrid的内容没有问题了。这个部分的代码你先要吗？

Answer 1

To sundayBoys
  可以发一份给我么？或者帖出来。谢谢。
  [email protected]

Answer 2

我也要啊，急需急需[email protected]

Answer 3

dynamic create with the dbgrid column , it easy only taken time to judge the
position ,  i write a component , only use it but too simpe,if you want i send you!

Answer 4

i can't find you email address !?

Answer 5

输出到excel二次处理，csdn有原码

Answer 6

To chinanet:
    哪里有源码？

Answer 7

我也想要啊，
[email protected]

Answer 8

我页想要 ： [email protected]

Answer 9

beign
  Printer.BeginDoc ;
  pringer.canvas.lineto(x,y) //画线
  pringet.canvas.textout(...)//打印文字
  Printer.EndDoc;  
end;

Answer 10

To TFPE:
  [email protected] qiandeng:
   我也知道是这样做，但是不知道怎样去定位画线的位置x,y,表格有宽，高，怎样去很好的控制,要画行表格，要画列表格。

Answer 11

E文好的仔细读读，是在一个E文网站上找到的
Creating a Quick Report layout at runtime to print DBGrid's contents First make a new form, name it as TGridReport and drop a TQuickRep on it. 
Rename you QuickRep to GridRep. Then make a Preview that receives a DBGrid as parameter, just like this: procedure TGridReport.Preview(Grid: TDBGrid); 
var 
  i, CurrentLeft, CurrentTop : integer; 
  BMark: TBook; 
begin 
  GridRep.Dataset:=Grid.DataSource.DataSet;   if not GridRep.Bands.HasColumnHeader then 
    GridRep.Bands.HasColumnHeader:=true;   if not GridRep.Bands.HasDetail then 
    GridRep.Bands.HasDetail:=true;   GridRep.Bands.ColumnHeaderBand.Height:=Abs(Grid.TitleFont.Height) + 10; 
  GridRep.Bands.DetailBand.Height:=Abs(Grid.Font.Height) + 10; 
  CurrentLeft := 12; 
  CurrentTop := 6;   {Record where the user stopped in the DBGrid} 
  BMark:=Grid.DataSource.DataSet.GetBook; 
  {Don't let the grid flicker while the report is running} 
  Grid.DataSource.DataSet.DisableControls; 
  try 
    for i:=0 to Grid.FieldCount - 1 do 
    begin 
      if (CurrentLeft + Canvas.TextWidth(Grid.Columns[i].Title.Caption)) > 
        (GridRep.Bands.ColumnHeaderBand.Width) then 
      begin 
        CurrentLeft := 12; 
        CurrentTop := CurrentTop + Canvas.TextHeight('A') + 6; 
        GridRep.Bands.ColumnHeaderBand.Height := GridRep.Bands.ColumnHeaderBand.Height + 
          (Canvas.TextHeight('A') + 10); 
        GridRep.Bands.DetailBand.Height := GridRep.Bands.DetailBand.Height + 
          (Canvas.TextHeight('A') + 10); 
      end; 
      {Create Header with QRLabels} 
      with TQRLabel.Create(GridRep.Bands.ColumnHeaderBand) do 
      begin 
        Parent := GridRep.Bands.ColumnHeaderBand; 
        Color := GridRep.Bands.ColumnHeaderBand.Color; 
        Left := CurrentLeft; 
        Top := CurrentTop; 
        Caption:=Grid.Columns[i].Title.Caption; 
      end; 
      {Create Detail with QRDBText} 
      with TQRDbText.Create(GridRep.Bands.DetailBand) do 
      begin 
        Parent := GridRep.Bands.DetailBand; 
        Color := GridRep.Bands.DetailBand.Color; 
        Left := CurrentLeft; 
        Top := CurrentTop; 
        Alignment:=Grid.Columns[i].Alignment; 
        AutoSize:=false; 
        AutoStretch:=true; 
        Width:=Grid.Columns[i].Width; 
        Dataset:=GridRep.Dataset; 
        DataField:=Grid.Fields[i].FieldName; 
        CurrentLeft:=CurrentLeft + (Grid.Columns[i].Width) + 15; 
      end; 
    end;     lblPage.Left := bdTitle.Width - lblPage.Width - 10; 
    lblDate.Left := bdTitle.Width - lblDate.Width - 10;     {After all, call the QuickRep preview method} 
    GridRep.PreviewModal; {or Preview if you prefer}   finally 
    with Grid.DataSource.DataSet do 
    begin 
      GotoBook(BMark); 
      FreeBook(BMark); 
      EnableControls; 
    end; 
  end; 
end; 

Answer 12

很关注！
如果有打印StringGrid和DBGrid的源程序请也给我一份
[email protected]  请注明id和别名！收到后每个程序20分

Answer 13

我也在找这个
谁帮忙给我也发一个
[email protected]

Answer 14

上边的代码十分好用，只要按照上E文所述建一个打印预览窗体，然后在要打印dbgrid的窗体上调用这一过程就好了，记得dbgrid要做参数啊

Answer 15

To zh430(伊一逸)
    你给的代码自己有用过么？
    我编译不通过 ，说lblpage,bdTitle 没定义。我不清楚这两个怎么定义。要加入什么单元？？？
    谢谢。

Answer 16

把你的E_mail留下，我把整个窗体发给你

Answer 17

lblpage ,bdtitl是什么东东??????