1
2
3 <%@ Assembly name="ABCpdf, Version=5.0.0.6, Culture=neutral, PublicKeyToken=a7a0b3f5184f2169" %>
4 <!--- The above line can be omitted, if you load the assembly in the application web.config file. See KB article 10239 for details -->
5 <%@ import Namespace="WebSupergoo.ABCpdf5" %>
6
7
8 <script runat="server" Language="VB">
9
10
11 Sub page_load()
12
13 Dim theID As Integer = 0
14 Dim theText As String = "This PDF file is generated by WebSupergoo ABCpdf.NET on the fly"
15
16 Dim theDoc As Doc = New Doc()
17 theDoc.Width = 4
18 theDoc.FontSize = 32
19 theDoc.Rect.Inset(20, 20)
20
21
22 theDoc.FrameRect()
23 theID = theDoc.AddHTML(theText)
24 While theDoc.GetInfo(theID, "Truncated") = "1"
25 theDoc.Page = theDoc.AddPage()
26 theDoc.FrameRect()
27 theID = theDoc.AddHTML("", theID)
28 End While
29
30 theDoc.Save(Server.MapPath("textflow.pdf"))
31 theDoc.Clear()
32 response.write ("PDF file written
")
33 response.write ("View PDF File")
34
35 End Sub
36 script>
37
38
