In this example, we add some underlined text to a document.
Set theDoc = Server.CreateObject("ABCpdf12.Doc")
theText = "Gallia est omnis divisa in partes tres, quarum unam
incolunt Belgae, aliam Aquitani, tertiam qui ipsorum lingua Celtae,
nostra Galli appellantur."
theDoc.Rect.Inset 20, 40
theDoc.TextStyle.Size = 96
theDoc.TextStyle.Underline = True
theDoc.AddText theText
theDoc.Save "c:\mypdfs\styleunderline.pdf"

styleunderline.pdf
|
|
|