SQL Object

FormattedPrint

 
Syntax
 
SQL.FormattedPrint Param
 
Description
Prints a text on the default selected printer accompanied by Tradium formatting codes.
 
Parameter
Description
Param
Alphanumeric, text with formatting codes. These codes are translated to the printer.
 
 
Specificatie opmaakcodes:
 
code
Effect
{storex}
save current horizontal position
{storey}
save current vertical position
{restorex}
reset saved horizontal position
{restorey}
reset stored vertical position
{portrait}
set printer for portrait printing
{landscape
set printer to landscape printing
{elite}
set font size to 12 points
{pica}
set font size to 10 points
{faton}, {boldon}
turn on boldface
{fatoff},{boldoff}
turn off boldface
{unlon}
Underline
{unloff}
Underline turn off
{cndon}
set font size at 7 points
{cndoff}
set font size to 12 points
{widon},{wideon}
Set font size to 18 points, with bold font also turned on
{widoff},{wideoff
Set font size to 12 points, with bold font also turned off
{itaon}
turn on italics
{itaoff}
Turn off italics
{crlf}
new line/paragraph
{ff},{formfeed}
new page
{eod},{eof}
end of document (printing completed)
{cr}
to beginning of current line (carriage return)
{lf}
To next line (line feed)
{datum,t}
current date in text format
{datum,d}
current date in numeric format
{tijd}
current time in hours:minutes
{invoer:caption}
insert variable text via input box function, where caption is the text for the input box
{fsize:points}
set font size to points
{fname:name
font set to name
{tab:num}
tabulator function, jumps in num positions based on the current font
{ftab:num}
tabulator function, jumps in num positions, based on a fixed, non-proportional, font (Courier New, bold, 12 points), which is overeenkomt met 80 tekens per regel
{moveu:mm}
moves the current position mm millimeters up
{moved:mm}
moves the current position mm millimeters down
{movel:mm}
moves the current position mm millimeters to the left
{mover:mm}
moves the current position mm millimeters to the right
{hline:mm}
draws a horizontal line of mm millimeters, from the current position. If mm has the value 0, the line is extended all the way to the right. With this function, the horizontal position remains unchanged
{vline:mm}
draws a vertical line of mm millimeters, from the current position. If mm has the value 0, the line is drawn all the way down
{memo:xx,yy,text} 
Prints text in a framed area, from the current horizontal and vertical position,
where the width (xx) and height (yy) is determined in characters, counted using the same fixed-font settings as the {ftab:num} function. The function also provides word hyphenation
 
See Also
PrintHexCodeDocument.
Example
Sub Main()
 
    Const FPRT_CRLF = "{crlf}"
    Const FPRT_FATON = "{faton}"
    Const FPRT_FATOFF = "{fatoff}"
    Const FPRT_ITAON = "{itaon}"
    Const FPRT_ITAOFF = "{itaoff}"
    Const T0 = "{ftab:5}"
    Const curCashAmount As Currency = 123.45
 
    FormattedPrint "{fname:Arial}{fsize:11}"
    FormattedPrint FPRT_CRLF & FPRT_CRLF & _
                   FPRT_CRLF & FPRT_CRLF
    FormattedPrint T0 & FPRT_FATON & "{datum,t}" & FPRT_FATOFF & FPRT_CRLF
    FormattedPrint "DOCUMENTVOORBEELD VOOR RITTENLIJST" & FPRT_CRLF
 
    FormattedPrint "{hline:0}" ' streep maken
 
    FormattedPrint T0 & "Bijlage voor ritlijst: KASVERANTWOORDINGSTAAT" & _
                   FPRT_CRLF & FPRT_CRLF
    FormattedPrint T0 & "Totaal afdragen aan de kassier: " & FPRT_FATON & _
                   Format$(curCashAmount, "0.00") & _
                   FPRT_FATOFF & FPRT_CRLF & FPRT_CRLF
 
    FormattedPrint "{hline:0}" ' streep maken
 
    FormattedPrint T0 & FPRT_ITAON & "Opmerkingen: " & FPRT_ITAOFF & _
                   FPRT_CRLF & FPRT_CRLF
 
    ' tekstregels voor handschrift maken
    For x = 1 To 17
        FormattedPrint T0 & String$(70, "_") & FPRT_CRLF & FPRT_CRLF
    Next x
 
    FormattedPrint "{hline:0}" ' streep maken
 
    FormattedPrint FPRT_CRLF & FPRT_CRLF & T0 & _
                   "Handtekening afdracht kasgeld:" & _
                   FPRT_CRLF & FPRT_CRLF & FPRT_CRLF
    FormattedPrint T0 & "-------------------" & FPRT_CRLF
 
    FormattedPrint "{EOD}"
 
End Sub