hatena
hatena
2020/08/30 (日) 21:03:25
「代替の背景色」を「代替の行」にした場合、いろいろ調整して下記のようにすると、太さの差はほとんど目立たなくなりました。
Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
Dim Left As Single
Dim Top As Single
Dim Width As Single
Dim Height As Single
Me.ScaleMode = 1
Left = -20
Top = Me.Height - 8
Width = Me.ScaleWidth + 20
Height = Top
Me.ForeColor = RGB(0, 0, 0)
Me.DrawWidth = 7
Me.Line (Left, Top)-(Width, Height)
End Sub
線の両端は丸くなるのは、線の左端と右端を、詳細セクションからはみ出るように設定することで解決できるようです。
また、高さは線の太さよりすこし大きめの数値を引くとよさそうです。
通報 ...