在delphi中如何不用控件实现打印预览dbgrid中的东东？？(100分)

有谁可以指导一下，最好有源码，谢谢

使用exlib来代替dbgrid吧，功能更强大，而且可以预览。
当然更强大功能的是QuantumGrid，配合ExpressPrintSystem，十分爽，特别酷。
ehlib在delphi.mycahgnshu.com有下载的，

//不好意思，看错了题，你说不用控件的。

那就动态创建报表，按照DBGRID的样式来显示。

sorry ，用动态建立报表不是还要用到，qreport控件，我的意思事能够直接预览DBGrid
里面的东东

你是说直接打印dbgrid, 还是也要预览,如果要预览,至少也要用TImage才行.

ok那你能不能把用TImage实现的代码，给我一份，一定不会亏待你的，麻烦您了

用 画 布（Tcanvas）
对 象 封 装 了Windows 的 大 部 分 图 形
输 出 功 能， 这 使 得 我 们 可 以 通 过 他 以 更 直 观 的
方 式 和Windows 的 屏 幕 打 交 道，
而 不 必 关 心 令 人 头 疼 的Windows API 函 数。 下 面 的
一 小 段 程 序 就 可 以 实 现 整 个
屏 幕 的 图 象 拷 贝 了。
var //变量声明
Fullscreen:Tbitmap;

FullscreenCanvas:TCanvas;
dc:HDC;
//-------------------------------------------------------
-----
DC := GetDC (0);
//取得屏幕的 DC，参数0指的是屏幕
FullscreenCanvas := TCanvas.Create;
//创建一个CANVAS对
象
FullscreenCanvas.Handle := DC;
//将屏幕的DC赋给
HANDLE
Fullscreen.Canvas.CopyRect
(Rect (0, 0, screen.Width,screen.Height),
fullscreenCanvas,
Rect (0, 0, Screen.Width, Screen.Height));
//把整个屏幕复制到BITMAP中
FullscreenCanvas.Free;
//释放CANVAS对象
ReleaseDC (0, DC);
//释放DC
//SCREEN对象是DELPHI预先定义的屏幕对象，直接使用就行了。
//你把dbgrid全屏幕显示就行.

接受答案了.

hbezwwl,我提了一个新的问题，你去看看吧，希望能给一个具体的实现，不好意思，