一个简单的问题

大熊

在模块前面补上试试，有问题再试。
Private Type str_PRTMIP
    strRGB As String * 28
End Type

Private Type type_PRTMIP
    xLeftMargin As Long
    yTopMargin As Long
    xRightMargin As Long
    yBotMargin As Long
    fDataOnly As Long
    xWidth As Long
    yHeight As Long
    fDefaultSize As Long
    cxColumns As Long
    yColumnSpacing As Long
    xRowSpacing As Long
    rItemLayout As Long
    fFastPrint As Long
    fDatasheet As Long
End Type

oceanfloor

我把抄来后，总是提示DoCmd.OpenReport strReportName, acViewDesign出错，请这是为何

大熊

试了一下，没有问题，你退出ACCESS后再试试，我是在debug窗口直接调的，会不会你的报名已打开，或者你在MDE中用该语句。
ps.刚才的我传的TYPE定义与作者不一样，正确如下，这个该死的作者修改了微软给的属性名。

Private Type str_PRTMIP
'strRGB As String * 28
RGB As String * 28
End Type

Private Type type_PRTMIP
xLeftMargin As Long
yTopMargin As Long
xRightMargin As Long
yBottomMargin As Long
fDataOnly As Long
xWidth As Long
yHeight As Long
fDefaultSize As Long
cxColumns As Long
yColumnSpacing As Long
xRowSpacing As Long
rItemLayout As Long
fFastPrint As Long
fDatasheet As Long
End Type