KB404058 - [ACC2] 印刷時拡張を設定したレポートで横罫線をそろえる方法

現象

■ 操作方法

サンプルデータ [テーブル 1] を作成します。

      フィールド名    データ型    フィールドサイズ
      --------------------------------------------
      氏名            テキスト型  20
      郵便番号        テキスト型  10
      住所            テキスト型  60

1.で作成したテーブルからレポートを作成します。
次のようにデザインしてください。レポートヘッダーとページヘッダーには、ラベルを配置します。詳細セクションには、テーブルの各フィールドと連結したテキストボックスを配置します。詳細セクションの各テキストボックスの [幅/ Width ] プロパティは 3cm に、[境界線スタイル / BorderStyle ]プロパティは「透明」に、 [印刷時拡張/ CanGrow ] プロパティは「はい」に設定してください。テキストボックスプロパティシートを表示するには、テキストボックス上でダブルクリックします。
詳細セクションの [印刷時/ OnPrint ] プロパティに、イベントプロシージャを作成します。詳細セクションのプロパティシートを表示するには、詳細セクションバーをダブルクリックします。[印刷時/ OnPrint ] プロパティにフォーカスを移動し、プロパティの右側の <ビルド> ボタンをクリックします。[ビルダの選択] ダイアログボックスが表示されますので「コードビルダ」を選択し、[OK] ボタンをクリックします。

モジュールウィンドウで、下記のコードを入力します。

     ---------------------------------------------------------------------------
     Sub 詳細 1_Print (Cancel As Integer, PrintCount As Integer)
         Dim i, j
         j = 0                                   '変数 j を初期化します。
         For i = 0 To Me.count - 1       '詳細セクションに存在するコントロールの
             If Me(i).section = 0 Then    '拡張後の高さと変数 j の値を比較し
                 If j < Me(i).height Then 'より大きい方の値を変数 j に代入
                                          'します。
                     j = Me(i).height
                 End If
             End If
         Next i
         Me.Line (567 * 0, 567 * 0)-(567 * 0, j)     '縦線を引きます。
         Me.Line (567 * 3, 567 * 0)-(567 * 3, j)     '単位は twip です。
                                                     '1cm = 567twip
         Me.Line (567 * 6, 567 * 0)-(567 * 6, j)     'コントロールの幅は 3cm
         Me.Line (567 * 9, 567 * 0)-(567 * 9, j)     'なので、567*0,
                                                     '567*3, 576*6, ,, となり
                                                     'ます。
         Me.Line (367 * 0, 0)-(567 * 9, 0)           '横線 (上) を引きます。
         Me.Line (367 * 0, j)-(567 * 9, j)           '横線 (下) を引きます。
     End Sub
     ---------------------------------------------------------------------------

[実行] - [モジュールのコンパイル] コマンドを選択するか、ツールバーの <コンパイル> ボタンをクリックします。エラーが表示されなければ、モジュールウィンドウを閉じてください。エラーが表示された場合は、入力ミスがないかどうか再度チェックしてください。
レポートを印刷プレビューで表示すると、テキストボックスの高さが一番高いテキストボックスと同じ高さで罫線が引かれます。

■ 解説

[印刷時拡張/ CanGrow ] プロパティが「はい」に設定されたコントロールが実際に印字されるときの [高さ/ Height ] プロパティの値は、印刷時のイベントでのみ参照可能です。しかし、印刷時のイベントでは、コントロールの [高さ/ Height ] プロパティを変更することはできないため、コントロールの "境界線" ([境界線スタイル / BorderStyle ] プロパティや [境界線種/ BorderColor ] プロパティの設定) によって可変的に罫線を引くことはできません。ここで紹介した方法では、[境界線スタイル / BorderStyle ] プロパティを「透明」に設定し、 Line メソッドを使用して罫線を引いています。
Line メソッドに指定する座標値は、[ ScaleMode ] プロパティの値を既定のまま使用しているので、twip (1cm=約 567twip) で指定しています。

[ACC2] 印刷時拡張を設定したレポートで横罫線をそろえる方法

概要

現象

■ 操作方法

■ 解説