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

[blackfiles]

要求以表格形式打印出来,有表格线。
Printer.BeginDoc ;
//How To Do
Printer.EndDoc;

[blackfiles]

gz

[TFPE]

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!

[TFPE]

i can't find you email address !?

[lwk_hlj]

我也想要啊，
[e-mail]

[qq_13439718]

vba excel输出

[DD88]

我页想要 ： [e-mail]

[qiandeng]

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

[cslegend]

我也要
[e-mail]

[chinanet]

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

[blackfiles]

To chinanet:
哪里有源码？

[torble]

呵呵～

[blackfiles]

To TFPE:
[e-mail]

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

[zh430]

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: TBookmark;
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.GetBookmark;
{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
GotoBookmark(BMark);
FreeBookmark(BMark);
EnableControls;
end;
end;
end;

[路人丁]

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

[logapi]

我也在找这个
谁帮忙给我也发一个
[e-mail]

[zh430]

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

[zhbvictor]

gz

[blackfiles]

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

[zh430]

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

[flysky]

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