OutInLeftField
Programmer
I am using ActivePDF Toolkit.
I am retrieving data from a recordset into form fields on a PDF template in ActivePDF Toolkit.
I am concatenating two fields into one variable and inserting that into the Form field on the PDF template.
Sometimes for no particular reason, the wordwrap would cut a word in half or after the first field, the line would break to the next line.
here is the code for that:
do while not rstdefc.EOF
count = count + 1
description_text=trim(rstdefc("description_text"
)
charlength = len(description_text)
histcomment = trim(rstdefc("histcomment"
)
if not histcomment = "" then
histcomment = replace(histcomment,":"," "
else
histcomment = ""
end if
if mid(description_text,charlength,1) = "." then
Description = description_text & " " & histcomment
else
if mid(description_text,charlength,1) = "$" then
Description = description_text & " " & histcomment
else
if mid(description_text,charlength,1) = "#" then
Description = description_text & " " & Histcomment
else
if mid(description_text,charlength,1) = ":" then
Description = description_text & " " & histcomment
else
Description = description_text & " " & histcomment
end if
end if
end if
end if
toolkit.SetFormFieldData "Description_Text" & cstr(count),Description,-998
I am retrieving data from a recordset into form fields on a PDF template in ActivePDF Toolkit.
I am concatenating two fields into one variable and inserting that into the Form field on the PDF template.
Sometimes for no particular reason, the wordwrap would cut a word in half or after the first field, the line would break to the next line.
here is the code for that:
do while not rstdefc.EOF
count = count + 1
description_text=trim(rstdefc("description_text"
charlength = len(description_text)
histcomment = trim(rstdefc("histcomment"
if not histcomment = "" then
histcomment = replace(histcomment,":"," "
else
histcomment = ""
end if
if mid(description_text,charlength,1) = "." then
Description = description_text & " " & histcomment
else
if mid(description_text,charlength,1) = "$" then
Description = description_text & " " & histcomment
else
if mid(description_text,charlength,1) = "#" then
Description = description_text & " " & Histcomment
else
if mid(description_text,charlength,1) = ":" then
Description = description_text & " " & histcomment
else
Description = description_text & " " & histcomment
end if
end if
end if
end if
toolkit.SetFormFieldData "Description_Text" & cstr(count),Description,-998