SetColumnWidth

Purpose: Set the width of a column.

Returns: none

Argument	Type	Required	Purpose
1	Integer	Yes	Column Number. See column numbering.
2	Variant	Yes	Width of column.

 

With objMilestones

  'Start Milestones

  .Activate

  'Set the width of column 1 to 1.5 inches

  . SetColumnWidth 1, 1.5

  ' loop through 7 times to add 7 tasks

  For nCounter = 1 To 7

  strTemp = "This is Task Row " + CStr(nCounter)

  'Add the column text

  .PutCell nCounter, 1, strTemp

  strTemp = CStr(nCounter) + "/1/2000"

  'Add a single symbol to each task

  .AddSymbol nCounter, strTemp, nCounter

  'Force the task to redraw so it will display

  .Refreshtask nCounter

  Next nCounter

  .Refresh

  .Print

  'Leave the schedule open

  .KeepScheduleOpen

End With