91:
How can I find out if the user clicks the grid's header
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Showln "Type of ColumnFromPoint: " (ComColumnFromPoint(Self,-1,-1)) " should not be VT_NULL"
	Showln "Type of ValueFromPoint: " (ComValueFromPoint(Self,-1,-1)) " should be VT_NULL"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)"
End_Procedure
90:
What should I set FormatPivotHeader to, to show it on the columns header only

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)/12"
	Set ComFormatPivotHeader to "(iaggregate ? ( caption + ` <off -6><font ;6>(` + lower(caggregate) + ')</off></font>') : caption) + ( ( display=1 ? `<c>Date: <b><upline><dotline>` + date(`now`) : `` ) + `</dotline> </b>` )"
	Send ComEndUpdate
End_Procedure
89:
What should I set FormatPivotHeader to, to show "Report Generated on 7/9/2016 14:20" etc when the report is executed (ie the date and time will change)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)/12"
	Set ComFormatPivotHeader to "(iaggregate ? (`<b>` + caption + `</b> <off -6><font ;6>(` + lower(caggregate) + ')</off></font>') : caption) + `<r>ReportDate: ` + date(`now`)"
	Send ComEndUpdate
End_Procedure
88:
Is it possible to display aggregate result on parent rows as well

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHeaderHeight to 22
	Set ComDefaultItemHeight to 20
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "12[bold],0"
	Variant voFormatConditionalAppearances
	Get ComFormatConditionalAppearances to voFormatConditionalAppearances
	Handle hoFormatConditionalAppearances
	Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
	Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
		Variant voFormatConditionalAppearance
		Get ComAdd of hoFormatConditionalAppearances "nempty" "not empty" "" to voFormatConditionalAppearance
		Handle hoFormatConditionalAppearance
		Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
		Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
			Set ComExpression of hoFormatConditionalAppearance to "len(value) != 0"
			Set ComBackColor of hoFormatConditionalAppearance to (RGB(240,240,240))
		Send Destroy to hoFormatConditionalAppearance
	Send Destroy to hoFormatConditionalAppearances
	Set ComPivotColumns to "sum(5)[nempty]/6"
	Set ComIncludeExpandColumn to OLEexIncludeExpandColumn
	Set ComDrawGridLines to OLEexNoLines
	Set ComShowBranchRows to (OLEexBranchIncludeAggregate + OLEexBranchTree)
	Send ComEndUpdate
End_Procedure
87:
How do I show expanded/collapsed rows

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHeaderHeight to 22
	Set ComDefaultItemHeight to 20
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "12[bold],0"
	Variant voFormatConditionalAppearances
	Get ComFormatConditionalAppearances to voFormatConditionalAppearances
	Handle hoFormatConditionalAppearances
	Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
	Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
		Variant voFormatConditionalAppearance
		Get ComAdd of hoFormatConditionalAppearances "nempty" "not empty" "" to voFormatConditionalAppearance
		Handle hoFormatConditionalAppearance
		Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
		Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
			Set ComExpression of hoFormatConditionalAppearance to "len(value) != 0"
			Set ComBackColor of hoFormatConditionalAppearance to (RGB(240,240,240))
		Send Destroy to hoFormatConditionalAppearance
	Send Destroy to hoFormatConditionalAppearances
	Set ComPivotColumns to "sum(5)[nempty]/6"
	Set ComIncludeExpandColumn to OLEexIncludeExpandColumn
	Set ComDrawGridLines to OLEexNoLines
	Send ComEndUpdate
End_Procedure
86:
How do I show expanded/collapsed columns

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHeaderHeight to 22
	Set ComDefaultItemHeight to 20
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Variant voFormatConditionalAppearances
	Get ComFormatConditionalAppearances to voFormatConditionalAppearances
	Handle hoFormatConditionalAppearances
	Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
	Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
		Variant voFormatConditionalAppearance
		Get ComAdd of hoFormatConditionalAppearances "nempty" "not empty" "" to voFormatConditionalAppearance
		Handle hoFormatConditionalAppearance
		Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
		Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
			Set ComExpression of hoFormatConditionalAppearance to "len(value) != 0"
			Set ComBackColor of hoFormatConditionalAppearance to (RGB(240,240,240))
		Send Destroy to hoFormatConditionalAppearance
	Send Destroy to hoFormatConditionalAppearances
	Set ComPivotColumns to "sum(5)[nempty]/12"
	Set ComFormatPivotHeader to "(iaggregate ? ( caption + ` <r>[` + lower(caggregate) + `]` ) : caption)"
	Set ComIncludeExpandColumn to OLEexIncludeExpandColumn
	Send ComEndUpdate
End_Procedure
85:
Where you have say "Sum of ...." as the first row heading of the pivot are there and options to be able to change this text as a whole

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Variant voFormatConditionalAppearances
	Get ComFormatConditionalAppearances to voFormatConditionalAppearances
	Handle hoFormatConditionalAppearances
	Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
	Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
		Variant voFormatConditionalAppearance
		Get ComAdd of hoFormatConditionalAppearances "nempty" "not empty" "" to voFormatConditionalAppearance
		Handle hoFormatConditionalAppearance
		Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
		Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
			Set ComExpression of hoFormatConditionalAppearance to "len(value) != 0"
			Set ComBackColor of hoFormatConditionalAppearance to (RGB(240,240,240))
		Send Destroy to hoFormatConditionalAppearance
	Send Destroy to hoFormatConditionalAppearances
	Set ComPivotColumns to "sum(5)[nempty]/12"
	Set ComFormatPivotHeader to "(iaggregate ? (`<b>` + caption + `</b> <off -6><font ;6>(` + lower(caggregate) + ' )') : caption)"
	Send ComEndUpdate
End_Procedure
84:
How can I get the data column from the cursor
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Showln "DataColumn" (ComDataColumnFromPoint(Self,-1,-1))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)[content=numeric]"
	Send ComRefresh
End_Procedure
83:
Is there any way for the user to change the alignment at runtime (using excontextmenu)

// Occurs once the user right clicks the control.
Procedure OnComRClick 
	Forward Send OnComRClick 
	Variant v
	Variant voColumns
	Get ComDataColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns 5 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComAlignment of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant h
	Move v to h
	Variant c
	Get Comcreateobject "Exontrol.ContextMenu" to c
		Set ComFlatImageWidth to 0
		Set ComToString to "Alignment[align=1][dis],[group=0x71](Left[typ=2][grp=100][close=0][id=0],Center[typ=2][grp=100][close=0][id=1],Right[typ=2][grp=100][close=0][id=2])"
		Variant voitem
		Get Comitem h to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComChecked of hoitem to True
		Send Destroy to hoitem
		Get ComSelect Nothing Nothing Nothing to h
	Variant voColumns1
	Get ComDataColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComItem of hoColumns1 5 to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComAlignment of hoColumn1 to h
			Set ComHeaderAlignment of hoColumn1 to h
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Send ComRefresh
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComPivotBarVisible to (OLEexPivotBarAllowResizeColumns + OLEexPivotBarAllowUndoRedo + OLEexPivotBarAutoUpdate + OLEexPivotBarShowTotals + OLEexPivotBarAutoFit + OLEexPivotBarVisible)
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voColumns2
	Get ComDataColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn2
		Get ComItem of hoColumns2 5 to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComAlignment of hoColumn2 to OLERightAlignment
			Set ComHeaderAlignment of hoColumn2 to OLERightAlignment
		Send Destroy to hoColumn2
	Send Destroy to hoColumns2
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)[content=numeric]"
	Send ComRefresh
End_Procedure
82:
Is there any way for the user to change the alignment at runtime

// Occurs once the user right clicks the control.
Procedure OnComRClick 
	Forward Send OnComRClick 
	Showln "The column gets aligned to the center"
	Variant voColumns
	Get ComDataColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns 5 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComAlignment of hoColumn to OLECenterAlignment
			Set ComHeaderAlignment of hoColumn to OLECenterAlignment
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Send ComRefresh
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voColumns1
	Get ComDataColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComItem of hoColumns1 5 to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComAlignment of hoColumn1 to OLERightAlignment
			Set ComHeaderAlignment of hoColumn1 to OLERightAlignment
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)[content=numeric]"
	Send ComRefresh
End_Procedure
81:
How can I align a column to the right

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voColumns
	Get ComDataColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns 5 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComAlignment of hoColumn to OLERightAlignment
			Set ComHeaderAlignment of hoColumn to OLERightAlignment
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)[content=numeric]"
	Send ComRefresh
End_Procedure
80:
How can I display the control's content on an single A3 paper size, when using PDF format
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voFormatConditionalAppearances
	Get ComFormatConditionalAppearances to voFormatConditionalAppearances
	Handle hoFormatConditionalAppearances
	Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
	Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
		Variant voFormatConditionalAppearance
		Get ComItem of hoFormatConditionalAppearances "positive" to voFormatConditionalAppearance
		Handle hoFormatConditionalAppearance
		Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
		Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
			Set ComBackColor of hoFormatConditionalAppearance to |CI$100ff00
		Send Destroy to hoFormatConditionalAppearance
	Send Destroy to hoFormatConditionalAppearances
	Variant voFormatConditionalAppearances1
	Get ComFormatConditionalAppearances to voFormatConditionalAppearances1
	Handle hoFormatConditionalAppearances1
	Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances1
	Set pvComObject of hoFormatConditionalAppearances1 to voFormatConditionalAppearances1
		Variant voFormatConditionalAppearance1
		Get ComItem of hoFormatConditionalAppearances1 "negative" to voFormatConditionalAppearance1
		Handle hoFormatConditionalAppearance1
		Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance1
		Set pvComObject of hoFormatConditionalAppearance1 to voFormatConditionalAppearance1
			Set ComBackColor of hoFormatConditionalAppearance1 to |CI$10000ff
		Send Destroy to hoFormatConditionalAppearance1
	Send Destroy to hoFormatConditionalAppearances1
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)[positive,negative]/12"
	Send ComExpandAll
	Variant var_CopyTo
	Get ComCopyTo "C:\Temp\Preview.pdf|11.69 in x 16.53 in||single" to var_CopyTo
	Showln "Look for C:\Temp\Preview.pd file."
	Send ComEndUpdate
End_Procedure
79:
How can I display the control's content on an A3 paper size, when using PDF format
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voFormatConditionalAppearances
	Get ComFormatConditionalAppearances to voFormatConditionalAppearances
	Handle hoFormatConditionalAppearances
	Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
	Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
		Variant voFormatConditionalAppearance
		Get ComItem of hoFormatConditionalAppearances "positive" to voFormatConditionalAppearance
		Handle hoFormatConditionalAppearance
		Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
		Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
			Set ComBackColor of hoFormatConditionalAppearance to |CI$100ff00
		Send Destroy to hoFormatConditionalAppearance
	Send Destroy to hoFormatConditionalAppearances
	Variant voFormatConditionalAppearances1
	Get ComFormatConditionalAppearances to voFormatConditionalAppearances1
	Handle hoFormatConditionalAppearances1
	Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances1
	Set pvComObject of hoFormatConditionalAppearances1 to voFormatConditionalAppearances1
		Variant voFormatConditionalAppearance1
		Get ComItem of hoFormatConditionalAppearances1 "negative" to voFormatConditionalAppearance1
		Handle hoFormatConditionalAppearance1
		Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance1
		Set pvComObject of hoFormatConditionalAppearance1 to voFormatConditionalAppearance1
			Set ComBackColor of hoFormatConditionalAppearance1 to |CI$10000ff
		Send Destroy to hoFormatConditionalAppearance1
	Send Destroy to hoFormatConditionalAppearances1
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)[positive,negative]/12"
	Send ComExpandAll
	Variant var_CopyTo
	Get ComCopyTo "C:\Temp\Preview.pdf|11.69 in x 16.53 in" to var_CopyTo
	Showln "Look for C:\Temp\Preview.pd file."
	Send ComEndUpdate
End_Procedure
78:
How can I export the control's content to a PDF document (method 1)
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voFormatConditionalAppearances
	Get ComFormatConditionalAppearances to voFormatConditionalAppearances
	Handle hoFormatConditionalAppearances
	Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
	Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
		Variant voFormatConditionalAppearance
		Get ComItem of hoFormatConditionalAppearances "positive" to voFormatConditionalAppearance
		Handle hoFormatConditionalAppearance
		Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
		Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
			Set ComBackColor of hoFormatConditionalAppearance to |CI$100ff00
		Send Destroy to hoFormatConditionalAppearance
	Send Destroy to hoFormatConditionalAppearances
	Variant voFormatConditionalAppearances1
	Get ComFormatConditionalAppearances to voFormatConditionalAppearances1
	Handle hoFormatConditionalAppearances1
	Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances1
	Set pvComObject of hoFormatConditionalAppearances1 to voFormatConditionalAppearances1
		Variant voFormatConditionalAppearance1
		Get ComItem of hoFormatConditionalAppearances1 "negative" to voFormatConditionalAppearance1
		Handle hoFormatConditionalAppearance1
		Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance1
		Set pvComObject of hoFormatConditionalAppearance1 to voFormatConditionalAppearance1
			Set ComBackColor of hoFormatConditionalAppearance1 to |CI$10000ff
		Send Destroy to hoFormatConditionalAppearance1
	Send Destroy to hoFormatConditionalAppearances1
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)[positive,negative]/12"
	Send ComExpandAll
	Send ComEndUpdate
	Handle hoPrint
	Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
		Set ComPrintExt of hoPrint to (pvComObject(Self))
		Get ComCopyTo of hoPrint "c:/temp/xtest.pdf" to Nothing
	Send Destroy to hoPrint
	Showln "Look for C:\Temp\xtest.pdf file."
	Send ComEndUpdate
End_Procedure
77:
How can I export the control's content to a PDF document (method 2)
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voFormatConditionalAppearances
	Get ComFormatConditionalAppearances to voFormatConditionalAppearances
	Handle hoFormatConditionalAppearances
	Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
	Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
		Variant voFormatConditionalAppearance
		Get ComItem of hoFormatConditionalAppearances "positive" to voFormatConditionalAppearance
		Handle hoFormatConditionalAppearance
		Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
		Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
			Set ComBackColor of hoFormatConditionalAppearance to |CI$100ff00
		Send Destroy to hoFormatConditionalAppearance
	Send Destroy to hoFormatConditionalAppearances
	Variant voFormatConditionalAppearances1
	Get ComFormatConditionalAppearances to voFormatConditionalAppearances1
	Handle hoFormatConditionalAppearances1
	Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances1
	Set pvComObject of hoFormatConditionalAppearances1 to voFormatConditionalAppearances1
		Variant voFormatConditionalAppearance1
		Get ComItem of hoFormatConditionalAppearances1 "negative" to voFormatConditionalAppearance1
		Handle hoFormatConditionalAppearance1
		Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance1
		Set pvComObject of hoFormatConditionalAppearance1 to voFormatConditionalAppearance1
			Set ComBackColor of hoFormatConditionalAppearance1 to |CI$10000ff
		Send Destroy to hoFormatConditionalAppearance1
	Send Destroy to hoFormatConditionalAppearances1
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)[positive,negative]/12"
	Send ComExpandAll
	Variant var_CopyTo
	Get ComCopyTo "c:/temp/xtest.pdf" to var_CopyTo
	Showln "Look for C:\Temp\xtest.pdf file."
	Send ComEndUpdate
End_Procedure
76:
Does / could the control have a read-only mode by where I could load the data and layout and just use the control to display it and allow the user to scroll around it / print it but not change it
Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)[content=numeric]"
	Set ComDisplayFilterList to OLEexNoItems
	Set ComPivotBarVisible to (OLEexPivotBarReadOnly + OLEexPivotBarAutoUpdate + OLEexPivotBarAutoFit + OLEexPivotBarVisible)
	Send ComRefresh
End_Procedure
75:
Is it possible to edit the conditional-expression at runtime

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voFormatConditionalAppearances
	Get ComFormatConditionalAppearances to voFormatConditionalAppearances
	Handle hoFormatConditionalAppearances
	Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
	Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
		Variant voFormatConditionalAppearance
		Get ComAdd of hoFormatConditionalAppearances "custom" "custom" "" to voFormatConditionalAppearance
		Handle hoFormatConditionalAppearance
		Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
		Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
			Set ComBold of hoFormatConditionalAppearance to True
			Set ComFontSize of hoFormatConditionalAppearance to 12
			Set ComExpression of hoFormatConditionalAppearance to "value > 2000"
			Set ComContextEditExpression of hoFormatConditionalAppearance to True
		Send Destroy to hoFormatConditionalAppearance
	Send Destroy to hoFormatConditionalAppearances
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)[custom]/12"
	Send ComEndUpdate
End_Procedure
74:
How can I highlight values using EBN colors

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voFormatConditionalAppearances
	Get ComFormatConditionalAppearances to voFormatConditionalAppearances
	Handle hoFormatConditionalAppearances
	Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
	Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
		Variant voFormatConditionalAppearance
		Get ComItem of hoFormatConditionalAppearances "positive" to voFormatConditionalAppearance
		Handle hoFormatConditionalAppearance
		Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
		Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
			Set ComBackColor of hoFormatConditionalAppearance to |CI$100ff00
		Send Destroy to hoFormatConditionalAppearance
	Send Destroy to hoFormatConditionalAppearances
	Variant voFormatConditionalAppearances1
	Get ComFormatConditionalAppearances to voFormatConditionalAppearances1
	Handle hoFormatConditionalAppearances1
	Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances1
	Set pvComObject of hoFormatConditionalAppearances1 to voFormatConditionalAppearances1
		Variant voFormatConditionalAppearance1
		Get ComItem of hoFormatConditionalAppearances1 "negative" to voFormatConditionalAppearance1
		Handle hoFormatConditionalAppearance1
		Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance1
		Set pvComObject of hoFormatConditionalAppearance1 to voFormatConditionalAppearance1
			Set ComBackColor of hoFormatConditionalAppearance1 to |CI$10000ff
		Send Destroy to hoFormatConditionalAppearance1
	Send Destroy to hoFormatConditionalAppearances1
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)[positive,negative]/12"
	Send ComEndUpdate
End_Procedure
73:
How do I mark not-empty values in the chart

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Variant voFormatConditionalAppearances
	Get ComFormatConditionalAppearances to voFormatConditionalAppearances
	Handle hoFormatConditionalAppearances
	Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
	Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
		Variant voFormatConditionalAppearance
		Get ComAdd of hoFormatConditionalAppearances "nempty" "not empty" "" to voFormatConditionalAppearance
		Handle hoFormatConditionalAppearance
		Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
		Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
			Set ComExpression of hoFormatConditionalAppearance to "len(value) != 0"
			Set ComBackColor of hoFormatConditionalAppearance to (RGB(240,240,240))
		Send Destroy to hoFormatConditionalAppearance
	Send Destroy to hoFormatConditionalAppearances
	Set ComPivotColumns to "sum(5)[nempty]/12"
	Send ComEndUpdate
End_Procedure
72:
How can I highlight negative and positive values in the same chart

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)[negative,positive]/12"
	Send ComEndUpdate
End_Procedure
71:
How can I highlight values that starts with a letter

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voFormatConditionalAppearances
	Get ComFormatConditionalAppearances to voFormatConditionalAppearances
	Handle hoFormatConditionalAppearances
	Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
	Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
		Variant voFormatConditionalAppearance
		Get ComAdd of hoFormatConditionalAppearances "f" "starts with f" "lower(value) startwith `f`" to voFormatConditionalAppearance
		Handle hoFormatConditionalAppearance
		Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
		Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
			Set ComExpression of hoFormatConditionalAppearance to "lower(value) startwith `f`"
			Set ComShadow of hoFormatConditionalAppearance to (RGB(1,0,0))
			Set ComShadowOffset of hoFormatConditionalAppearance to 0
		Send Destroy to hoFormatConditionalAppearance
	Send Destroy to hoFormatConditionalAppearances
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0[f]"
	Send ComEndUpdate
End_Procedure
70:
How can I mark values greater than a value, 100 for instance

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voFormatConditionalAppearances
	Get ComFormatConditionalAppearances to voFormatConditionalAppearances
	Handle hoFormatConditionalAppearances
	Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
	Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
		Variant voFormatConditionalAppearance
		Get ComAdd of hoFormatConditionalAppearances "greater100" ">100" "value > 100" to voFormatConditionalAppearance
		Handle hoFormatConditionalAppearance
		Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
		Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
			Set ComExpression of hoFormatConditionalAppearance to "( dbl(value) != 0 ) ? (value > 100) : 0"
			Set ComForeColor of hoFormatConditionalAppearance to (RGB(255,0,0))
		Send Destroy to hoFormatConditionalAppearance
	Send Destroy to hoFormatConditionalAppearances
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)[greater100,content=numeric]"
	Send ComEndUpdate
End_Procedure
69:
How can I remove the Conditional context-menu

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComPivotBarVisible to (OLEexPivotBarAllowResizeColumns + OLEexPivotBarAllowUndoRedo + OLEexPivotBarAutoUpdate + OLEexPivotBarAllowFormatContent + OLEexPivotBarAllowFormatAppearance + OLEexPivotBarAllowValues + OLEexPivotBarShowTotals + OLEexPivotBarAutoFit + OLEexPivotBarSizable + OLEexPivotBarVisible)
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)[content=numeric]"
	Send ComEndUpdate
End_Procedure
68:
How do change the way the negative/positive numbers show when using conditional-format

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voFormatConditionalAppearances
	Get ComFormatConditionalAppearances to voFormatConditionalAppearances
	Handle hoFormatConditionalAppearances
	Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
	Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
		Variant voFormatConditionalAppearance
		Get ComItem of hoFormatConditionalAppearances "negative" to voFormatConditionalAppearance
		Handle hoFormatConditionalAppearance
		Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
		Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
			Set ComBackColor of hoFormatConditionalAppearance to (RGB(0,0,0))
			Set ComForeColor of hoFormatConditionalAppearance to (RGB(128,128,128))
			Set ComFontSize of hoFormatConditionalAppearance to 8
		Send Destroy to hoFormatConditionalAppearance
	Send Destroy to hoFormatConditionalAppearances
	Variant voFormatConditionalAppearances1
	Get ComFormatConditionalAppearances to voFormatConditionalAppearances1
	Handle hoFormatConditionalAppearances1
	Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances1
	Set pvComObject of hoFormatConditionalAppearances1 to voFormatConditionalAppearances1
		Variant voFormatConditionalAppearance1
		Get ComItem of hoFormatConditionalAppearances1 "positive" to voFormatConditionalAppearance1
		Handle hoFormatConditionalAppearance1
		Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance1
		Set pvComObject of hoFormatConditionalAppearance1 to voFormatConditionalAppearance1
			Set ComBackColor of hoFormatConditionalAppearance1 to (RGB(0,0,0))
			Set ComForeColor of hoFormatConditionalAppearance1 to (RGB(1,0,0))
			Set ComFontSize of hoFormatConditionalAppearance1 to 11
		Send Destroy to hoFormatConditionalAppearance1
	Send Destroy to hoFormatConditionalAppearances1
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)[negative,positive,content=numeric]"
	Send ComEndUpdate
End_Procedure
67:
How do I highlight the negative values with white color or black

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voFormatConditionalAppearances
	Get ComFormatConditionalAppearances to voFormatConditionalAppearances
	Handle hoFormatConditionalAppearances
	Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
	Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
		Variant voFormatConditionalAppearance
		Get ComItem of hoFormatConditionalAppearances "negative" to voFormatConditionalAppearance
		Handle hoFormatConditionalAppearance
		Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
		Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
			Set ComBackColor of hoFormatConditionalAppearance to (RGB(1,0,0))
			Set ComForeColor of hoFormatConditionalAppearance to (RGB(255,255,255))
		Send Destroy to hoFormatConditionalAppearance
	Send Destroy to hoFormatConditionalAppearances
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)[negative,content=numeric]"
	Send ComEndUpdate
End_Procedure
66:
Does your control support conditional-format, so I can highlight certain values

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)[negative,content=numeric]"
	Send ComEndUpdate
End_Procedure
65:
How do I add a computed column/field, like VAT for instance (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAggregates
	Get ComAggregates to voAggregates
	Handle hoAggregates
	Get Create (RefClass(cComAggregates)) to hoAggregates
	Set pvComObject of hoAggregates to voAggregates
		Variant voAggregate
		Get ComAdd of hoAggregates "vat19" "sum" "VAT 19%" "VAT 19%" to voAggregate
		Handle hoAggregate
		Get Create (RefClass(cComAggregate)) to hoAggregate
		Set pvComObject of hoAggregate to voAggregate
			Set ComFormatValue of hoAggregate to "value * 0.19"
		Send Destroy to hoAggregate
		Variant voAggregate1
		Get ComAdd of hoAggregates "vat24" "sum" "VAT 24%" "VAT 24%" to voAggregate1
		Handle hoAggregate1
		Get Create (RefClass(cComAggregate)) to hoAggregate1
		Set pvComObject of hoAggregate1 to voAggregate1
			Set ComFormatValue of hoAggregate1 to "value * 0.24"
		Send Destroy to hoAggregate1
	Send Destroy to hoAggregates
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)[content=numeric],vat19(5)[bold,content=numeric],vat24(5)[bold,content=numeric]"
	Send ComEndUpdate
End_Procedure
64:
How do I add a computed column/field, like VAT for instance (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voFormatContents
	Get ComFormatContents to voFormatContents
	Handle hoFormatContents
	Get Create (RefClass(cComFormatContents)) to hoFormatContents
	Set pvComObject of hoFormatContents to voFormatContents
		Variant voFormatContent
		Get ComAdd of hoFormatContents "vat19" "VAT 19%" Nothing to voFormatContent
		Handle hoFormatContent
		Get Create (RefClass(cComFormatContent)) to hoFormatContent
		Set pvComObject of hoFormatContent to voFormatContent
			Set ComExpression of hoFormatContent to "len(value) ? ((value * 1.19) format '') : ''"
		Send Destroy to hoFormatContent
	Send Destroy to hoFormatContents
	Variant voFormatContents1
	Get ComFormatContents to voFormatContents1
	Handle hoFormatContents1
	Get Create (RefClass(cComFormatContents)) to hoFormatContents1
	Set pvComObject of hoFormatContents1 to voFormatContents1
		Variant voFormatContent1
		Get ComAdd of hoFormatContents1 "vat24" "VAT 24%" Nothing to voFormatContent1
		Handle hoFormatContent1
		Get Create (RefClass(cComFormatContent)) to hoFormatContent1
		Set pvComObject of hoFormatContent1 to voFormatContent1
			Set ComExpression of hoFormatContent1 to "len(value) ? ((value * 1.24) format '') : ''"
		Send Destroy to hoFormatContent1
	Send Destroy to hoFormatContents1
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)[content=numeric],sum(5)[bold,content=vat19],sum(5)[bold,content=vat24]"
	Send ComEndUpdate
End_Procedure
63:
How can I hide some values for instance negative values

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voFormatContents
	Get ComFormatContents to voFormatContents
	Handle hoFormatContents
	Get Create (RefClass(cComFormatContents)) to hoFormatContents
	Set pvComObject of hoFormatContents to voFormatContents
		Variant voFormatContent
		Get ComAdd of hoFormatContents "hiden" "hide negative" Nothing to voFormatContent
		Handle hoFormatContent
		Get Create (RefClass(cComFormatContent)) to hoFormatContent
		Set pvComObject of hoFormatContent to voFormatContent
			Set ComExpression of hoFormatContent to "value < 0 ? `` : value"
		Send Destroy to hoFormatContent
	Send Destroy to hoFormatContents
	Variant voFormatContents1
	Get ComFormatContents to voFormatContents1
	Handle hoFormatContents1
	Get Create (RefClass(cComFormatContents)) to hoFormatContents1
	Set pvComObject of hoFormatContents1 to voFormatContents1
		Variant voFormatContent1
		Get ComAdd of hoFormatContents1 "hidep" "hide positive" Nothing to voFormatContent1
		Handle hoFormatContent1
		Get Create (RefClass(cComFormatContent)) to hoFormatContent1
		Set pvComObject of hoFormatContent1 to voFormatContent1
			Set ComExpression of hoFormatContent1 to "value > 0 ? `` : value"
		Send Destroy to hoFormatContent1
	Send Destroy to hoFormatContents1
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)[bold],sum(5)[content=hiden],sum(5)[content=hidep]"
	Send ComEndUpdate
End_Procedure
62:
How can I decode the Layout property

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)/12"
	Set ComLayout to "Columns =1;C0.Width = 64"
	Handle hoPrint
	Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
		Variant vText64
			Get ComLayout to vText64
		Showln (ComDecode64TextW(hoPrint,vText64))
	Send Destroy to hoPrint
	Send ComEndUpdate
End_Procedure
61:
How can I specify the sorting type, so the column gets sorted as numeric for instance

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "1,1#11,11#101,101" "eor='#' eof=',' hdr=0" to Nothing
	Variant voColumns
	Get ComDataColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns 0 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComCaption of hoColumn to "Numeric"
			Set ComSortType of hoColumn to OLESortNumeric
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComDataColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComItem of hoColumns1 1 to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComCaption of hoColumn1 to "String (default)"
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Set ComPivotRows to "0"
	Send ComRefresh
End_Procedure
60:
How can I disable the control's context menu
Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotBarVisible to (OLEexPivotBarAllowResizeColumns + OLEexPivotBarAllowUndoRedo + OLEexPivotBarAutoUpdate + OLEexPivotBarAllowValues + OLEexPivotBarShowTotals + OLEexPivotBarAutoFit + OLEexPivotBarSizable + OLEexPivotBarVisible)
End_Procedure
59:
How do I get the captions of the columns
Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant v
	Variant voColumns
	Get ComDataColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComCount of hoColumns to v
	Send Destroy to hoColumns
	Showln v
	Variant v1
	Variant voColumns1
	Get ComDataColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComItem of hoColumns1 0 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComPivotCaption of hoColumn to v1
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Showln v1
	Variant v2
	Variant voColumns2
	Get ComDataColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn1
		Get ComItem of hoColumns2 0 to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Get ComCaption of hoColumn1 to v2
		Send Destroy to hoColumn1
	Send Destroy to hoColumns2
	Showln v2
	Variant v3
	Variant voColumns3
	Get ComDataColumns to voColumns3
	Handle hoColumns3
	Get Create (RefClass(cComColumns)) to hoColumns3
	Set pvComObject of hoColumns3 to voColumns3
		Variant voColumn2
		Get ComItem of hoColumns3 1 to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Get ComPivotCaption of hoColumn2 to v3
		Send Destroy to hoColumn2
	Send Destroy to hoColumns3
	Showln v3
	Variant v4
	Variant voColumns4
	Get ComDataColumns to voColumns4
	Handle hoColumns4
	Get Create (RefClass(cComColumns)) to hoColumns4
	Set pvComObject of hoColumns4 to voColumns4
		Variant voColumn3
		Get ComItem of hoColumns4 1 to voColumn3
		Handle hoColumn3
		Get Create (RefClass(cComColumn)) to hoColumn3
		Set pvComObject of hoColumn3 to voColumn3
			Get ComCaption of hoColumn3 to v4
		Send Destroy to hoColumn3
	Send Destroy to hoColumns4
	Showln v4
End_Procedure
58:
How can I specify the default-format for a specified column, so it always shows as numeric for instance
Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voColumns
	Get ComDataColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns "Freight" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDefaultFormatContent of hoColumn to "numeric"
			Set ComDefaultFormatAppearances of hoColumn to "bold"
			Set ComSortOrder of hoColumn to OLESortAscending
			Set ComSortType of hoColumn to OLESortNumeric
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Set ComPivotTotalDefaultFormatContent to "currency"
	Set ComPivotTotalDefaultFormatAppearances to "strikeout,bold"
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)[bold,content=numeric]"
	Set ComPivotTotals to "sum[strikeout,bold,content=currency]"
	Set ComPivotColumnsFloatBarVisible to True
	Send ComRefresh
End_Procedure
57:
How can I display the percentage column

Procedure OnCreate
	Forward Send OnCreate
	Variant voFormatContents
	Get ComFormatContents to voFormatContents
	Handle hoFormatContents
	Get Create (RefClass(cComFormatContents)) to hoFormatContents
	Set pvComObject of hoFormatContents to voFormatContents
		Get ComAdd of hoFormatContents "percent" "value + `%`" Nothing to Nothing
	Send Destroy to hoFormatContents
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "5[content=percent]"
	Send ComRefresh
End_Procedure
56:
How do I change the name for months in the drop-down filter window (localization)

Procedure OnCreate
	Forward Send OnCreate
	Showln (ComDescription(Self,OLEexFilterBarDateMonths))
	Set ComDescription OLEexFilterBarDateMonths to "Ianuarie Februarie Martie Aprilie Mai Iunie Iulie August Septembrie Octombrie Noiembrie Decembrie"
	Set ComDescription OLEexFilterBarAll to "(Toate)"
	Set ComDescription OLEexFilterBarBlanks to "(Gol)"
	Set ComDescription OLEexFilterBarNonBlanks to "(Plin)"
	Set ComDescription OLEexFilterBarFilterForCaption to "Filtreaza:"
	Set ComDescription OLEexFilterBarDateTodayCaption to "Azi"
	Set ComDescription OLEexFilterBarDateWeekDays to "D L Ma Mi J V S"
	Set ComDescription OLEexFilterBarExclude to "Exclud"
	Set ComDescription OLEexColumnsFloatBar to "Coloane"
	Set ComDescription OLEexFilterBarAnd to "si"
	Set ComDescription OLEexFilterBarDate to "Data:"
	Set ComDescription OLEexFilterBarDateTitle to "Data"
	Set ComDescription OLEexFilterBarDateTo to "la"
	Set ComDescription OLEexFilterBarNot to "nu"
	Set ComDescription OLEexFilterBarOr to "sau"
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voColumns
	Get ComDataColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns "OrderDate" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortType of hoColumn to OLESortDate
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Set ComPivotRows to "9"
	Send ComRefresh
End_Procedure
55:
How can I scale and print programmatically the pivot table, to fit on one axis eg FitPageHeight but infinite width etc
Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "6"
	Set ComPivotColumns to "sum(5)/3"
	Send ComRefresh
	Handle hoPrint
	Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
		Set ComOptions of hoPrint to "FitToPage = x 5"
		Set ComPrintExts of hoPrint to (pvComObject(Self))
		Send ComPreview of hoPrint
	Send Destroy to hoPrint
End_Procedure
54:
How can I scale and print programmatically the pivot table, to fit on one axis eg FitPageWidth but infinite height etc
Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "6"
	Set ComPivotColumns to "sum(5)/3"
	Send ComRefresh
	Handle hoPrint
	Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
		Set ComOptions of hoPrint to "FitToPage = 5 x"
		Set ComPrintExts of hoPrint to (pvComObject(Self))
		Send ComPreview of hoPrint
	Send Destroy to hoPrint
End_Procedure
53:
How can I get the column from the cursor
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Showln (ComColumnFromPoint(Self,-1,-1))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Send ComRefresh
End_Procedure
52:
How can I get the value from the cursor
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Showln (ComValueFromPoint(Self,-1,-1))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Send ComRefresh
End_Procedure
51:
How can I specify a column to display HTML format

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "Bold <b>1,Bold <b>2#Bold <b>3,Bold <b>4#Bold <b>5,Bold <b>6" "eor='#' eof=',' hdr=0" to Nothing
	Variant voColumns
	Get ComDataColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns 0 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComHTML of hoColumn to True
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComDataColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComItem of hoColumns1 1 to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComHTML of hoColumn1 to True
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Set ComPivotRows to "0"
	Send ComRefresh
End_Procedure
50:
Does your control supports scrolling by touching the screen

Procedure OnCreate
	Forward Send OnCreate
	Variant rs
	Get Comcreateobject "ADOR.Recordset" to rs
		Send ComOpen "Data" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExPivot\Sample\Access2007\sample.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
	Set ComDataSource to rs
	Set ComAutoDrag to (OLEexAutoDragScrollOnShortTouch + OLEexAutoDragScroll)
End_Procedure
49:
How can I specify programatically the width of the pivot column ( first column )

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)/12"
	Set ComLayout to "Columns =1;C0.Width = 64"
	Send ComEndUpdate
End_Procedure
48:
How can I show the total of each row, when columns are shown as expanded

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComIncludeExpandColumn to OLEexIncludeExpandColumn
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)/12"
	Send ComEndUpdate
End_Procedure
47:
How can I prevent grouping by a specified column
Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voColumns
	Get ComDataColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns "Freight" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComAllowGroupBy of hoColumn to OLEexGroupByNone
		Send Destroy to hoColumn
	Send Destroy to hoColumns
End_Procedure
46:
How can I sort alphabetically the columns to be displayed in the context menu/floating panel

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotBarVisible to (OLEexPivotBarContextSortAscending + OLEexPivotBarAllowResizeColumns + OLEexPivotBarAllowUndoRedo + OLEexPivotBarAutoUpdate + OLEexPivotBarAllowFormatContent + OLEexPivotBarAllowFormatAppearance + OLEexPivotBarAllowValues + OLEexPivotBarShowTotals + OLEexPivotBarAutoFit + OLEexPivotBarSizable + OLEexPivotBarVisible)
	Set ComPivotColumnsSortOrder to OLEexPivotColumnsAscending
	Set ComPivotColumnsFloatBarVisible to True
End_Procedure
45:
How can I prevent dropping data to the control
Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowDrop to False
End_Procedure
44:
Is it possible to allow incremental filtering on drop down filter window too, as I can on the control menus

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComDisplayFilterList to (OLEexHideFilterPattern + OLEexFilterListDefault)
End_Procedure
43:
How can I prevent showing the Filter For field in the drop down filter window

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComDisplayFilterList to (OLEexHideFilterPattern + OLEexFilterListDefault)
End_Procedure
42:
How can I display the numeric columns only when selecting a new aggregate, like SUM

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0[bold]"
	Set ComPivotColumns to "sum(5)/12,count(5)/12"
	Variant voColumns
	Get ComDataColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns "Freight" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortType of hoColumn to OLESortNumeric
		Send Destroy to hoColumn
	Send Destroy to hoColumns
End_Procedure
41:
How can I add a value column

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)/12"
End_Procedure
40:
I would like to always have the subtotals in the same row of the "father row". Could that be done

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0[bold],2"
	Set ComPivotColumns to "sum(5)/12,count(5)/12"
	Set ComShowViewCompact to (OLEexViewCompactAggregates + OLEexViewCompact)
	Set ComPivotTotals to "/sum,sum(0)"
End_Procedure
39:
Is there any way, when I change the filter of the column, it broadcast the filter to the other pivot columns that were duplicated

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0,2"
	Set ComShowBranchRows to OLEexBranchCompact
	Set ComPivotColumns to "sum(5)/12[filter='gBpNxjNh1MhlBoKNhpOZ0hJVNxpOhlMggKBhMZrMJnMoAgI='],count(5)/12[filter='gBpNxjNh1MhlBoKNhpOZ0hJVNxpOhlMggKBhMZrMJnMoAgI=']"
	Set ComShowViewCompact to (OLEexViewCompactKeepSettings + OLEexViewCompact)
End_Procedure
38:
How can I summarize more fields in the same cell

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0,2"
	Set ComShowBranchRows to OLEexBranchCompact
	Set ComPivotColumns to "sum(5)/12,count(5)/12"
	Set ComShowViewCompact to OLEexViewCompact
End_Procedure
37:
How do I programmatically group by rows, in a compact way, no hierarchy lines

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0,2"
	Set ComShowBranchRows to OLEexBranchCompact
End_Procedure
36:
How do I programmatically group by rows

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0,1,2"
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Set ComHasLines to OLEexSolidLine
End_Procedure
35:
How do I programmatically group by columns

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)/12;6"
End_Procedure
34:
How can I hide the add new button on the pivot bar

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotBarVisible to (OLEexPivotBarHideAddNew + OLEexPivotBarAllowResizeColumns + OLEexPivotBarAllowUndoRedo + OLEexPivotBarAutoUpdate + OLEexPivotBarAllowFormatContent + OLEexPivotBarAllowFormatAppearance + OLEexPivotBarAllowValues + OLEexPivotBarShowTotals + OLEexPivotBarAutoFit + OLEexPivotBarSizable + OLEexPivotBarVisible)
End_Procedure
33:
Is it possible to show the data that generated the result, when double clicking the row

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0[italic]"
	Set ComPivotColumns to "count(0)[underline]"
	Set ComPivotTotals to "count[bold,strikeout]"
	Set ComShowDataOnDblClick to True
	Send ComEndUpdate
End_Procedure
32:
Does your control support subscript or superscript, in HTML captions

Procedure OnCreate
	Forward Send OnCreate
	Set ComHeaderHeight to 22
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voColumns
	Get ComDataColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns "ShipCountry" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComCaption of hoColumn to "ShipCountry<font ;7><off 6><sha ;;0>subscript"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComDataColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComItem of hoColumns1 "ShipRegion" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComCaption of hoColumn1 to "ShipRegion<font ;7><off -6><sha ;;0>superscript"
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Send ComRefresh
End_Procedure
31:
Is it possible to define a different background color for the pivot bar

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexPivotBarBackColor to (RGB(240,240,240))
End_Procedure
30:
How can I display an icon/image to Content sub-menu

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voFormatContents
	Get ComFormatContents to voFormatContents
	Handle hoFormatContents
	Get Create (RefClass(cComFormatContents)) to hoFormatContents
	Set pvComObject of hoFormatContents to voFormatContents
		Variant voFormatContent
		Get ComItem of hoFormatContents "numeric" to voFormatContent
		Handle hoFormatContent
		Get Create (RefClass(cComFormatContent)) to hoFormatContent
		Set pvComObject of hoFormatContent to voFormatContent
			Set ComName of hoFormatContent to "<img>1</img> Numeric"
		Send Destroy to hoFormatContent
	Send Destroy to hoFormatContents
	Set ComPivotRows to "5[content=numeric]"
End_Procedure
29:
How can I change the selection background in the control's context menu

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComBackground OLEexSelBackColorFilter to (RGB(255,0,0))
End_Procedure
28:
How can I display the column as date in a long format

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voFormatContents
	Get ComFormatContents to voFormatContents
	Handle hoFormatContents
	Get Create (RefClass(cComFormatContents)) to hoFormatContents
	Set pvComObject of hoFormatContents to voFormatContents
		Get ComAdd of hoFormatContents "longdate" "longdate(date(value))" Nothing to Nothing
	Send Destroy to hoFormatContents
	Set ComPivotRows to "9[content=longdate]"
End_Procedure
27:
Is it possible to display the column in upper-case

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voFormatContents
	Get ComFormatContents to voFormatContents
	Handle hoFormatContents
	Get Create (RefClass(cComFormatContents)) to hoFormatContents
	Set pvComObject of hoFormatContents to voFormatContents
		Get ComAdd of hoFormatContents "upper" "upper(value)" Nothing to Nothing
	Send Destroy to hoFormatContents
	Set ComPivotRows to "0[content=upper]"
End_Procedure
26:
How can I programatically bold a column

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0[bold]"
End_Procedure
25:
How can I display the total with a different foreground color

Procedure OnCreate
	Forward Send OnCreate
	Variant voFormatAppearances
	Get ComFormatAppearances to voFormatAppearances
	Handle hoFormatAppearances
	Get Create (RefClass(cComFormatAppearances)) to hoFormatAppearances
	Set pvComObject of hoFormatAppearances to voFormatAppearances
		Variant voFormatAppearance
		Get ComAdd of hoFormatAppearances "fore" Nothing to voFormatAppearance
		Handle hoFormatAppearance
		Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance
		Set pvComObject of hoFormatAppearance to voFormatAppearance
			Set ComForeColor of hoFormatAppearance to (RGB(255,0,0))
		Send Destroy to hoFormatAppearance
	Send Destroy to hoFormatAppearances
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)"
	Set ComPivotTotals to "sum[fore,bold]"
End_Procedure
24:
How can I display the total with a different background color/ebn

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voFormatAppearances
	Get ComFormatAppearances to voFormatAppearances
	Handle hoFormatAppearances
	Get Create (RefClass(cComFormatAppearances)) to hoFormatAppearances
	Set pvComObject of hoFormatAppearances to voFormatAppearances
		Variant voFormatAppearance
		Get ComAdd of hoFormatAppearances "back" Nothing to voFormatAppearance
		Handle hoFormatAppearance
		Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance
		Set pvComObject of hoFormatAppearance to voFormatAppearance
			Set ComBackColor of hoFormatAppearance to |CI$1000000
		Send Destroy to hoFormatAppearance
	Send Destroy to hoFormatAppearances
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)"
	Set ComPivotTotals to "sum[back]"
End_Procedure
23:
How can I display the total with a solid background color

Procedure OnCreate
	Forward Send OnCreate
	Variant voFormatAppearances
	Get ComFormatAppearances to voFormatAppearances
	Handle hoFormatAppearances
	Get Create (RefClass(cComFormatAppearances)) to hoFormatAppearances
	Set pvComObject of hoFormatAppearances to voFormatAppearances
		Variant voFormatAppearance
		Get ComAdd of hoFormatAppearances "back" Nothing to voFormatAppearance
		Handle hoFormatAppearance
		Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance
		Set pvComObject of hoFormatAppearance to voFormatAppearance
			Set ComBackColor of hoFormatAppearance to (RGB(240,240,240))
		Send Destroy to hoFormatAppearance
	Send Destroy to hoFormatAppearances
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)"
	Set ComPivotTotals to "sum[back]"
End_Procedure
22:
Is it possible to change the "bold" caption in the control's context menu

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voFormatAppearances
	Get ComFormatAppearances to voFormatAppearances
	Handle hoFormatAppearances
	Get Create (RefClass(cComFormatAppearances)) to hoFormatAppearances
	Set pvComObject of hoFormatAppearances to voFormatAppearances
		Variant voFormatAppearance
		Get ComItem of hoFormatAppearances "bold" to voFormatAppearance
		Handle hoFormatAppearance
		Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance
		Set pvComObject of hoFormatAppearance to voFormatAppearance
			Set ComName of hoFormatAppearance to "Ingrosat"
		Send Destroy to hoFormatAppearance
	Send Destroy to hoFormatAppearances
End_Procedure
21:
Is it possible to show no Exclude field in the filter window

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComDisplayFilterList to (OLEexShowCheckBox + OLEexSortItemsAsc)
End_Procedure
20:
How can I prevent showing the drop down filter button

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComDisplayFilterList to OLEexNoItems
End_Procedure
19:
How do I get the count of positive values only

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voAggregates
	Get ComAggregates to voAggregates
	Handle hoAggregates
	Get Create (RefClass(cComAggregates)) to hoAggregates
	Set pvComObject of hoAggregates to voAggregates
		Variant voAggregate
		Get ComAdd of hoAggregates "positive" "sum" Nothing Nothing to voAggregate
		Handle hoAggregate
		Get Create (RefClass(cComAggregate)) to hoAggregate
		Set pvComObject of hoAggregate to voAggregate
			Set ComFormatValue of hoAggregate to "value < 0 ? 0 : 1"
		Send Destroy to hoAggregate
	Send Destroy to hoAggregates
	Set ComPivotRows to "0"
	Set ComPivotColumns to "positive(5)"
End_Procedure
18:
How do I get the sum for negative values only

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voAggregates
	Get ComAggregates to voAggregates
	Handle hoAggregates
	Get Create (RefClass(cComAggregates)) to hoAggregates
	Set pvComObject of hoAggregates to voAggregates
		Variant voAggregate
		Get ComAdd of hoAggregates "negative" "sum" Nothing Nothing to voAggregate
		Handle hoAggregate
		Get Create (RefClass(cComAggregate)) to hoAggregate
		Set pvComObject of hoAggregate to voAggregate
			Set ComFormatValue of hoAggregate to "value < 0 ? value : 0"
		Send Destroy to hoAggregate
	Send Destroy to hoAggregates
	Set ComPivotRows to "0"
	Set ComPivotColumns to "negative(5)"
End_Procedure
17:
My data stores the data as strings, is it possible to load the data using Import method

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "'string 1';'string 2'#'string 3';'string 4'" "str=`'` eor='#' eof=';' hdr=0" to Nothing
End_Procedure
16:
Is it possible to load data using different separators

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "item 1;item 2#item 3;item 4" "eor='#' eof=';' hdr=0" to Nothing
End_Procedure
15:
Is it possible to align a column

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voColumns
	Get ComDataColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns 0 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComAlignment of hoColumn to OLERightAlignment
			Set ComHeaderAlignment of hoColumn to OLERightAlignment
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Send ComRefresh
End_Procedure
14:
How can I change by code the column/rows background color

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voFormatAppearances
	Get ComFormatAppearances to voFormatAppearances
	Handle hoFormatAppearances
	Get Create (RefClass(cComFormatAppearances)) to hoFormatAppearances
	Set pvComObject of hoFormatAppearances to voFormatAppearances
		Variant voFormatAppearance
		Get ComAdd of hoFormatAppearances "aka" Nothing to voFormatAppearance
		Handle hoFormatAppearance
		Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance
		Set pvComObject of hoFormatAppearance to voFormatAppearance
			Set ComBackColor of hoFormatAppearance to |CI$1000000
		Send Destroy to hoFormatAppearance
	Send Destroy to hoFormatAppearances
	Set ComPivotRows to "0[aka]"
	Send ComEndUpdate
End_Procedure
13:
How can I apply by code any appearance to my list

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0[italic]"
	Set ComPivotColumns to "count(0)[underline]"
	Set ComPivotTotals to "count[bold,strikeout]"
	Send ComEndUpdate
End_Procedure
12:
How can I display an icon instead SUM/Total field

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBggAAwAAgACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjIgjIBAEijUlk8plUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9oEEwGBwWDwmFw2Hw9+xUsxGNx2Px+LyUnyGVy2VyeZAGNjIJjITjIb0OjjGi0ukAAVjILzmayWtAGejCvjLh2u3jG23O4ACx1ew11+zEYGsZZsZUe/wkZ4sYZvD4PCy8kjAzjLFjKd5WDjIz6HRvnTwUZGMZX8ZTPb8XU8Hh9cFjALjKVjK5jIv9/w9t78WdjJIoyWr7sKjIWu+/a8Og2QAEajLaIxAzlwhB0DwQuzoECjJWw1DiMQ3D0OgAQMKwsuj8xOy0SrzFEWMdFUExbGMCRfC8ZRswMaLsiofJVHiOo+kKRs2lL2Jsh8cyQo6Ag=="
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voAggregates
	Get ComAggregates to voAggregates
	Handle hoAggregates
	Get Create (RefClass(cComAggregates)) to hoAggregates
	Set pvComObject of hoAggregates to voAggregates
		Variant voAggregate
		Get ComItem of hoAggregates "sum" to voAggregate
		Handle hoAggregate
		Get Create (RefClass(cComAggregate)) to hoAggregate
		Set pvComObject of hoAggregate to voAggregate
			Set ComName of hoAggregate to "<img>1</img> Sum"
			Set ComCaption of hoAggregate to "<img>1</img>"
		Send Destroy to hoAggregate
	Send Destroy to hoAggregates
	Set ComPivotColumnsFloatBarVisible to True
	Set ComFormatPivotHeader to "iaggregate ? (caggregate + (iaggregate != 5 ? ' ' : '') + caption) : caption"
	Set ComFormatPivotTotal to "caggregate"
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)"
	Set ComPivotTotals to "sum,count"
	Send ComEndUpdate
End_Procedure
11:
How can I change the caption to be displayed when dragging an aggregate function

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotColumnsFloatBarVisible to True
	Set ComFormatPivotHeader to "(iaggregate ? ('<b>' + upper(caggregate) + '</b> of ' + caption) : caption)"
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)"
	Set ComPivotTotals to "sum,count"
	Send ComEndUpdate
End_Procedure
10:
I am using Import method, just wondering if I can rename the columns

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voColumns
	Get ComDataColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns 0 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComCaption of hoColumn to "New Caption"
			Set ComPivotCaption of hoColumn to "New Pivot Caption"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Send ComRefresh
End_Procedure
9:
Does your control support Fit-To-Page Print and Print Preview

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0,1,2"
	Send ComExpandAll
	Handle hoPrint
	Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
		Set ComOptions of hoPrint to "FitToPage = On"
		Set ComPrintExts of hoPrint to (pvComObject(Self))
		Send ComPreview of hoPrint
	Send Destroy to hoPrint
End_Procedure
8:
How can I print the control

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0,1,2"
	Send ComExpandAll
	Handle hoPrint
	Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
		Set ComPrintExts of hoPrint to (pvComObject(Self))
		Send ComPreview of hoPrint
	Send Destroy to hoPrint
End_Procedure
7:
How can I hide the pivot bar (hide completly)

Procedure OnCreate
	Forward Send OnCreate
	Set ComPivotBarVisible to (OLEexPivotBarAllowResizeColumns + OLEexPivotBarAllowUndoRedo + OLEexPivotBarAutoUpdate + OLEexPivotBarAllowFormatContent + OLEexPivotBarAllowFormatAppearance + OLEexPivotBarAllowValues + OLEexPivotBarShowTotals + OLEexPivotBarAutoFit + OLEexPivotBarSizable)
End_Procedure
6:
How can I hide the pivot bar (auto-hide)

Procedure OnCreate
	Forward Send OnCreate
	Set ComPivotBarVisible to (OLEexPivotBarAllowResizeColumns + OLEexPivotBarAllowUndoRedo + OLEexPivotBarAutoUpdate + OLEexPivotBarAllowFormatContent + OLEexPivotBarAllowFormatAppearance + OLEexPivotBarAllowValues + OLEexPivotBarAutoHide + OLEexPivotBarShowTotals + OLEexPivotBarSizable + OLEexPivotBarVisible)
End_Procedure
5:
How can I count and get the total of a specified column

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotColumnsFloatBarVisible to True
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)"
	Set ComPivotTotals to "sum,count"
	Send ComEndUpdate
End_Procedure
4:
How can I add show the columns once I grouped a column

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumnsFloatBarVisible to True
End_Procedure
3:
How can I programatically group the columns

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0:D"
End_Procedure
2:
Is it possible to load data from a data source

Procedure OnCreate
	Forward Send OnCreate
	Variant rs
	Get Comcreateobject "ADOR.Recordset" to rs
		Send ComOpen "Data" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExPivot\Sample\Access2007\sample.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
	Set ComDataSource to rs
End_Procedure
1:
How can I load data

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
End_Procedure