如何修改打印预览界面？（急急急！！！）

Question

如何修改打印预览界面

Answer 1

找到delphi/lib目录下的相应预览文件，带view或priew的，改之，保存，重新编译运行一下
我试过，quickrep的和fr的

Answer 2

自定义快速报表的打印预览窗口---- 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