This documentation is archived and is not being maintained.

Vertical Property [Access 2003 VBA Language Reference]

Office 2003

You can use the Vertical property to set a form control for vertical display and editing or set a report control for vertical display and printing. Read/write Boolean.

expression.Vertical

expression Required. An expression that returns one of the objects in the Applies To list.

Setting Visual Basic Description
Yes True Displays, edits, and prints vertical text.
No False Does not display, edit, or print vertical text. (default)

Remarks

You can set the Vertical property by using the property sheet , a macro , or Visual Basic .

You can specify how vertical text will be displayed, edited, or printed in the control by setting the Vertical property. If set to Yes, the starting point for inputting text is the upper right corner of the control (the ending point is the lower left corner of the control). If using full pitch characters, the display and print directions are the same as the control for horizontal text. If using half pitch characters, it shifts 90 degrees to the right. The cursor is also rotated 90 degrees to the right in a vertical text control.

Note  Text selection using key combinations is different for vertical text control and horizontal text control. Key combinations and their effect on range selection are described below.

Key combination Selected range
Shift+Up Vertical: One character before the cursor.
Horizontal: One line before the cursor.
Shift+Down Vertical: One character after the cursor.
Horizontal: One line after the cursor.
Shift+Right Vertical: One line after the cursor.
Horizontal: One character before the cursor.
Shift+Left Vertical: One line before the cursor.
Horizontal: One character after the cursor.

Example

The following example prints a message in the Immediate window indicating whether the control "text13" in the "Product Summary" report displays, edits, or prints vertical text.

Debug.Print "Vertical = " & Reports.Item("Product Summary"). _  
    Controls.Item("text13").Vertical
		




Show: