S
S K
Hi-
We are observing a issue with Printing of Custom Form.
Code works absolutely fine in Outlook 2000 but fails in Outlook 2003
version(11.6568.6568) SP2.
Chr(13) does not seem to work. When I print, chr(13) seems to be ignored and
everything just prints as one line.
Pl. see code below..
'''''''''''''''''''''
Function GetProp(sProp)
GetProp = Item.UserProperties.Find(sProp).Value
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SetProp(sProp,vValue)
Item.UserProperties.Find(sProp).Value = vValue
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''
'''Print function
Sub UpdatePrintField()
Dim iProp
Dim strType
Dim strSymbol
Dim sPrint
Dim NL
Dim TB
Dim TB2
Dim TB3
Dim TB4
TB = Chr(9)
TB2 = TB & TB
TB3 = TB & TB & TB
TB4 = TB & TB & TB & TB
NL = Chr(13)
'General Tab
sPrint = sPrint & Item.Subject & NL
sPrint = sPrint & "Status: " & GetProp("Exp Status") & NL & NL
sPrint = sPrint &
"--------------------------------General---------------------------------" &
NL
sPrint = sPrint & "Date Created: " & TB3 & GetProp("dtmDate") & NL
' Copy
SetProp "Details", sPrint
End Sub
UpdatePrintField() is called in Function Item_Open.
"Display" field is of type text and validation tab I have selected
"Include this field for Printing and Save As".
Any ideas, Please help!
Thanks in advance-
Som
We are observing a issue with Printing of Custom Form.
Code works absolutely fine in Outlook 2000 but fails in Outlook 2003
version(11.6568.6568) SP2.
Chr(13) does not seem to work. When I print, chr(13) seems to be ignored and
everything just prints as one line.
Pl. see code below..
'''''''''''''''''''''
Function GetProp(sProp)
GetProp = Item.UserProperties.Find(sProp).Value
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SetProp(sProp,vValue)
Item.UserProperties.Find(sProp).Value = vValue
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''
'''Print function
Sub UpdatePrintField()
Dim iProp
Dim strType
Dim strSymbol
Dim sPrint
Dim NL
Dim TB
Dim TB2
Dim TB3
Dim TB4
TB = Chr(9)
TB2 = TB & TB
TB3 = TB & TB & TB
TB4 = TB & TB & TB & TB
NL = Chr(13)
'General Tab
sPrint = sPrint & Item.Subject & NL
sPrint = sPrint & "Status: " & GetProp("Exp Status") & NL & NL
sPrint = sPrint &
"--------------------------------General---------------------------------" &
NL
sPrint = sPrint & "Date Created: " & TB3 & GetProp("dtmDate") & NL
' Copy
SetProp "Details", sPrint
End Sub
UpdatePrintField() is called in Function Item_Open.
"Display" field is of type text and validation tab I have selected
"Include this field for Printing and Save As".
Any ideas, Please help!
Thanks in advance-
Som