AutoTable を PDF 文書に書き込む |
PRIM_PDF.AutoTable (PRIM_PDF.AutoTable) のメンバ
PDF ドキュメントに AutoTable を書き込みます。
AutoTable を作成して書き込みます。
Evtroutine Handling(#FindContacts.completed)
Define_Com Class(#PRIM_PDF) Name(#pdf)
Define_Com Class(#PRIM_PDF.AutoTable) Name(#Table) Reference(*DYNAMIC) Theme(Striped) Columncount(2)
Define_Com Class(#PRIM_PDF.AutoTableColumn) Name(#LastNameCol) Reference(*DYNAMIC)
Define_Com Class(#PRIM_PDF.AutoTableColumn) Name(#FirstNameCol) Reference(*DYNAMIC)
Define_Com Class(#PRIM_PDF.AutoTableRow) Name(#Row) Reference(*DYNAMIC)
#pdf.start
* AutoTable 作成
#Table <= #pdf.CreateAutoTable
* テーブル列の定義
#LastNameCol <= #Table.CreateColumn
#LastNameCol.HeadCaption := 'Last name'
#Table.AddColumn Column(#LastNameCol)
#FirstNameCol <= #Table.CreateColumn
#FirstNameCol.HeadCaption := 'First name'
#Table.AddColumn Column(#FirstNameCol)
* テーブルデータ追加
Selectlist Named(#xContactsList)
#Row <= #Table.CreateRow
#Row.addCell Value(#xContactLastName)
#Row.addCell Value(#xContactFirstName)
#Table.AddRow Row(#Row)
Endselect
* AutoTable の書き込み
#Table.Write
* PDF レポートの保存
#pdf.save Filename('MyContacts.pdf')
Endroutine