Message 1 of 2
Is there a way to adjust the width of a table column individually?

Not applicable
12-08-2008
02:17 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
I can't figure this one out. I can create the table and populate it with my data, but i'd like to be able to adjust the size of a couple of the columns. I found the table.columnwidth command but I can't find any info on this either here or on google. I only have 4 columns of data, but a variable number of rows.
Is there a way to do this?
Here's a code snippet with my table creation code (i'm reading records out of a database and populating a table here).
'Create the Table
Set table = ThisDrawing.ModelSpace.AddTable(pt, numRecords + 2, 4, 1, 3)
'Create the Table Headings
table.SetText 0, 0, "TENANT INFO"
table.SetText 1, 0, "UNIT"
table.SetText 1, 1, "TENANT"
table.SetText 1, 2, "SF"
table.SetText 1, 3, "ACM SF"
'Insert Record Data into the Table
For i = 1 To numRecords
table.SetText i + 1, 0, unitNo(i)
table.SetText i + 1, 1, tenantName(i)
table.SetText i + 1, 2, sf(i)
table.SetText i + 1, 3, acmsf(i)
Next
Is there a way to do this?
Here's a code snippet with my table creation code (i'm reading records out of a database and populating a table here).
'Create the Table
Set table = ThisDrawing.ModelSpace.AddTable(pt, numRecords + 2, 4, 1, 3)
'Create the Table Headings
table.SetText 0, 0, "TENANT INFO"
table.SetText 1, 0, "UNIT"
table.SetText 1, 1, "TENANT"
table.SetText 1, 2, "SF"
table.SetText 1, 3, "ACM SF"
'Insert Record Data into the Table
For i = 1 To numRecords
table.SetText i + 1, 0, unitNo(i)
table.SetText i + 1, 1, tenantName(i)
table.SetText i + 1, 2, sf(i)
table.SetText i + 1, 3, acmsf(i)
Next