ms-access / VBA: неверная ссылка на свойство scalemode (ошибка при добавлении границы в отчет)

Question

Я пытаюсь использовать следующую функцию, чтобы нарисовать границу вокруг моего отчета:

Public Function PageBorder(ByVal strReportName As String)
Dim Rpt As Report, lngColor As Long
Dim sngTop As Single, sngLeft As Single
Dim sngwidth As Single, sngheight As Single

On Error GoTo PageBorder_Err
'DRAW DOUBLE LINED BORDER
Set Rpt = Reports(strReportName)
'Set scale to pixels
Rpt.ScaleMode = 3
'Top inside edge
sngTop = Rpt.ScaleTop
'Left inside edge
sngLeft = Rpt.ScaleLeft
'Width inside edge
sngwidth = Rpt.ScaleWidth
'Height inside edge
sngheight = Rpt.ScaleHeight
'color value
lngColor = RGB(0, 0, 255)
'Draw page Border
Rpt.Line (sngTop, sngLeft)-(sngwidth, sngheight), lngColor, B

sngTop = Rpt.ScaleTop + 10
sngLeft = Rpt.ScaleLeft + 10
sngwidth = Rpt.ScaleWidth - 10
sngheight = Rpt.ScaleHeight - 10

Rpt.Line (sngTop, sngLeft)-(sngwidth, sngheight), lngColor, B

PageBorder_Exit:
Exit Function

PageBorder_Err:
MsgBox Err.Description, , "PageBorder"
Resume PageBorder_Exit
End Function

(источник: http://msaccesstips.com/2007/08/reports-page-border/)

Я добавил pageborder "myreport" в свой report_open,но он возвращает следующую ошибку:

ошибка 2455: недопустимая ссылка на свойство scalemode.

Кто-нибудь знает об этом?

Answer 1

Попробуйте событие On Page.

Доступ к справке: «Вы можете установить свойство ScaleMode с помощью макроса или процедуры события Visual Basic, определенной параметром свойства OnPrint раздела.»