关于设置Printer打印页面大小的问题？？亟盼！亟盼！

Question

现问题如下：当打印DBGrid中数据时，其结果打印出的东西，只占打印出页面的左上角一小部分。即：打印可以成功，然而打印出的东西太小了，可能用放大镜也看不清楚，如何解决？？亟盼！亟盼！
if PrintDialog1.Execute then
  begin
    if (PageControl1.ActivePage = TabSheet1) then
    begin
      PrintDialog1.Options := [poPrintToFile, poPageNums, poSelection, poWarning, poHelp, poDisablePrintToFile];
      with Printer do
      begin
        BeginDoc;
        DBGrid1.PaintTo(Handle, 10, 10);
        EndDoc;
      end;
    end;
end;

Answer 1

用QR做张报表就是啊，报表的数据集就用DBGRID显示的数据集就是了还简单些，就用DBGridEH显示，用PrintDBGridEH打印