Form Field Border Line (Visible)

Dang! Looks like iSEQuickPDF simply doesn't support borderless fields, unless I'm overlooking something.

There are a couple of ways to fix this:

1. (the hard way) Save the form field attributes (position, font, colors, etc.) to a file, delete the form fields, then write the text using the saved information. See this example:

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

2. (the easy way) Create a .fdf with your data in it, and use pdftk to fill and flatten the fields. There will be no borders. See this example:

http://www.savefile.com/files.php?fid=5838135

I have a DLL that uses the same techniques as pdftk (gcj-compiled iText java lib), if you would prefer to integrate the flattening, instead of using a command-line tool. See these links:

http://www.savefile.com/files.php?fid=9411235
http://www.savefile.com/files.php?fid=5312447


Edited by chicks

Well, you can probably simplify the "hard" way above, which uses iSEDQuickPDF. You can probably do it dynamically - loop through all the form fields, save their attributes into some sort of array. Then delete the form fields completely. Then use the saved attributes to write your data onto the PDF where the form fields were.

OK, here's a simplified version of option 1 above. It will loop through the fields, get the applicable attributes of the fields, delete the fields, and write text where the field was, using the attributes. Just change the array to read from a file, and you should be good to go...

(vbscript)

Option Explicit

Dim QP, i
Dim inFileName, outFileName
Dim x, y, w, h
Dim red, green, blue
Dim Value, FontName, FontSize, FontColor, Alignment, MaxLength
Dim QuickPDFKey
Dim fontID(14)
Dim a

'-- Init iSedQuickPDF
Set QP = CreateObject("iSED.QuickPDF")

'-- Set file names
QuickPDFKey = WScript.Arguments(0)
inFileName = "nitro.pdf" 'WScript.Arguments(1)
outFileName = "filled.pdf" 'WScript.Arguments(2)

'-- Unlock the PDF library
Call QP.UnlockKey(QuickPDFKey)

'-- Load the input PDF
If QP.LoadFromFile(inFileName) = 0 Then
     WScript.Echo("Could Not Load PDF File: " + inFileName)
     WScript.Quit(Err)
End If

a = Array("ADRIANO", "Lecture - BioDiesel and Sugar Cane Engines" & vbCrLf & "Another line" & vbCrLf & "Another line")

WScript.Echo "Creating " & outFileName

'-- Loop through PDF Form fields
For i = QP.FormFieldCount To 1 Step -1

    '-- Get the field attributes
    x = QP.GetFormFieldBound(i, 0)
    y = QP.GetFormFieldBound(i, 1)
    w = QP.GetFormFieldBound(i, 2)
    h = QP.GetFormFieldBound(i, 3)

    FontName = QP.GetFormFieldFontName(i)
    FontSize = QP.GetFormFieldTextSize(i)
    Call QP.SetTextSize(FontSize)
    setFont(FontName)

    red   = QP.GetFormFieldColor(i,1)
    green = QP.GetFormFieldColor(i,2)
    blue = QP.GetFormFieldColor(i,3)

    Call QP.SetTextColor(red,green,blue)

    Alignment = QP.GetFormFieldAlignment(i)
    Call QP.SetTextAlign(Alignment)

    '-- Make sure textbox is high enough for font
    If h <= FontSize Then h = FontSize + 2

    '-- Delete the form field
    Call QP.DeleteFormField(i)

    '-- Draw the text where form field was
    Value = a(i-1)
    Call QP.DrawTextBox(x, y, w, h, Value, 0)
Next

Call QP.CompressContent()

'-- Save document to PDF File
Call QP.SaveToFile(outFileName)

'-- Clean up
Set QP = Nothing

'-- We're Done!
WScript.Quit(Err)

Sub setFont(FontName)

     Select Case FontName
          Case "Courier"
               SelectFont(0)
          Case "Courier-Bold"
               SelectFont(1)
          Case "Courier-BoldOblique"
               SelectFont(2)
          Case "Courier-Oblique"
               SelectFont(3)
          Case "Helvetica"
               SelectFont(4)
          Case "Helvetica-Bold"
               SelectFont(5)
          Case "Helvetica-BoldOblique"
               SelectFont(6)
          Case "Helvetica-Oblique"
               SelectFont(7)
          Case "Times-Roman"
               SelectFont(8)
          Case "Times-Bold"
               SelectFont(9)
          Case "Times-Italic"
               SelectFont(10)
          Case "Times-BoldItalic"
               SelectFont(11)
          Case "Symbol"
               SelectFont(12)
          Case "ZapfDingbats"
               SelectFont(13)
          Case Else
               SelectFont(0)
     End Select

End Sub

Sub SelectFont (fontNumber)

     If fontID(fontNumber) = "" Then
          fontID(fontNumber) = QP.AddStandardFont(fontNumber)
     End If

     Call QP.SelectFont(fontID(fontNumber))

End Sub