ISOutputWindow.Width

Description

The width of the output window.

Syntax

object.Width

Part	Attribute	Type	Description
`object`	Required	ISOutputWindow	The `object` always implements the ISOutputWindow interface

Return Value

int

Example

Create the output window with some added information about the selected patient.

Dim aPatient
Dim aOutputWindow

Set aPatient = Profile.SelectPatient
set aOutputWindow = Profile.CreateOutputWindow 

aOutputWindow.Caption = "Information about " & aPatient.SurnameFirstName 
aOutputWindow.Height = 300 
aOutputWindow.Width = 400

aOutputWindow.AddText("First Name:" & vbTab & aPatient.FirstName) 
aOutputWindow.AddText("Surname:" & vbTab & vbTab & aPatient.Surname)
aOutputWindow.AddText("DOB:" & vbTab & vbTab & aPatient.DOB)
aOutputWindow.AddText("Sex:" & vbTab & vbTab & aPatient.Sex)

Note:

Version information

Added in v7.8.0