Page History
...
| Code Block |
|---|
/* The following example shows how to use the TEXTRTF message to bold text in the middle of a paragraph. */
declare function Set_Printer
stat = Set_Printer("INIT") ;* Start printing
stat = Set_Printer("TEXTRTF", "This is a {\b simple} RTF test.")
stat = Set_Printer("TERM") ;* End printing |
Example 2
...
| Code Block |
|---|
/* using RTF headers */
this = '{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fcharset0 Arial;}{\f1\fmodern\fprq1\fcharset0 Courier New;}{\f2\fswiss\fprq2\fcharset0 Arial;}}'
this: = '{\colortbl ;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;}'
this: = '{\*\generator Msftedit 5.41.15.1503;}\viewkind4\uc1\pard\b\f0\fs20 Hello.\b0 This is Arial and this is \f1 Courier.\par'
this: = '\f2 This is \cf1 red\cf0 , \cf2 green\cf0 and \cf3 blue\cf0 .\par'
this: = '\i OpenInsight OIPI TEXTRTF example.\i0\f0\par}'
stat = Set_printer("TEXTRTF",this) |
