登記情報のレポート出力で重要になるのが、要約書などの帳票出力
表計算ソフトとDBの違いは、情報が追加・更新されての出力の対応が上げられるだろう。
ただその出力の概念が理解できないと作れない為、
同業者は、簡単に作成できる表計算ソフトを使用するという方へ流れてしまいがちだ。
それはさておき、以下、出力時に表をつくるサンプルLineメソッドです。
Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
BorderWidth = 2
Dim i, j
j = 0
For i = 0 To Me.Count - 1
If Me(i).Section = 0 Then
If j < Me(i).Height Then
j = Me(i).Height
End If
End If
Next i
'縦の線を引く
Me.Line (0 * 567, 0)-(0 * 567, j)
Me.Line (3 * 567, 0)-(3 * 567, j)
Me.Line (5.3 * 567, 0)-(5.3 * 567, j)
Me.Line (7.3 * 567, 0)-(7.3 * 567, j)
Me.Line (9.8 * 567, 0)-(9.8 * 567, j)
Me.Line (19 * 567, 0)-(19 * 567, j)
Me.Line (26.2 * 567, 0)-(26.2 * 567, j)
Me.Line (27.4 * 567, 0)-(27.4 * 567, j)
'横の線を引く
Me.Line (0 * 567, j)-(36.8 * 567, j)
'縦の破線を引く
BorderStyle = 2
Me.Line (9.15 * 567, 0)-(9.15 * 567, j)
End Sub
最終的なデータの高さを計算してから、横の線を引く用になっています。
ここで何が不具合かといいますと
最後から２行目の「BorderStyle = 2」
と書いてある部分の後で、立てに破線を引くために違う値を入れて
線の幅をのBorderWidthの設定値を入力してたのですが、
途中で破線にはできないってことや
線の幅が変えれないとのことで、そのままにして放置してしまってました。
以前にマイクロソフトに問い合わせして、調べていただきましたが、未だ改善されてはいません。