Microsoft Access 掲示板

Microsoft Access 掲示板

レポートで1行の高さが増減する各行の高さに合わせた罫線を引きたい / 10

10 コメント
views
4 フォロー
10
亞紀姐 2023/12/28 (木) 01:36:41 6b68c@f63d4

とても遅くなったのですが、ようやく方向性が決まり、以下のコードになりました。
検索してくださる方のためにもコードを残します。

ありがとうございました。

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
    Dim j As Integer
    Dim i As Integer

    For j = 51 To 57
        Me.DrawStyle = 0
        Me.Line (Me("L" & j).Left, 0)-(Me("L" & j).Left, 144000)
    Next

     For i = 2 To 12
        Me.DrawStyle = 2
        Me.Line (Me("L" & i).Left, 0)-(Me("L" & i).Left, 144000)
     Next

    WordWrapOff Me.自社用, Me.txtFld1

Me.自社用.FELineBreak = False
Me.txtFld1.FELineBreak = False

End Sub

通報 ...