急，在线等待：高分求，已知一个*.QRP文件怎么用DELPHI文件打开它，并且可以跳出打印设置？

Question

急，在线等待：高分求，已知一个*.QRP文件怎么用DELPHI文件打开它，并且可以跳出打印设置？

Answer 1

转
先QuickRep1.Prepare
然后 QuickRep1.QRPrinter.Save( 'theprintfilename.QRP' );打印更简单：
uses  QRBonus;// in QuickRep2 
or uses QRExtra;  // in QuickRep3with TQRPHandler.Create do
begin
   try
      Filename := 'theprintfilename.QRP';
      Preview; {or} Print;
   finally
      free; 
   end; 
end;

Answer 2

转先QuickRep1.Prepare
然后 QuickRep1.QRPrinter.Save( 'theprintfilename.QRP' );打印更简单：
uses  QRBonus;// in QuickRep2 
or uses QRExtra;  // in QuickRep3with TQRPHandler.Create do
begin
   try
      Filename := 'theprintfilename.QRP';
      Preview; {or} Print;
   finally
      free; 
   end; 
end;

Answer 3

调试通过
uses QRExtraprocedure TForm1.Button2Click(Sender: TObject);
begin
with TQRPHandler.Create do
begin
   try
      Filename := 'zz.QRP';
      Preview; {or} Print;
   finally
      free;
   end;
end;

Answer 4

我这有个打印的过程:
procedure TFrmUserInput3.PrintAOrderNo(aFileName : String ) ;
begin
  if (Pos( 'QRP',UpperCase(aFileName) ) > 0) then
  try
    with frmPrintZXDbs.QuickRep1 do
    begin
      if RadioGroup3.ItemIndex = 0 then //打印方向
        Page.Orientation := poLandscape // 横向
      else
        Page.Orientation := poPortrait ;//从向
      Prepare ;
      QRPrinter.Load(aFileName) ;
      if RadioGroup2.ItemIndex = 0 then //打印方式
         QRPrinter.Preview
      else
         QRPrinter.Print ;
    end ;
  finally
    ;
  end ;
end ;