４-4レポート／データの値によってフォント属性を変更[Access97][Sora マニュアル]

４章カスタマイズ／４-4レポート

データの値によってフォント属性を変更[Access97]

レコードのデータの値によってフォントの太さを変えたり、色を変えたりできます。

フォント属性

＜操作手順＞

Soraレポートを［デザイン］で開く
コード画面の表示
［表示］ツールメニューの［コード］をクリックします。

フォントの太さを変更
グループフッター3の［DNPS0SUの合計］が10より大きい場合にフォントを太くします。
グループフッター3の［印刷時］イベントプロシージャを次のように設定します。

Private Sub グループフッター3_Print(Cancel As Integer, PrintCount As Integer)
    Dim ctlSu As TextBox
    Set ctlSu = Me![DNPS0SUの合計]
    If ctlSu > 10 Then
        ctlSu.FontWeight = 900
    Else
        ctlSu.FontWeight = 400
    End If
End Sub

フォントの色を変更
グループフッター1の［DNPS0SUの合計1］が20より大きい場合にフォントの色をオレンジにします。
グループフッター1の［印刷時］イベントプロシージャを次のように設定します。
```
Private Sub グループフッター1_Print(Cancel As Integer, PrintCount As Integer)
    Dim ctlSu As TextBox
    Set ctlSu = Me![DNPS0SUの合計1]
    If ctlSu > 20 Then
        ctlSu.ForeColor = 33023
    Else
        ctlSu.ForeColor = 0
    End If
End Sub
```

＜参照＞

書籍「Microsoft Access97 Visual Basic ステップバイステップ」
Lesson13 Visual Basicでレポートをカスタマイズする（p383）