ISLetter.StoreOnPrint

Description

This property is True if the letter is to be saved automatically when it is printed.

Syntax

object.StoreOnPrint

Part Attribute Type Description
object Required
The object always implements the ISLetter interface

Return Value

bool

Example

Display StoreOnPrint for the letter.

Dim aPatient
Dim aLetters, aLetter
Dim i
Dim aMessage

Set aPatient = Profile.SelectPatient
set aLetters = aPatient.GetLetters (1) ' slcfWordRTF

aMessage =_
  "The number of the letters of the selected format is " & aLetters.Count

for i = 0 to aLetters.Count - 1
  set aLetter = aLetters.Item(i)
  aMessage = aMessage & vbNewLine &_
    "Letter Date: " & aLetter.Date & vbNewLine &_
    "Letter Subject: " & aLetter.Subject2 & vbNewLine &_
    "Store On Print: " & aLetter.StoreOnPrint & vbNewLine
next

Profile.MsgBox (aMessage)  
Note:

In Profile Client v8 on User Interface the Save on Printing checkbox can be checked in Clinical > Medical Record > Documents > Open saved document > Information and Recipients or in Organisation > Work Centre > Communication > Letters > Open saved document > Information and Recipients.

Version information

Added in v7.8.0