如何有效地使用TPrintdialog？

Question

您好几个月前我遇到过这个问题，今天有时间看看如何做到这一点。我有一个TDbgrid，我在其中应用过滤器来过滤Firebird数据库的内容。我希望在过滤后打印出内容。我研究和研究了这个我到目前为止所得到的：

我在页面上放了一个Tprintdialog组件和一个Tbutton，并在其上有这个代码：

procedure Tviewrecord.Button3Click(Sender: TObject);
begin
 with PrintDialog1.Create(nil) do
    try
      if Execute then
        Dbgrid4.print;
    finally
      Free;
    end;

问题在于，当我编译时，“print：部分代码”出现错误。

感谢。

Answer 1

您的代码无法编译，因为TDBGrid控件没有Print method。您需要自己编写打印代码，或者找到具有打印功能的第三方组件。