Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4189 / 9994

←次へ　｜　前へ→


	【9052】Lineﾒｿｯﾄﾞを使用して罫線を出力したいんですが。

そら坊 - 07/1/31(水) 14:03 -


	引用なし

	パスワード

以下のとおりにLineﾒｿｯﾄﾞを利用して、３ﾎﾟｲﾝﾄの罫線を出力しようとしていますが、ﾎﾟｲﾝﾄが変わりません。何故でしょうか？

Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)

　　Dim intColor As Integer, i As Integer
　　Dim SngTOP As Single, SngHEIGHT As Single
　　Dim SngLEFT(5) As Single
　　
　　Me.ScaleMode = 7
　　SngTOP = Me.ScaleTop + 12
　　SngLEFT(1) = Me.ScaleLeft + 0#
　　SngLEFT(2) = Me.ScaleLeft + 3.7
　　SngLEFT(3) = Me.ScaleLeft + 17.8
　　SngHEIGHT = Me.ScaleHeight - 100
　　intColor = RGB(0, 0, 0)
　　
　　Me.DrawWidth = 3
　　Me.Line (SngLEFT(1), SngTOP)-(SngLEFT(3), SngHEIGHT), intColor, B
　　
　　Me.DrawWidth = 3
　　
　　For i = 2 To 4
　　　　Me.Line (SngLEFT(i), SngTOP)-(SngLEFT(i), SngHEIGHT), intColor
　　Next i
　　
End Sub

678 hits

▼

【9052】Lineﾒｿｯﾄﾞを使用して罫線を出力したいんですが。 そら坊 07/1/31(水) 14:03

≪