亞紀姐
2024/01/09 (火) 15:46:02
6b68c@61731
また、
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
とし、詳細セクションのフォーマットイベントにあった罫線スタイルの指定をなくしたところうまくいきました。
(前はここがダブってしまっていて、線がきれいに点線になっていませんでした。)
大変失礼しました。
以上にて無事に担当に提出することが出来ました。
本当に長々とありがとうございました。
通報 ...