下面的代码可用于在报表实现圆角的矩形
调用方式：在报表的节的Format事件或页的Page事件中调用
'Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
'    RoundCornerBox 4000, 6000, 100, 200, 300, Me
'End Sub

原作者：未知
翻译：tmtony(access/Office中国)

创建一个新模块，添加如下代码
Sub RoundCornerBox( _
        lngWidth As Long, _
        lngHeight As Long, _
        lngTop As Long, _
        lngLeft As Long, _
        lngRadius As Long, _
        rptReport As Report)
    Dim sngStart As Single
    Dim sngEnd As Single
    Dim dblPI As Double
    dblPI = 3.14159265359

    '左上角
    sngStart = 2 * dblPI * 0.25 ' Start of pie slice.
    sngEnd = 2 * dblPI * 0.5    ' End of pie slice.
    rptReport.Circle (lngLeft + lngRadius, _
            lngTop + lngRadius), _
            lngRadius, vbBlue, sngStart, sngEnd
    '上边线条
    rptReport.Line (lngLeft + lngRadius, lngTop)- _
        (lngLeft + lngWidth - lngRadius, lngTop)

    '右上角
    sngStart = 2 * dblPI * 0.000001
    sngEnd = 2 * dblPI * 0.25
    rptReport.Circle (lngLeft + lngWidth - _
            lngRadius, lngTop + lngRadius), _
            lngRadius, vbBlue, sngStart, sngEnd
    '右边线条
    rptReport.Line (lngLeft + lngWidth, _
        lngTop + lngRadius)- _
        (lngLeft + lngWidth, _
        lngTop + lngHeight - lngRadius)

    '右下角
    sngStart = 2 * dblPI * 0.75
    sngEnd = 2 * dblPI
    rptReport.Circle (lngLeft + lngWidth - _
        lngRadius, lngTop + lngHeight - lngRadius), _
        lngRadius, vbBlue, sngStart, sngEnd
    rptReport.Line (lngLeft + lngRadius, _
        lngTop + lngHeight)- _
        (lngLeft + lngWidth - lngRadius, lngTop + lngHeight)

    '左下角
    sngStart = 2 * dblPI * 0.5
    sngEnd = 2 * dblPI * 0.75
    rptReport.Circle (lngLeft + lngRadius, _
        lngTop + lngHeight - lngRadius), _
        lngRadius, vbBlue, sngStart, sngEnd
    '右边线
    rptReport.Line (lngLeft, lngTop + lngRadius)- _
        (lngLeft, lngTop + lngHeight - lngRadius)

End Sub

http://www.office-cn.net

(责任编辑：admin)

• ·解决Access在页面设置中设置边距无法保
• ·Access通用报表打印设置
• ·在Access中使用自动化打印报告
• ·报表奇偶分页打印
• ·access输出资料到word用于打印
• ·支票打印的日期大写问题Access2007
• ·[报表]报表跨节垂直居中例子
• ·ACCESS-VBA编程 第八章 报表
• ·用Access2007解决支票打印的日期大写问
• ·自由设置页码打印报表
• ·ACCESS和EXECL结合的简单说明
• ·每页打印一定行数后自动分页（报表分页
• ·在VB中用代码打印ACCESS报表
• ·[原创]在 Access 2000中变通实现弹出式
• ·在Access 2002中打印报表的关系图
• ·Access轻松实现多数据批量打印