ApdFaxConverter1.InputDocumentType := idTextEx;
ApdFaxConverter1.DocumentFile := 'c:\test.txt';
ApdFaxConverter1.OutFileName := 'c:\test.APF';
ApdFaxConverter.ConvertToFile;

var BMP: TBitMap;
 StoredUnits: TQRUnit;
   i: integer;
   StoreDir: string;
begin
 StoreDir:=''; //!!!
               // EN: Assign folder to store here
               //(with ending '\'), leave
               //blank to store in the .exe's folder
               //NL: wijs hier map/directory waarin
               //opgeslagen moet worden toe. Laat
               //leeg om op te slaan in de directory
               //waarin zich de .EXE bevindt.
 QuickRep1.Prepare;
   StoredUnits:=QuickRep1.Units;
   QuickRep1.Units:=Pixels;
   try
      for i:=1 to QuickRep1.QRPrinter.PageCount do begin
         BMP:=TBitMap.Create;
         try
            BMP.Width:=Round(QuickRep1.Page.Width);
            BMP.Height:=Round(QuickRep1.Page.Length);
            QuickRep1.QRPrinter.PageNumber:=i;
            BMP.Canvas.Draw(0, 0, QuickRep1.QRPrinter.Page);
            BMP.SaveToFile(StoreDir 'Page' IntToStr(i) '.bmp');
         finally
            BMP.Free;
         end;
      end;
   finally
      QuickRep1.Units:=StoredUnits;
   end;
end;