Microsoft Access 掲示板

また、

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.NAS用, Me.txtFld1
    
Me.NAS用.FELineBreak = False
Me.txtFld1.FELineBreak = False

End Sub

とし、詳細セクションのフォーマットイベントにあった罫線スタイルの指定をなくしたところうまくいきました。
（前はここがダブってしまっていて、線がきれいに点線になっていませんでした。）

大変失礼しました。

以上にて無事に担当に提出することが出来ました。
本当に長々とありがとうございました。