【结贴】docview预览打印的方法是在哪里实现的？**

alvenz

还是不行，直接崩溃！！！！
我是在“业务模型\系统空间\用户界面基础\界面\工具栏\打印预览”里测试了
还是不能触发？
我们有自己的应用界面？
可是在我们自己的应用界面里的工具栏进行测试，也一样触发不到！

jiahaiming

一定要用当前界面方案使用的打印预览工具栏。我用的是“业务模型\系统空间\简洁风格”
unit PRINTPREVIEWBAR;

interface

uses
  Business.System, Business.Model, Business.Forms;

type
  TPRINTPREVIEWBAR = class(BASETOOLBAR.TPrintPreviewBar)
    procedure actPrintExecute(Sender: TObject);
  private
    FBeforePrint: TNotifyEvent;
  public
    property BeforePrint: TNotifyEvent read FBeforePrint write FBeforePrint;
  end;

implementation

procedure TPRINTPREVIEWBAR.actPrintExecute(Sender: TObject);
begin
  if Assigned(FBeforePrint) then
    FBeforePrint(actPrint);
  jsDialogs.ShowMsg('beforePrint', '');
  Inherited;
end;

end.

alvenz

谢谢，在2936上面测试成功！
但在2401上面不行，呵！
结贴吧，谢谢！