PdfTableSetColumnWidth(tblHandle As Integer, column as Integer, width as double, extTable as Boolean) As Integer

Sets the width of a table column.

Parameters:

Name	Type	Description
tblHandle	Integer	The identification number (handle) of a table, obtained from the PdfTableCreate function.
column	Integer	The index of the column to set its width. First column index starts with 0.
width	Double	New width in points, for example: 20.0 The width of a column can be changed in two different ways: If the parameter extTable is set to true, then the difference of the current and new column width is added to the table width and the widths of all other columns is left unchanged. If extTable is set to false, the difference is subtracted from the next columns until the gap is zero. If the width of the column is larger as the table width then the table width is adjusted too. All other columns get a zero width in this case. The column widths should be set from lower to higher indexes and no value should be set for the last column. No column width should exceed the table width if extTable is set to false. Otherwise the widths of all other columns must be changed again. Change first the table width and then the column widths in such a case.
extTable	Boolean	Extend the table or adjust the other columns? True or False

Returns:

Type	Value	Description
Integer	1, 0 or -2	If the function succeeds the return value is 1. If the function fails the return value is 0. If an Exception occurs, the return value is -2.

Available in:

WindowMain	WindowLink
YES	YES

Used in:

XojoScript Name	GUID
Create Seminar Invoice With Slip As PDF	739DA58E-17EE-41CE-BB54-E7362CFE17D4
Create Seminar Invoice As PDF	2C3F7F29-A29A-4338-ACF5-51894B709DA5

Hint: You can find references to XojoScripts which make use of this function by sending the following SQL statement to the database:

Select id,GUID, ScriptName,ScriptCode from im_scripts where ScriptCode Like '%PdfTableSetColumnWidth%'

Example XojoScript:

Dim width As Double = 200.0

Dim rows As Integer = 3

Dim x,y As Double = 30.0

If PdfStart("testfile.pdf") > 0 Then

// Set top top-left as 0,0 coordinates

PdfSetPageCoordsTopDown

// Set output font and color

PdfSetFont("Arial","Regular",10.0)

Call PdfSetFillColor("&c00000000") // black textcolor

Dim hTbl As Integer = PdfTableCreate(rows,2,width,9.0)

If hTbl >= 0 Then

// Set width of first colum, the last column autoadjusts

Call PdfTableSetColumnWidth(hTbl, 0, 20.0, False)

// Set Font, Size and Style for table

Call PdfTableSetFont(hTbl,-1, -1, "Arial", 10.0, "Regular")

// Set outer border

Call PdfTableSetBorderWidth(hTbl,-1, -1, 0.0, 0.5, 0.0, 0.5)

// Set inner gridlines

Call PdfTableSetGridWidth(hTbl, 0.5,0.5)

// PdfTableSetCellPadding(table,row,column,left,top,right,bottom)

Call PdfTableSetCellPadding(hTbl,-1, 1, 5.0, 0.0, 5.0, 0.0) // column 2 (1st column is 0)

// Hold number of PDFTableRows created

Dim rowNum As Integer = 0

// Add rows and insert some text to cells

For i As Integer = 0 To rows-1

// Add rows

rowNum = PdfTableAddRow(hTbl)

Dim cnt As String = Str(rowNum+1)

// Add some text

Call PdfTableSetCellText(hTbl,rowNum, 0, "Left", "Top", cnt)

Call PdfTableSetCellText(hTbl,rowNum, 1, "Right", "Top", "Item" + cnt)

Next

// Draw the table out to pdf

Call PdfTableDraw(hTbl,x,y,0.0) // 0.0 = avoid pagebreaks

End If // hTbl >= 0

// Finalize PDF

Call PdfcloseFile

// Open PDF in default viewer

Call Pdflaunch

End If // PdfStart("testfile.pdf")