Where can specify the output font for a scripted HTML report

[dfalken]

Could someone please tell me if there anywhere I can specify the font size in this script. The script creates an HTML file which just uses the browsers default size and I would like it to tell the browser to use a smaller one. I would like it to be Arial 9pt for best viewing. This script was auto-generated using Avaya CMS Supervisor and I'm not much of a programmer I'm afraid.

Thanks,

'LANGUAGE=ENU
'SERVERNAME=192.168.0.16
Public Sub Main()

'## cvs_cmd_begin
'## ID = 2001
'## Description = "Report: Historical: Designer: Custom Agent Group Summary Multi-Day: Save HTML"
'## Parameters.Add "Report: Historical: Designer: Custom Agent Group Summary Multi-Day: Save HTML","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "1","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Historical\Designer\Custom Agent Group Summary Multi-Day","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "0","_Top"
'## Parameters.Add "1950","_Left"
'## Parameters.Add "11490","_Width"
'## Parameters.Add "11070","_Height"
'## Parameters.Add "The report Historical\Designer\Custom Agent Group Summary Multi-Day was not found on ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "REO Claims","Agent Group"
'## Parameters.Add "4/1/2007-4/30/2007","Dates"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "C:\Documents and Settings\wintrak\Desktop\Reports\Monthly Reports\REO Claims - Agent Group Summary Monthly.HTML","_Output"
'## Parameters.Add "","_Template"
'## Parameters.Add "True","_UseFonts"

On Error Resume Next

cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Designer\Custom Agent Group Summary Multi-Day")

If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Historical\Designer\Custom Agent Group Summary Multi-Day was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "The report Historical\Designer\Custom Agent Group Summary Multi-Day was not found on ACD 1."
Set Log = Nothing
End If
Else

b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then

Rep.Window.Top = 0
Rep.Window.Left = 1950
Rep.Window.Width = 11490
Rep.Window.Height = 11070



Rep.SetProperty "Agent Group","REO Claims"

Rep.SetProperty "Dates","4/1/2007-4/30/2007"




b = Rep.SaveHTML("C:\Documents and Settings\wintrak\Desktop\Reports\Monthly Reports\REO Claims - Agent Group Summary Monthly.HTML", True, "")





Rep.Quit



If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If

End If
Set Info = Nothing
'## cvs_cmd_end

End Sub