关于自己写打印报表的问题

Question

用的是D5，quickreport极不好用
以前曾经看到过说有人自己实现打印的
高手赐教一下
主要是觉得quickreport上的那几个按钮恶心

Answer 1

可以自定义quickreport的预览窗口。

Answer 2

自己做一个这样的控件，可以继承于quickreport

Answer 3

有能力的话自己写一个预览窗口。
不行的话用Fast Report是个好方法！

Answer 4

to  fancier(OP&&(C/C++))、Wally_wu(韦利) :
可不可以说说怎样的实现方法

Answer 5

呵呵
我告诉你阿
自己写一个EXCEL表阿，然后用delphi操作阿！
用EXCEL想做什么样的报表都可以阿？
我是高手
delphi操纵EXCEL
会吗？

Answer 6

用f1book
delphi的控件activex页

Answer 7

下面是找到的资料自定义快速报表的打印预览窗口---- Quick Report 2.0 中 提 供 的 默 认 打 印 预 览 窗 口 是 英 文 界 面 的， 如 果 开 发 的 中 文 软 件 中 带 有 这 种 英 文 显 示， 不 免 有 些 小 小 的 缺 憾。 因 此 有 必 要 实 现 中 文 界 面 的 打 印 预 览 窗 口。 但 是Delphi 提 供 的 源 代 码 中 并 没 有 打 印 预 览 窗 口 的.PAS 源 文 件， 这 就 无 法 直 接 修 改 源 码， 只 能 全 部 自 己 编 程 实 现。 经 多 次 实 践， 笔 者 模 仿 实 现 了 与 默 认 预 览 窗 口 外 观 类 似， 功 能 相 同 的 打 印 预 览 窗 口。 步 骤 如 下：
---- 1. 新 建 一 个 窗 体， 设 置Name 为MyPreview。---- 2. 在 窗 体 上 添 加 一Toolbar 控 件， 模 仿 默 认 预 览 窗 口 创 建 相 应 的Toolbutton， 并 设 置 各 按 钮 的Hint 提 示。---- 3. 添 加 一Panel 控 件， 对 齐 方 式 置 为alBottom。 再 在 此Panel 上 放 一ProgressBar( 左 对 齐) 和Panel( 右 对 齐)， 分 别 显 示 报 表 装 载 进 度 和 其 他 提 示 信 息。---- 4. 添 加QRPreview 控 件， 对 齐 方 式 置 为alClient。---- 5. 添 加OpenDialog， 设 置Filter 属 性 为*.QR； 添 加SaveDialog， 设 置Filter 属 性 为*.QR|*.TXT|*.HTM|*.CSV， 设 置DefaultExt 属 性 为*.QR。---- 6. 双 击 各 个Toolbutton， 输 入 相 应 代 码。---- 可 以 按 以 下 方 法 调 用 自 定 义 预 览 窗 口。
---- 重 载TQuickRep 的OnPreview 事 件， 输 入 如 下 代 码：procedure TRptForm.RptFormPreview(Sender: TObject);beginwith TMyPreview.Create(Application) dobeginQRPreview1.QRPrinter := TQRPrinter(Sender);CurRep := self;Show;end;end;
附 各 成 员 方 法 的 具 体 实 现：unit Myprv;
interfaceusesWindowsMessagesSysUtilsClassesGraphicsControlsFormsDialogsComCtrlsToolWinqrprntrQuickrptStdCtrlsExtCtrlsqrextraqrhtml;
typeTMyPreview = class(TForm)QRPreview1: TQRPreview;ToolBar1: TToolBar;(其 余 成 员 变 量 和 成 员 方 法 声 明 略。)private{ Private declarations }FPageCount : integer; // 生 成 报 表 的 总 页 数public{ Public declarations }CurRep : TQuickRep; // 所 预 览 的 报 表procedure UpdatePanelShow;end;
implementation
{$R *.DFM}procedure TMyPreview.UpdatePanelShow;begin // 更 新 显 示Panel2.Caption := ' 第 '+inttostr(QRPreview1.PageNumber)+ ' 页 总 '+inttostr(FPageCount)+' 页';end;
procedure TMyPreview.ToolButton2Click(Sender: TObject);begin //ZoomToFit 缩 放 至 全 屏QRPreview1.ZoomToFit;end;
procedure TMyPreview.ToolButton3Click(Sender: TObject);begin //ZoomTo100% 缩 放 至 实 际 大 小QRPreview1.Zoom:=100;end;
procedure TMyPreview.ToolButton4Click(Sender: TObject);begin //ZoomToWidth 缩 放 至 页 宽QRPreview1.ZoomToWidth;end;
procedure TMyPreview.ToolButton6Click(Sender: TObject);begin //First pageQRPreview1.PageNumber := 1;UpdatePanelShow;end;
procedure TMyPreview.ToolButton8Click(Sender: TObject);begin //prior pageQRPreview1.PageNumber := QRPreview1.PageNumber+1;UpdatePanelShow;end;
procedure TMyPreview.ToolButton7Click(Sender: TObject);begin //next pageQRPreview1.PageNumber := QRPreview1.PageNumber-1;if QRPreview1.PageNumber =0 thenQRPreview1.PageNumber:=1;UpdatePanelShow;end;
procedure TMyPreview.ToolButton9Click(Sender: TObject);begin //Last pageQRPreview1.PageNumber := FPageCount;UpdatePanelShow;end;
procedure TMyPreview.QRPreview1PageAvailable(Sender: TObject; PageNum: Integer);begin //get pagecountFPageCount := PageNum ;UpdatePanelShow;end;
procedure TMyPreview.FormClose(Sender: TObject; var Action: TCloseAction);beginCurRep := nil;Action := caFree;end;
procedure TMyPreview.ToolButton14Click(Sender: TObject);begin //close the windowClose;end;
procedure TMyPreview.ToolButton11Click(Sender: TObject);begin //print setupQRPreview1.QRPrinter.PrintSetup;end;
procedure TMyPreview.ToolButton13Click(Sender: TObject);begin //printQRPreview1.QRPrinter.Print;end;
procedure TMyPreview.ToolButton16Click(Sender: TObject);begin //save buttonif SaveDlg1.Execute thenbeginif (SaveDlg1.FIlterIndex <>1) and (CurRep = nil) thenExit;case SaveDlg1.FilterINdex of1: //--*.QRQRPreview1.QRPrinter.Save(SaveDlg1.FileName);2: //--*.TXTCurRep.ExportToFilter (TQRAsciiExportFilter.Create(SaveDlg1.FileName));3: //--*.HTMCurRep.ExportToFilter (TQRHTMLExportFilter.Create(SaveDlg1.FileName));4: //--*.CSVCurRep.ExportToFilter(TQRCSVExportFilter.Create(SaveDlg1.FileName));end;end;end;
procedure TMyPreview.ToolButton17Click(Sender: TObject);begin //load buttonif OpenDlg1.Execute thenQRPreview1.QRPrinter.Load(OpenDlg1.FileName);end;
procedure TMyPreview.QRPreview1ProgressUpdate(Sender: TObject; Progress: Integer);begin //updage progress barProgressBar1.Position := Progress;end;
procedure TMyPreview.SaveDlg1TypeChange(Sender: TObject);begin //set DefaultExt property of Savedialogwith SaveDlg1 docase FilterIndex of0: DefaultExt := '.QR';1: DefaultExt := '.TXT';2: DefaultExt := '.HTM';3: DefaultExt := '.CSV';end;end;end.//end of Unit

Answer 8

还有这里
　http://www.delphibbs.com/delphibbs/dispq.asp?lid=747900只是提供思路，代码可能编译通不过。

Answer 9

我已搞定了
to fancier(OP&&(C/C++)):
呵呵
你是不是也是从“delphi 编程资源大全”里搞来的啊
刚才去翻了一下光盘，找到了这个东东
不知道哪里有最新的“delphi 编程资源大全”

Answer 10

to yhtang(请明月带问候):  在大富翁搜到的．