Microsoft Access 掲示板

印刷時拡張を設定したテキストボックスの下端に合わせて横線を引きたい / 1

4 コメント
views
4 フォロー
1

Office2010とはずいぶん古いバージョンですが間違いないですか。
それだけ古いと下記の回答では対応してないかもしれませんので、その場合はご容赦ください。

標記のとおり、印刷時拡張を設定してテキストボックスの下端にあわせて横線を引きたいとおもっています。

テキストボックスの「立体表示」プロパティに「下線付き」という設定があります。その設定にすればVBAを使うまでもなく下線が表示できますし、印刷時拡張しても追従します。

上記ではうまくできないという場合は、質問のコードでいいと思いますが、このコードはどこに記述してますか。
テキストボックスを配置しているセクションの「印刷時」イベントに記述してますか。
テキストボックスが詳細セクションにあるのなら、下記のようになるはずです。

Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
    ' As Integerは変数毎につける必要がある  省略するとVariant型になる
    Dim p1 As Integer, p2 As Integer, p3 As Integer, p4 As Integer
    Dim ht1 As Integer

    p1 = Me.直線21.Left
    p2 = Me.直線20.Left
    p4 = Me.s_koment.Top
    ht1 = Me.s_koment.Height
    Me.Line (p1, p4 + ht1)-(p2, p4 + ht1)
End Sub
通報 ...