1、用QReport控件怎么进行纸张大小（自定义纸张的设置）？2、怎么设置横向与竖向打印？都直接用程序实现，用QReport?

Question

看page属性，
其中Orientation为设置横向与竖向打印

Answer 1

引用QRPrntr单元，
把所有的纸张类型放到一combobox中：
  for PS:=Default to Custom do
    PaperSize.Items.Add(QRPaperName(PS));
给纸张定大小的时候用下面的语句:
  for I:= Default to Custom do
    if QRPaperName(I) = YourSpecifiedPageSize then  //YourSpecifiedPageSize 是从combobox取的text
    begin
      AReport.QRPrinter := TQRPrinter.Create;
      AReport.QRPrinter.PrinterIndex := -1;
      AReport.Page.PaperSize := I;
      break;
    end;
设置横向与竖向打印
  AReport.Page.Orientation := poPortrait  AReport.Page.Orientation := poLandScape;

Answer 2

//参考
http://www.csdn.net/Expert/TopicView1.asp?id=799745

Answer 3

把上面改一下，引用QRPrntr单元：
procedure TForm1.FormCreate(Sender: TObject);
var
  PS : TQRPaperSize;
begin
  for PS:=Default to Custom do
    ComboBox1.Items.Add(QRPaperName(PS));
end;procedure TForm1.Button1Click(Sender: TObject);
var
  i: TQRPaperSize;
begin
  for I:= Default to Custom do
    if QRPaperName(I) = ComboBox1.Text then  //YourSpecifiedPageSize 是从combobox取的text
    begin
      QuickRep1.QRPrinter := TQRPrinter.Create;
      QuickRep1.QRPrinter.PrinterIndex := -1;
      QuickRep1.Page.PaperSize := I;
      break;
    end;
end;

Answer 4

AReport.Page.Orientation := poPortrait不对，poPortrait未定义的标识符