This example shows how to create multistyled text.

We want to display all our proper names in bold so we enclose them in bold tags.

theText = "<b>Gallia</b> est omnis divisa in partes tres, quarum unam incolunt <b>Belgae</b>, aliam <b>Aquitani</b>, tertiam qui ipsorum lingua <b>Celtae</b>, nostra <b>Galli</b> appellantur."

Next we create an ABCpdf Doc object and give it some basic settings. Although we could pass our HTML styled text directly directly to the AddHTML function, we can take more control over the way that fonts are added to the PDF if we specify font IDs.

Set theDoc = Server.CreateObject("ABCpdf3.Doc")
theDoc.FontSize = 72
theDoc.Rect.Inset 10, 10
theDoc.FrameRect
theFont1 = theDoc.EmbedFont("Verdana", "Latin", False, True)
theFont2 = theDoc.EmbedFont("Verdana Bold", "Latin", False, True)

We replace the bold tags with font tags that directly reference our chosen fonts and then add the HTML styled text to the current rectangle.

theText = "<font pid=" & theFont1 & ">" & theText & "</font>"
theText = Replace(theText, "<b>", "<font pid=" & theFont2 & ">")
theText = Replace(theText, "</b>", "</font>")
theDoc.AddHTML theText

Finally we save the document to a specified location.

theDoc.Save "c:\mypdfs\styles.pdf"


styles.pdf