Macro (SVB) Programs Example - Customizing Reports

The Report object includes various properties and methods to permit extensive customizations of fonts, colors, etc. Copying Cells from a Spreadsheet into a Report illustrates how to move information into the report window via the Clipboard. This simple example program demonstrates how text can be moved directly into the report and then formatted.

' This program illustrates how to modify text in report
' windows (objects)

Sub m
ain

Dim i As Long

' Create a new Report object

Set r=New Report

' Make the new Report visible

r.Visible=True

' "Set the cursor" by selecting the range of characters
' from the last character to the last character.

r.SetSelection(scLastCharacter, scLastCharacter)
r.
SelectionText = "Some text"

' Add carriage Return line feed.

r.SelectionText = vbCrLf

' "Remember" the current cursor position; note that
' the cursor position is referenced from 0.

' Function GetSelection(Start As Long, End As Long) will

' return the cursor position where the current text

' selection starts and ends; so variable i will "remember"

' the place following the vbCrLf.

r.GetSelection(i,i)

i=r.CharacterCount
r.SelectionText = "More text on the next line"

' Change the font of this text

r.SetSelection(i,scLastCharacter)
Set
Font=r.SelectionFont

Font.
Bold=True

Font.
Italic=True

' Set another line of text

r.SetSelection(scLastCharacter, scLastCharacter)

' Add carriage Return line feed

r.SelectionText = vbCrLf
r.
SelectionText = "Third line of text"

' Select all text from line 3 to line 4 (i.e., select line 3)

r.SetSelection(r.LineNumberToCharacterPosition(3), _
r.
LineNumberToCharacterPosition(4))

Set Font=r.
SelectionFont

' Set color to Blue (see the QBColor function for details)

Font.Color=QBColor(1)

End Sub

Refer to General SVB Syntax Documentation for additional details on how to set colors and predefined string constants useful for handling custom text.