The following code creates a PDF document and adds some text and
a rectangle rotated at 45 degrees anti-clockwise around the middle
of the document.
Set theDoc = Server.CreateObject("ABCpdf13.Doc")
theText = "Gallia est omnis divisa in partes tres, quarum unam
incolunt Belgae, aliam Aquitani, tertiam qui ipsorum lingua Celtae,
nostra Galli appellantur. Hi omnes lingua, institutis, legibus
inter se differunt. Gallos ab Aquitanis Garumna flumen, a Belgis
Matrona et Sequana dividit."
theText = theText & vbCrLf & theText & vbCrLf &
theText & vbCrLf
theDoc.Rect.Magnify 0.5, 0.5
theDoc.Rect.Position 151, 198
theDoc.FrameRect
theDoc.Transform.Rotate 45, 302, 396
theDoc.FrameRect
theDoc.FontSize = 24
theDoc.AddText theText
theDoc.Save "c:\mypdfs\doctransform.pdf"
doctransform.pdf
|
|
|