1、打印机设为自定义纸张(宽度、高度设大些)
2、改变QUICKREP的大小即可

解决方案 »

  1.   

      右键单击QuickRep在弹出式菜单中选择<Report Settings>项,进行页面设置即可。最后不要忘记将<Paper Size>项中最右边的选项改为“landscape”。
      

  2.   

    一种思路,具体如果使用看你的:
    uses ..,QRPrntr;
    ..
    ..
    procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
    begin
    quickrep1.Printer.PaperSize:=A4;//假设为A4纸
    end;