DrawText and FontSize

Hello, we have an existing PDF document merged from various pdfs of diferent origins (PDF Printer, FastReport Renderized, etc) we want to write some text in the bottom of each page, the problem is the size of the text is not the same in all pages, the font size changes depend on the merged pdf. For example two pdf files with one page every one, we merge them and then apply the text with drawtext on each page, in the first page the font has a size and in the other the font has a diferent size. The code we use is:

     QP:= TiSEDQuickPDF.Create; 
     try
          QP.UnlockKey('XXXXXXXXXXXXXXXXX');
          QP.LoadFromFile(FilePDF);
          //I have seen this in the forum
          QP.UseUnsafeLayers(1);

          // Stablish the font, the same if we stablish the font in each page
          QP.SetTextSize(20);

          for x := 1 to QP.PageCount do
          begin
               QP.SelectPage(x);
                // I have seen this in the forum
               QP.SetPageContent('q'#13#10 + Trim(QP.GetPageContent) + #13#10'Q'#13#10);

               QP.DrawText(10, 10, SuReferencia);
               QP.CompressPage;
          end;

          QP.CompressContent;
          QP.SaveToFile(FilePDF);


     finally
          QP.Free;
     end;

Please, some idea???

Hi Ingo,

>Put "QP.SetTextSize(20);" directly after "QP.SelectPage(x);".

I had tried it before but same results.

>I don't know if "UseUnsafeLayers" and "SetPageContent" is necessary ... but if you use it i will place both after "SelectPage" to make sure that it works for the actual page.

I use it because of a post of Marian (I saw in the forum) regarding about draw text and position, I try to put it after selectPage too but no results.

Thanks for your help.

Thans for all