レポートエディタで作成した可変フォームと、セクションに貼り付けられたフィールドにデータを設定して印刷するコーディングです。
レポートライブラリOCX
|
Object.FormName = "可変フォーム.jfm" |
フォームの設定 |
|
↓ |
|
|
Object.Start |
初期処理と印刷開始 |
|
↓ |
|
|
Object.SectionKey = "ヘッダー" |
セクションの設定 |
|
↓ |
|
|
Object.SetFieldText("text1", "金額") |
ﾃｷｽﾄﾌｨｰﾙﾄﾞの値設定 |
|
↓ |
|
|
Object.DrawSection |
セクションの描画 |
|
↓ |
|
|
Object.SectionKey = "明細" |
セクションの設定 |
|
↓ |
|
|
On Error Resume Next |
|
|
↓ |
|
|
For i = 1 to n |
|
|
↓ |
|
|
Object.SetFieldGrid("grid1", 1, "1000") |
ｸﾞﾘｯﾄﾞﾌｨｰﾙﾄﾞの値設定 |
|
↓ |
|
|
Object.DrawSection |
セクションの描画 |
|
↓ |
|
|
If Err.Number = 1131 Then |
改ページ要求の場合は改ページ |
|
Object.NewPage |
|
|
End If |
|
|
↓ |
|
|
Next i |
|
|
↓ |
|
|
Object.SectionKey = "フッター" |
セクションの設定 |
|
↓ |
|
|
Object.SetFieldText("text2", "頁") |
ﾃｷｽﾄﾌｨｰﾙﾄﾞの値設定 |
|
↓ |
|
|
Object.DrawSection |
セクションの描画 |
|
↓ |
|
|
Object.NewPage |
改ページ |
|
↓ |
|
|
Object.End |
印刷終了と終了処理 |
レポートライブラリ.NETコントロール
|
Object.FormName = "可変フォーム.jfm" |
フォームの設定 |
|
↓ |
|
|
ret = Object.Start() |
初期処理と印刷開始 |
|
↓ |
|
|
Object.SectionKey = "ヘッダー" |
セクションの設定 |
|
↓ |
|
|
ret = Object.SetFieldText("text1", "金額") |
ﾃｷｽﾄﾌｨｰﾙﾄﾞの値設定 |
|
↓ |
|
|
ret = Object.DrawSection() |
セクションの描画 |
|
↓ |
|
|
Object.SectionKey = "明細" |
セクションの設定 |
|
↓ |
|
|
For i = 1 to n |
|
|
↓ |
|
|
ret = Object.SetFieldGrid("grid1", 1, "1000") |
ｸﾞﾘｯﾄﾞﾌｨｰﾙﾄﾞの値設定 |
|
↓ |
|
|
ret = Object.DrawSection() |
セクションの描画 |
|
↓ |
|
|
If ret = 1131 Then |
改ページ要求の場合は改ページ |
|
ret = Object.NewPage() |
|
|
End If |
|
|
↓ |
|
|
Next i |
|
|
↓ |
|
|
Object.SectionKey = "フッター" |
セクションの設定 |
|
↓ |
|
|
ret = Object.SetFieldText("text2", "頁") |
ﾃｷｽﾄﾌｨｰﾙﾄﾞの値設定 |
|
↓ |
|
|
ret = Object.DrawSection() |
セクションの描画 |
|
↓ |
|
|
ret = Object.NewPage() |
改ページ |
|
↓ |
|
|
ret = Object.End() |
印刷終了と終了処理 |