急急急！！ 使用quickreport，在同一个程序中如何改变纸张类型设置？万分感激！！！！1

Question

如题！

Answer 1

用QReport控件怎么进行纸张大小（自定义纸张的设置）？
怎么设置横向与竖向打印？都直接用程序实现，用QReport? 
主要解答者: happyjoe 提交人: happyjoe 
感谢: GreenWaterBlueSky、zswang 
审核者: windindance 社区对应贴子: 查看 
     A :  1.引用QRPrntr单元：  
 
//把所有的纸张类型放到一combobox中  
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  
       begin  
           QuickRep1.QRPrinter  :=  TQRPrinter.Create;  
           QuickRep1.QRPrinter.PrinterIndex  :=  -1;  
           QuickRep1.Page.PaperSize  :=  I;  
           break;  
       end;  
end;  
 
设置横向与竖向打印  
   AReport.Page.Orientation  :=  poPortrait  
 
   AReport.Page.Orientation  :=  poLandScape;  
 
//参考  
http://www.csdn.net/Expert/TopicView1.asp?id=799745