How to Flatten a PDF's form fields

I have a PDF with form fields that have been filled already.

It looks like this :

http://www.DES.online.unimep.br/au/pub/flatten.pdf

I only need a tool to flatten it's form fields and save back the resulting PDF, with form field content OK, of course.

Because when I flatten from my original application (using QuickPDF to do it), I have sometimes damaged PDFs generated (see my other postings ....).

So, my plan is to use QuickPDF to generate the PDF and then, flatten it by using something else OUTSIDE my original application. It could be even QuickPDF but it would have to be OUTSIDE the original application.

I have used PDFTK but it takes way, way too long to do it. About 30 seconds per PDF (on a PDF with 120 form fields).

I also tried to use QuickPDF itself, but it wont work. The script below generates an empty (blank) PDF....

Any other ideas ?


Here's my script :

DIM OBJARGS
DIM OBJQPDF
DIM ARQPDF
DIM LNI
DIM LNT
DIM FORMFIELDNAME

SET OBJARGS=WScript.Arguments

ARQPDF=OBJARGS(0)

SET OBJQPDF=WSCRIPT.CREATEOBJECT("ISED.QUICKPDF")

IF  NOT OBJQPDF.UNLOCKKEY("yourkey") = 1 THEN
    WSCRIPT.ECHO "COULD NOT UNLOCKKEY"
    WSCRIPT.QUIT(1)
END IF

IF  OBJQPDF.LOADFROMFILE(ARQPDF) = 0 THEN
    WSCRIPT.ECHO "COULD NOT LOAD TEMPLATE"
    WSCRIPT.QUIT(1)
END IF

LNT=OBJQPDF.FORMFIELDCOUNT()

FOR LNI=1 TO LNT
  IF  NOT OBJQPDF.FLATTENFORMFIELD(1) = 1 THEN
      FORMFIELDNAME=OBJQPDF.GETFORMFIELDTITLE(1)
      WSCRIPT.ECHO "ERROR WHILE FLATTENING THIS FORM FIELD '" + FORMFIELDNAME + "' ON " + ARQPDF,LNI
      WSCRIPT.QUIT(1)
  END IF
NEXT

IF  OBJQPDF.SaveToFile("C:\TEMP\TEST.PDF") = 0 THEN
    WSCRIPT.ECHO "COULD NOT SAVE TEMPLATE"
    WSCRIPT.QUIT(1)
END IF

Hi !

I was very enthusiastic with your hint about the version. Then I reverted to 5.14. Have re-downloaded 5.14 but libraryversion actually prints 5.11.

Anyway, the problem persists.

Please take a copy of a PDF with garbage from here :

http://www.DES.online.unimep.br/au/pub/wrong2.pdf

Take a look after the word "Piracicaba".

You can see what I'm talking about....

What happened is that a field content was replaced by another.

Notice that the problem is TOTALLY RANDOM. I ran it again, same data, same version, same EXEcutable, and it runs OK.

Get a OK one from here :

http://www.DES.online.unimep.br/au/pub/ok1.pdf

Again, the problem is TOTALLY random.

Sometimes I run the EXE and it happens only at the first PDF generated. And it doesnt happen anymore. Other times I run the EXE and ALL of the PDFs are wrong. Sometimes the THIRD is wrong . And so forth.

I'm desperate. Dont know what else I can do.

Yes, data is OK.

I have adapted my software to generate a FDF file and run OUTSIDE of it, PDFTK. When a wrong PDF is generated by QUICKPDF, a OK one is generated with the same FDF by PDFTK.

The problem with PDFTK is that it is too, too, slow. 30 seconds per PDF. Impossible.

Any help ?

My strongest hint is regarded to the flattening function.

Because when I generate the PDFs without it, it works. There's no garbage....

I have house guests for a couple of days, so won't be able to look at this 'til the weekend. Just a thought, though. I've never seen this problem before, so I wonder if it might be your templates (or whatever you are using to generate them) that are the root of the problem. You might want to test using one of the standard IRS forms, such as the 1040ez.

I will try to check this problem as well. As much as I know QuickPDF works quite well for that what you are expecting.

OK, your template definitely has issues. When I try to fill and flatten it with iText, it results in a blank PDF. iText is pretty much the standard PDF library available, so it shouldn't have problems with a conforming PDF.

I ran your template through pdftk to fix it (probably adds the appearance streams), so it now works fine with iText. Renamed it to "fixed.pdf".

I put together a simple java demo to create 99 PDFs using the template from 99 FDFs. It's compiled to .exe, so no java runtime is required. Takes exactly 30 seconds to create the 99 filled/flattened PDFs on my very slow desktop, should be much faster on a modern PC. You can download the test from my ftp server:

ftp://ftp.chicksolutions.com

user: anonymous@chicksolutions.com
pwd: (none)
file: FdfMulti.tgz

It's a gzipped tar, which can be opened and extracted using WinZip. Unzip, then run from the command prompt:

FdfMulti fixed.pdf fdf\*.fdf

This will fill the "fixed.pdf" with the 99 .fdf files in the fdf directory, outputting 99 PDFs to the fdf directory, each named the same as the corresponding fdf file.

Here's the java source code, also included in the .tgz:. Pretty basic stuff. Note that java (nicely) expands wildcards, so all the fdf's in the fdf directory come in as separate args given the "fdf\*.fdf" wildcard:

import com.lowagie.text.pdf.*;
import java.io.FileOutputStream;

public class FdfMulti {
    
    public static void usage() {
        System.out.println("FDF Multi merging and flattening");
        System.out.println("usage: FdfMulti template FDF File(s)");
    }
    
    public static void main(String[] args) {
        if (args.length < 2) {
            usage();
            return;
        }
       
        try {
         String template = args[0];
          for(int i = 1; i < args.length; i++) {
              String in_fdf = args;
              int j = in_fdf.lastIndexOf(".fdf");
              if(j <= 0)
               continue;

              String out_pdf = in_fdf.substring(0, j) + ".pdf";
              System.out.println("Creating " + out_pdf + " using " + in_fdf);

                 PdfReader reader = new PdfReader(template);
                     PdfStamper stamp = new PdfStamper(reader, new FileOutputStream(out_pdf));
                     if (in_fdf != null) {
                    FdfReader fdf = new FdfReader(in_fdf);
                    AcroFields form = stamp.getAcroFields();
                    form.setFields(fdf);
                     }

                    stamp.setFormFlattening(true);

                     stamp.close();
             }
          return;
            }
            catch (Exception e) {
          e.printStackTrace();
          return;
            }
    }
}

Ah, one more thing :

When you say you fixed my template by using PDFTK, what have you done ?

Have you ran it through this option : "Repair a PDF's Corrupted XREF Table and Stream Lengths (If Possible)" ?

Once more, thank you !

Strange....

I tried to load your fixed pdf template upon my software but I get an empty one at the end.

Here's a test script :

OPTION EXPLICIT

DIM objQPDF,objTempPDF,docFinalPDF,docPDF2beMerged,lni,lnt,lcfieldname,lcfieldvalue

Set objQPDF = WScript.CreateObject("ISED.QUICKPDF")

WScript.Echo "UnlockKey ",objQPDF.unlockkey("yourkey")

WScript.Echo "newdocument",objQPDF.NewDocument()
WScript.Echo "doccount   ",objQPDF.DocumentCount()

'WScript.Echo "Load File ",objQPDF.LoadFromFile("R:\USR\CPD\DES\RPS\TEMPLATES\AG\AG284D.PDF")
WScript.Echo "Load File ",objQPDF.LoadFromFile("C:\TEMP\FIXED.PDF")

WScript.Echo "doccount   ",objQPDF.DocumentCount()

lnt=objQPDF.FORMFIELDCOUNT()
if  lnt <> 122 then
    WScript.Echo "invalid field count : ",lnt
    Wscript.Quit(1)
end if

for lni=1 to lnt
    lcfieldname=objQPDF.GetFormFieldTitle(lni)
    wscript.Echo "campo numero ",lni,lcfieldname
next

'wscript.quit

for lni=lnt to 1 step -1
    lcfieldname=objQPDF.GetFormFieldTitle(lni)
    if  lcfieldname = "TCOTOTALDECREDITOS" then
        lcfieldvalue= "22"
    end if
    if  lcfieldname = "TCOLENGENDAOBS" then
        lcfieldvalue= "LEGENDA:"
    end if
    if  lcfieldname = "TCOCAMPUS" then
        lcfieldvalue= "Taquaral - Piracicaba         "
    end if
    if  lcfieldname = "TCOCAMPUSDATA" then
        lcfieldvalue= "Piracicaba, 20 de  Dezembro de 2007"
    end if
    if  lcfieldname = "TCODTSUBS15" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOCREDITO15" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOTURMA15" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOSEMESTRE15" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCO54DISCIP15" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOCOD15" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOOBS15" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCODTSUBS14" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOCREDITO14" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOTURMA14" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOSEMESTRE14" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCO54DISCIP14" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOCOD14" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOOBS14" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCODTSUBS13" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOCREDITO13" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOTURMA13" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOSEMESTRE13" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCO54DISCIP13" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOCOD13" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOOBS13" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCODTSUBS12" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOCREDITO12" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOTURMA12" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOSEMESTRE12" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCODISCIP12" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOCOD12" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOOBS12" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCODTSUBS11" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOCREDITO11" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOTURMA11" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOSEMESTRE11" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCO54DISCIP11" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOCOD11" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOOBS11" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCODTSUBS10" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOCREDITO10" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOTURMA10" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOSEMESTRE10" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCO54DISCIP10" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOCOD10" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOOBS10" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCODTSUBS9" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOCREDITO9" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOTURMA9" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOSEMESTRE9" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCO54DISCIP9" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOCOD9" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOOBS9" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCODTSUBS8" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOCREDITO8" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOTURMA8" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOSEMESTRE8" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCO54DISCIP8" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOCOD8" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOOBS8" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCODTSUBS7" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOCREDITO7" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOTURMA7" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOSEMESTRE7" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCO54DISCIP7" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOCOD7" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOOBS7" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCODTSUBS6" then
        lcfieldvalue= "16/07/2007"
    end if
    if  lcfieldname = "TCOCREDITO6" then
        lcfieldvalue= "6"
    end if
    if  lcfieldname = "TCOTURMA6" then
        lcfieldvalue= "04.2"
    end if
    if  lcfieldname = "TCOSEMESTRE6" then
        lcfieldvalue= "09"
    end if
    if  lcfieldname = "TCO54DISCIP6" then
        lcfieldvalue= "ESTAGIO III"
    end if
    if  lcfieldname = "TCOCOD6" then
        lcfieldvalue= "42879"
    end if
    if  lcfieldname = "TCOOBS6" then
        lcfieldvalue= "*"
    end if
    if  lcfieldname = "TCODTSUBS5" then
        lcfieldvalue= "12/07/2007"
    end if
    if  lcfieldname = "TCOCREDITO5" then
        lcfieldvalue= "8"
    end if
    if  lcfieldname = "TCOTURMA5" then
        lcfieldvalue= "29.9"
    end if
    if  lcfieldname = "TCOSEMESTRE5" then
        lcfieldvalue= "09"
    end if
    if  lcfieldname = "TCO54DISCIP5" then
        lcfieldvalue= "MONOGRAFIA I"
    end if
    if  lcfieldname = "TCOCOD5" then
        lcfieldvalue= "31351"
    end if
    if  lcfieldname = "TCOOBS5" then
        lcfieldvalue= "E"
    end if
    if  lcfieldname = "TCODTSUBS4" then
        lcfieldvalue= "12/07/2007"
    end if
    if  lcfieldname = "TCOCREDITO4" then
        lcfieldvalue= "2"
    end if
    if  lcfieldname = "TCOTURMA4" then
        lcfieldvalue= "02.6"
    end if
    if  lcfieldname = "TCOSEMESTRE4" then
        lcfieldvalue= "09"
    end if
    if  lcfieldname = "TCO54DISCIP4" then
        lcfieldvalue= "ETICA PROFISSIONAL"
    end if
    if  lcfieldname = "TCOCOD4" then
        lcfieldvalue= "31344"
    end if
    if  lcfieldname = "TCOOBS4" then
        lcfieldvalue= "*"
    end if
    if  lcfieldname = "TCODTSUBS3" then
        lcfieldvalue= "12/07/2007"
    end if
    if  lcfieldname = "TCOCREDITO3" then
        lcfieldvalue= "2"
    end if
    if  lcfieldname = "TCOTURMA3" then
        lcfieldvalue= "02.6"
    end if
    if  lcfieldname = "TCOSEMESTRE3" then
        lcfieldvalue= "09"
    end if
    if  lcfieldname = "TCO54DISCIP3" then
        lcfieldvalue= "ESTUDO DE PROBLEMAS BRASILEIROS II"
    end if
    if  lcfieldname = "TCOCOD3" then
        lcfieldvalue= "31336"
    end if
    if  lcfieldname = "TCOOBS3" then
        lcfieldvalue= "*"
    end if
    if  lcfieldname = "TCODTSUBS2" then
        lcfieldvalue= "12/07/2007"
    end if
    if  lcfieldname = "TCOCREDITO2" then
        lcfieldvalue= "2"
    end if
    if  lcfieldname = "TCOTURMA2" then
        lcfieldvalue= "02.6"
    end if
    if  lcfieldname = "TCOSEMESTRE2" then
        lcfieldvalue= "09"
    end if
    if  lcfieldname = "TCO54DISCIP2" then
        lcfieldvalue= "DIREITO FINANCEIRO E TRIBUTARIO III"
    end if
    if  lcfieldname = "TCOCOD2" then
        lcfieldvalue= "31328"
    end if
    if  lcfieldname = "TCOOBS2" then
        lcfieldvalue= "*"
    end if
    if  lcfieldname = "TCODTSUBS1" then
        lcfieldvalue= "12/07/2007"
    end if
    if  lcfieldname = "TCOCREDITO1" then
        lcfieldvalue= "2"
    end if
    if  lcfieldname = "TCOTURMA1" then
        lcfieldvalue= "02.6"
    end if
    if  lcfieldname = "TCOSEMESTRE1" then
        lcfieldvalue= "09"
    end if
    if  lcfieldname = "TCO54DISCIP1" then
        lcfieldvalue= "DIREITO ADMINISTRATIVO II"
    end if
    if  lcfieldname = "TCOCOD1" then
        lcfieldvalue= "31310"
    end if
    if  lcfieldname = "TCOOBS1" then
        lcfieldvalue= "*"
    end if
    if  lcfieldname = "TCOINFOCOMP5" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOINFOCOMP4" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOINFOCOMP3" then
        lcfieldvalue= ""
    end if
    if  lcfieldname = "TCOINFOCOMP2" then
        lcfieldvalue= "E - VAGA AINDA NAO DEFERIDA. AGUARDE O RESULTADO DO DEFERIMENTO DA VAGA."
    end if
    if  lcfieldname = "TCOINFOCOMP1" then
        lcfieldvalue= "* - VAGA GARANTIDA NA TURMA."
    end if
    if  lcfieldname = "TCOANO" then
        lcfieldvalue= "2007"
    end if
    if  lcfieldname = "TCOPERIODOLET" then
        lcfieldvalue= "segundo "
    end if
    if  lcfieldname = "TCOTURNO" then
        lcfieldvalue= "diurno  "
    end if
    if  lcfieldname = "TCOCURSO" then
        lcfieldvalue= "DIREITO *************************************************************************************************"
    end if
    if  lcfieldname = "TCOSEMESMAT" then
        lcfieldvalue= "nono      "
    end if
    if  lcfieldname = "TCOMATRICULSEXO" then
        lcfieldvalue= "matriculada"
    end if
    if  lcfieldname = "TCORA" then
        lcfieldvalue= "03.7675-6"
    end if
    if  lcfieldname = "TCONOMEALUN" then
        lcfieldvalue= "ANA BEATRIZ VANELLI PASSARELLI*************************"
    end if
'    WScript.Echo "Field #",lni," from  A ",lcfieldname
    CALL objQPDF.SetFormFieldValue(lni,lcfieldvalue)
    objQPDF.FlattenFormfield(lni)
next


WScript.Echo "delete ",objQPDF.PageCount()
WScript.Echo "page # ",objQPDF.DeletePages(1,1)


WScript.Echo "save",objQPDF.SaveToFile("C:\TEMP\TEST.PDF")


If only I had a GOOD TEMPLATE, then I could test it upon my environment to see if the problem is on the template (very likely).

Thanks again !

Now your template works. It's ugly but it works.

However, the field exchange problem persists.

I generated 6 PDF (same data, same software, same circumstances) and they were OK.

On the seventh, I had a data exchange problem.

Take a look :

http://www.des.online.unimep.br/au/pub/wrong7.pdf

On the column "Semestre" (Semester), one of them has the value "30748", which is the value of a preceding field. It should have the value "06" instead.

For me this is a QuickPDF bug....

I understood your approach.

But AFAIK, there's no way to retrieve x and y from a form field. There's no function for that... At least not on the Form Fields group of functions.

If I had that, it would not be difficult to do it cause I already have an array of the templates and, within that array, I already have also a form fields list subarray. I could add those properties to that subarray.

So, from where can I get x, y width and height ?

Sorry. I can't get your point.

Say I have this template :

http://www.DES.online.unimep.br/au/pub/temp.pdf

I already know how to detect it's two fields names. But how to detect their corresponding x and y positions. Also other field properties such as bold.

How can I do that by using QuickPDF ?

Some of the field attributes:

GetFormFieldBound(idx, 0) - Left
GetFormFieldBound(idx, 1) - Top
GetFormFieldBound(idx, 2) - Width
GetFormFieldBound(idx, 3) - Height
GetFormFieldFontName(idx)
GetFormFieldTextSize(idx)
GetFormFieldPage(idx)
GetFormFieldVisible(idx)
GetFormFieldPrintable(idx)
GetFormFieldType(idx)
GetFormFieldSubCount(idx)
GetFormFieldAlignment(idx)
GetFormFieldRotation(idx)
GetFormFieldColor(idx,1) - Red
GetFormFieldColor(idx,2) - Green
GetFormFieldColor(idx,3) - Blue
GetFormFieldMaxLen(idx)
GetFormFieldTabOrder(idx)

This post from a few years back has a QuickPDf / vbscript demo of this process:

http://forum.planetpdf.com/webboard/wbpx.dll/read?94629,3

Edited by chicks - 03 Jan 08 at 11:20AM

I'm almost there !

But I'm stucked with a font issue...

The thing is : the form field has a font property. I have got it already.

So, on my array of form fields, I have their font names. For instance, on my template all of the form fields have "Helvetica" as their font name.

Later on, I'll need to use this font name ("Helvetica") to "drawtextbox".

How do I set it ?

Helvetica is a standard fort, no need to add TrueType version.

fontID=ObjQPDF.AddStandardFont(4)
ObjQPDF.SelectFont(fontID)

Only need to do this once at the beginning, unless you'll be changing fonts while writing.

Look at the example I pointed to on PlanetPDF. It will select one of the 14 built-in fonts based on the form field's font name, or default to "Courier" if not matched. See the SetFont() and SelectFont() functions in the example vbscript.

Still have some minor problems....

There's a very subtle difference when filling a form field against drawtextbox : the vertical alignment is different...

The script below generates two PDF outputs, one by forms and the other by drawing. You can load them both and see how they're different.

Here's the code :

--------------------------------
OPTION EXPLICIT

DIM objQPDF,lni,lnt
DIM X,Y,W,H,A,S

Set objQPDF = WScript.CreateObject("ISED.QUICKPDF")

objQPDF.unlockkey("yourkeygoesintohere")

objQPDF.NewDocument()
objQPDF.DocumentCount()

objQPDF.LoadFromFile("TEST034.PDF")

' GET TEST034.PDF from http://www.DES.online.unimep.br/au/pub/test034.pdf

lni=3

CALL objQPDF.SetFormFieldValue(lni,"matriculado")

lnt=objQPDF.FORMFIELDCOUNT()
for lni=lnt to 1 step -1
  objQPDF.FlattenFormfield(lni)
next

objQPDF.SaveToFile("TEST034FORM.PDF")

objQPDF.LoadFromFile("TEST034.PDF")

lni=3

X=objQPDF.GetFormFieldBound(lni,0)
Y=objQPDF.GetFormFieldBound(lni,1)
W=objQPDF.GetFormFieldBound(lni,2)
H=objQPDF.GetFormFieldBound(lni,3)
A=objQPDF.GetFormFieldAlignment(lni)
S=objQPDF.GetFormFieldTextSize(lni)

lnt=objQPDF.FORMFIELDCOUNT()
for lni=lnt to 1 step -1
  objQPDF.DeleteFormField(lni)
next

objQPDF.SetTextAlign(A)
objQPDF.SetTextSize(S)

CALL objQPDF.DRAWTEXTBOX(X,Y,W,H,"matriculado",3)

objQPDF.SaveToFile("TEST034DRAW.PDF")

WScript.Echo "OK !"

--------------------

I tried to "rotate" the last DrawTextBox parameter but it wont solve.

I guess I must do some sort of calculation with the form field borders, isnt it ?

Once more, thank you !