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 main 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.
Copyright © 2021. Cloud Software Group, Inc. All Rights Reserved.