팁에 찾아보시면 있었던것같은데...^^

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  BMP         : TBitMap;
  StoredUnits : TQRUnit;
  i           : integer;
  StoreDir    : string;
  Image_Name  : String;
begin
  StoreDir       := 'c:sfmitemp출력그림명';
  FormQ := TFormQ.Create(Self);
  FormQ.QuickRep1.Prepare;
  StoredUnits                    := FormQ.Units;
  FormQ.Units := Pixels;
  try
    for i := 1 to FormQ.QRPrinter.PageCount do
    begin
      BMP := TBitMap.Create;
      try
        BMP.Width  := Round(FormQ.page.Width );
        BMP.Height := Round(FormQ.page.Length);
        FormQ.QRPrinter.PageNumber := i;
        BMP.Canvas.Draw(0, 0, FormQ.QRPrinter.Page);
        Image_Name := StoreDir + IntToStr(i) + '.bmp';
        BMP.SaveToFile(Image_Name);
      finally
        BMP.Free;
      end;
    end;
  finally
    FormQ.Units:=StoredUnits;
    FormQ.free;
  end;
end;

즐프하세요...

고맙습니다. 혹여나 하고 찾고 있었는데... ^^ 정말 감사합니다.