View Source Code

<!-- #INCLUDE FILE="../library/rtflib_20050408.asp" -->
<%

dim RTF_OUTPUT, strBoxContents, strContents

RTF_OUTPUT = ""

SetVerticalMeasure("inches")
SetHorizontalMeasure("inches")

'==================================================
RTF_OUTPUT = QuickDrawRTFHeader(RTF_PORTRAIT,"1","1","1","1",RTF_PROTECTED,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL) 'put 1 inch margins all around
'==================================================

call RegisterFont(RTF_FONT_ARIAL, "12", RTF_BOLD, RTF_BLUE)
call RegisterParagraphSpacing(0,0.2,0)

RTF_OUTPUT = RTF_OUTPUT & "This demonstrates how to output UN-formated or raw text."
RTF_OUTPUT = RTF_OUTPUT & DrawChars("This demonstrates how to output formated text.  I used the DrawChars() function to write the text.  ", NULL,NULL,NULL,NULL)

call RegisterFont(RTF_FONT_COURIER, "12", 0, RTF_RED)
RTF_OUTPUT = RTF_OUTPUT & DrawChars("After changing the font, I used the DrawChars() function to write the text.  ", NULL,NULL,NULL,NULL)

RTF_OUTPUT = RTF_OUTPUT & RTF_LINE_BREAK

strBoxContents = DrawChars("This text box was generated with the DrawTextBox() function. Notice how it is absolutely positioned, and text flows around it.",RTF_FONT_ARIAL,12,RTF_BOLD,RTF_BLUE)
RTF_OUTPUT = RTF_OUTPUT & DrawTextBox(strBoxContents,4.5,6.5,0,2,"c",5,"AABBCC", RTF_SOLID, "00CCCC",0.1,0.1,0.1,0.1)

RTF_OUTPUT = RTF_OUTPUT & RTF_LINE_BREAK
call RegisterFont(RTF_FONT_ARIAL, "18", RTF_BOLD + RTF_ITALIC, RTF_DARK_GRAY)

RTF_OUTPUT = RTF_OUTPUT & DrawParagraph("This is some text appended with the DrawParagraph() function, after I changed the font again.  DrawParagraph() adds line breaks to the end of the line.  DrawParagraph() will also apply indentations and tab spacings, if you have registered them.")

ResetFont() 'CLEARS THE FONT SEETINGS BACK TO THE DEFAULT.
RTF_OUTPUT = RTF_OUTPUT & DrawParagraph("This text was reset to the default using the ResetFont() function.")

call RegisterParagraphIndent("c",0,0,0)
call RegisterFont(RTF_FONT_TIMES, "11", 0, RTF_LIGHT_RED)
RTF_OUTPUT = RTF_OUTPUT & DrawParagraph("This text is centered using the RegisterParagraphIndent() function.")
RTF_OUTPUT = RTF_OUTPUT & DrawParagraph("Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec elementum, dolor vel aliquam tempus, ipsum diam sodales sem, ut faucibus urna lorem eget augue. Mauris mollis interdum metus. Pellentesque posuere tortor. Curabitur a quam quis tellus tincidunt blandit. Etiam justo. Integer eu tortor non neque fringilla commodo. Cras scelerisque fermentum nibh. Duis id elit. Etiam vehicula ultricies pede. ")

function StyleNormal(sText)
	sText = DrawChars(sText,RTF_FONT_ARIAL,"12",0,RTF_BLACK)
	StyleNormal = sText
end function

function StyleSpecial(sText)
	sText = DrawChars(sText,RTF_FONT_ARIAL,"12",RTF_BOLD,RTF_LIGHT_RED)
	StyleSpecial = sText
end function

call RegisterParagraphIndent("l",0,0,0.5)
strContents = StyleNormal("This demonistrates how you can use custom functions to enforce consistant styles in your document (") & StyleSpecial("see the source code") & StyleNormal(").  It is combining the use of DrawRawParagraph() and custom functions to mix text styles in a single paragraph.  This ") & StyleSpecial("word ") & StyleNormal("has special formating.  So does ") & StyleSpecial("this word.  ") & StyleNormal("Note that I have used RegisterParagraphIndent() to create an indented paragraph.  ")
RTF_OUTPUT = RTF_OUTPUT & DrawRawParagraph(strContents)

'===========================================
RTF_OUTPUT = RTF_OUTPUT & RTF_PAGE_BREAK
'===========================================

strBoxContents = DrawChars("This is another text box generated with the DrawTextBox() function. ",RTF_FONT_ARIAL,12,RTF_BOLD,RTF_LIGHT_RED)
'RTF_OUTPUT = RTF_OUTPUT & DrawTextBox(strBoxContents,0,6.5,0,0.5,"c",5, "0000FF", RTF_SOLID, "00CCCC", 0,0,0.1,0.1)

strBoxContents = DrawChars("This is a text box generated with the QuickDrawTextBox() function. ",RTF_FONT_ARIAL,16,RTF_BOLD,RTF_PURPLE)
'RTF_OUTPUT = RTF_OUTPUT & QuickDrawTextBox(strBoxContents,4,6.6,2,4,"c")

call RegisterFont(RTF_FONT_TIMES, "11", 0, RTF_LIGHT_RED)
call RegisterParagraphIndent("l",0.5,0.5,0)
RTF_OUTPUT = RTF_OUTPUT & RTF_LINE_BREAK
RTF_OUTPUT = RTF_OUTPUT & DrawParagraph("This demonstrates indented text.")
RTF_OUTPUT = RTF_OUTPUT & DrawParagraph("Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec elementum, dolor vel aliquam tempus, ipsum diam sodales sem, ut faucibus urna lorem eget augue. Mauris mollis interdum metus. Pellentesque posuere tortor. Curabitur a quam quis tellus tincidunt blandit. Etiam justo. Integer eu tortor non neque fringilla commodo. Cras scelerisque fermentum nibh. Duis id elit. Etiam vehicula ultricies pede. ")
RTF_OUTPUT = RTF_OUTPUT & DrawParagraph("Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec elementum, dolor vel aliquam tempus, ipsum diam sodales sem, ut faucibus urna lorem eget augue. Mauris mollis interdum metus. Pellentesque posuere tortor. Curabitur a quam quis tellus tincidunt blandit. Etiam justo. Integer eu tortor non neque fringilla commodo. Cras scelerisque fermentum nibh. Duis id elit. Etiam vehicula ultricies pede. ")

call RegisterFont(RTF_FONT_TIMES, "11", 0, RTF_DARK_BLUE)
call RegisterParagraphIndent("l",0,0,0.5)
RTF_OUTPUT = RTF_OUTPUT & DrawParagraph("This demonstrates indented paragraphs.  ")
RTF_OUTPUT = RTF_OUTPUT & DrawParagraph("Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec elementum, dolor vel aliquam tempus, ipsum diam sodales sem, ut faucibus urna lorem eget augue. Mauris mollis interdum metus. Pellentesque posuere tortor. Curabitur a quam quis tellus tincidunt blandit. Etiam justo. Integer eu tortor non neque fringilla commodo. Cras scelerisque fermentum nibh. Duis id elit. Etiam vehicula ultricies pede. ")
RTF_OUTPUT = RTF_OUTPUT & DrawParagraph("Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec elementum, dolor vel aliquam tempus, ipsum diam sodales sem, ut faucibus urna lorem eget augue. Mauris mollis interdum metus. Pellentesque posuere tortor. Curabitur a quam quis tellus tincidunt blandit. Etiam justo. Integer eu tortor non neque fringilla commodo. Cras scelerisque fermentum nibh. Duis id elit. Etiam vehicula ultricies pede. ")

call RegisterFont(RTF_FONT_TIMES, "11", 0, RTF_DARK_GRAY)
call RegisterParagraphIndent("l",0.5,0,-0.5)
RTF_OUTPUT = RTF_OUTPUT & DrawParagraph("This demonstrates hanging indents.  ")
RTF_OUTPUT = RTF_OUTPUT & DrawParagraph("Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec elementum, dolor vel aliquam tempus, ipsum diam sodales sem, ut faucibus urna lorem eget augue. Mauris mollis interdum metus. Pellentesque posuere tortor. Curabitur a quam quis tellus tincidunt blandit. Etiam justo. Integer eu tortor non neque fringilla commodo. Cras scelerisque fermentum nibh. Duis id elit. Etiam vehicula ultricies pede. ")
RTF_OUTPUT = RTF_OUTPUT & DrawParagraph("Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec elementum, dolor vel aliquam tempus, ipsum diam sodales sem, ut faucibus urna lorem eget augue. Mauris mollis interdum metus. Pellentesque posuere tortor. Curabitur a quam quis tellus tincidunt blandit. Etiam justo. Integer eu tortor non neque fringilla commodo. Cras scelerisque fermentum nibh. Duis id elit. Etiam vehicula ultricies pede. ")

RTF_OUTPUT = RTF_OUTPUT & RTF_PAGE_BREAK


call RegisterFont(RTF_FONT_TIMES, "10", 0, RTF_LIGHT_RED)
call RegisterParagraphIndent("l",0.5,0,-0.5)
RTF_OUTPUT = RTF_OUTPUT & DrawParagraph("This demonstrates numbered, or bulleted text.  ")

RTF_OUTPUT = RTF_OUTPUT & DrawParagraph("1)" & RTF_TAB & "Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec elementum, dolor vel aliquam tempus, ipsum diam sodales sem, ut faucibus urna lorem eget augue. Mauris mollis interdum metus. Pellentesque posuere tortor. Curabitur a quam quis tellus tincidunt blandit. Etiam justo. Integer eu tortor non neque fringilla commodo. Cras scelerisque fermentum nibh. Duis id elit. Etiam vehicula ultricies pede. ")
RTF_OUTPUT = RTF_OUTPUT & DrawParagraph("2)" & RTF_TAB & "Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec elementum, dolor vel aliquam tempus, ipsum diam sodales sem, ut faucibus urna lorem eget augue. Mauris mollis interdum metus. Pellentesque posuere tortor. Curabitur a quam quis tellus tincidunt blandit. Etiam justo. Integer eu tortor non neque fringilla commodo. Cras scelerisque fermentum nibh. Duis id elit. Etiam vehicula ultricies pede. ")
RTF_OUTPUT = RTF_OUTPUT & DrawParagraph("3)" & RTF_TAB & "Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec elementum, dolor vel aliquam tempus, ipsum diam sodales sem, ut faucibus urna lorem eget augue. Mauris mollis interdum metus. Pellentesque posuere tortor. Curabitur a quam quis tellus tincidunt blandit. Etiam justo. Integer eu tortor non neque fringilla commodo. Cras scelerisque fermentum nibh. Duis id elit. Etiam vehicula ultricies pede. ")

call RegisterParagraphIndent(0,0,0,0)
call RegisterParagraphTabs("1.0,2.0,3,4","l,l,l,l")
RTF_OUTPUT = RTF_OUTPUT & DrawParagraph("This demonstrates tabbed text, with one tab every inch.")
RTF_OUTPUT = RTF_OUTPUT & DrawParagraph(RTF_TAB & "Tab 1" & RTF_TAB & "Tab 2"  & RTF_TAB & "Tab 3" & RTF_TAB & "Tab 4")


'==================================================
RTF_OUTPUT = RTF_OUTPUT & DrawRTFFooter()
'==================================================

Response.ContentType="application/rtf"
Response.AddHeader "content-disposition", "filename=sample.rtf"
Response.Write RTF_OUTPUT

%>