Accessでコントロールの印刷時拡張時に縦線を伸ばす方法を調べたら、

質問

Accessでコントロールの印刷時拡張時に縦線を伸ばす方法を調べたら、次のページがヒットしました。

http://support.microsoft.com/default.aspx?scid=kb;ja;286247&Product=accJPN

4.[表示] メニューの [デザインビュー] をクリックし、レポート プロパティの [イベント] タブの "開く時" プロパティに次のイベント プロシージャを設定します。

と書いてあります。

「レポート プロパティの [イベント] タブの "開く時" プロパティ」は見つけましたが、そこにイベントプロシージャを設定するというのがどうすればよいのかわかりません。

具体的な方法をご教示ください。よろしくお願いします。

回答No.2

piroin654 · ベストアンサー

以下を参考にアレンジしてください。
印刷時拡張を設定したレポートで横罫線をそろえる方法
http://support.microsoft.com/default.aspx?scid=kb;ja;404907

お礼

アドバイスありがとうございます。
試してみます。m(_ _)m

回答No.1

piroin654

プロパティシートのイベントを選択し、
開くときの右側の枠のところをクリック
するとビルだの選択というフォームが
表示され、その中のコードビルダを
クリックするとコード表が表示されます。
そこに、

Private Sub Report_Open(Cancel As Integer)

End Sub

と表示されますから、必要なコードをその中に
書き込みます。その他についても同様です。

ただ、具体的に何をしたいのか情報がないと、
コード表の開き方しか回答できません。
単に印刷時拡張の設定は各コントロール、
たとえばレポートのテキストボックスの
印刷時拡張を「はい」に設定すればいいのですが。
そのあとのことについては情報がないと
どうにも・・・。

お礼

アドバイスありがとうございます。
そのようにしたら設定できました。
ただ、

http://support.microsoft.com/default.aspx?scid=kb;ja;286247&Product=accJPN

ここに書かれている通りに設定したのですが、画面左に3本の線が長く引かれます。

Me.Line (0 * 567, 0) - (0 * 567, 14400)
Me.Line (1 * 567, 0) - (1 * 567, 14400)
Me.Line (1.9 * 567, 0) - (1.9 * 567, 14400)

たぶんここでそのように設定しているのだと思うのですが、私のしたいことは、
表中のテキストボツクスがテキストの長さに応じて縦に伸びたとき、表の縦線を
自動的に直下の横線まで伸ばしたいのです。
（どれだけ伸ばすかは場合に寄ります）

左位置：8.697cm
上位置：9.704cm
高さ：0.899cm

この縦線を、テキストボックスの高さが変わった分だけ下の横線まで伸ばすことは
できますでしょうか。

ちなみに横線は

左位置：0.695cm
上位置：10.6cm
高さ：0cm

となっています。