Table Object

Description

Represents a table with rows, columns and cells.

For a list of all members defined in this module, see Table members.

Object Model

Remarks

This class can be used to create tables. A table must contain at least one column and one row with at least one cell in that row. Formatting of each cell in the table is done in a hierarchical manner; in that a cell's formatting take precedent over a row's formatting which in turn takes precedent over a table's formatting . The column object contains no formatting information. Using the tables GetOverflowColumns and GetOverflowRows methods you can allow your table to easily flow onto other pages.

Interfaces

Implemented Interface	Description
Object

Example

[ASP - VBScript]

<!-- METADATA TYPE="typelib" UUID="{DF9225FE-94A4-490D-8CAD-E8366CE621D3}"--> 
<%  
    Option Explicit 
    Dim MyDocument 
    Dim MyTable 
    Dim MyPage 
    Set MyDocument = Server.CreateObject( "DynamicPDF.Document" ) 
    Set MyPage = MyDocument.AddPage() 
    Set MyTable = MyPage.AddTable( 0, 0, 600, 600 ) 
     
    ' Add columns to the table 
    MyTable.AddColumn ( 150 ) 
    MyTable.AddColumn ( 90 ) 
    MyTable.AddColumn ( 90 ) 
    MyTable.AddColumn ( 90 ) 
     
    ' Add rows to the table and add cells to the rows. The values 000000 and 808080 represent black and Gray Color 
    Dim MyRow1 
    Set MyRow1 = MyTable.AddRow( DPDF_Font_HelveticaBold, 16 , "000000", "808080" ) 
    MyRow1.Align = DPDF_Align_Center 
    MyRow1.VAlign = DPDF_VAlign_Center 
    MyRow1.AddCell ( "Header 1" ) 
    MyRow1.AddCell ( "Header 2" ) 
    MyRow1.AddCell ( "Header 3" ) 
    MyRow1.AddCell ( "Header 4" ) 
    Dim MyRow2 
    Dim MyCell1 
    Set MyRow2 = MyTable.AddRow() 
    Set MyCell1 = MyRow2.AddCell ( "Rowheader 1", DPDF_Font_HelveticaBold, 16 , "000000", "808080", 1 ) 
    MyCell1.Align = DPDF_Align_Center 
    MyCell1.VAlign = DPDF_VAlign_Center 
    MyRow2.AddCell ( "Item 1" ) 
    MyRow2.AddCell ( "Item 2" ) 
    MyRow2.AddCell ( "Item 3" ) 
    Dim MyRow3         
    Dim MyCell2 
    Set MyRow3 = MyTable.AddRow() 
    Set MyCell2 = MyRow3.AddCell( "Rowheader 2", DPDF_Font_HelveticaBold, 16, "000000", "808080", 1 ) 
    MyCell2.Align = DPDF_Align_Center 
    MyCell2.VAlign = DPDF_VAlign_Center 
    MyRow3.AddCell ( "Item 4" ) 
    MyRow3.AddCell ( "Item 5" ) 
    MyRow3.AddCell ( "Item 6" ) 
    Dim MyRow4      
    Dim MyCell3 
    Set MyRow4 = MyTable.AddRow() 
    Set MyCell3 = MyRow4.AddCell( "Rowheader 3", DPDF_Font_HelveticaBold, 16, "000000", "808080", 1 ) 
    MyCell3.Align = DPDF_Align_Center 
    MyCell3.VAlign = DPDF_VAlign_Center 
    MyRow4.AddCell ( "Item 7" ) 
    MyRow4.AddCell ( "Item 8" ) 
    MyRow4.AddCell ( "Item 9" ) 
    MyDocument.DrawToWeb 
    Set MyPage = Nothing 
    Set MyDocument = Nothing 
%>