MS-アクセス/ 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/）

私は私のreport_openにpageborder "myreport"を追加しましたが、それは次のようなエラーが返されます。

エラー2455：scaleModeプロパティに無効な参照を。

誰もがこれについて手掛かりを持っていますか？

Answer 1

オンページイベントを試してください。

アクセスヘルプ： "セクションのOnPrintプロパティ設定で指定されたマクロまたはVisual Basicイベントプロシージャを使用して、ScaleModeプロパティを設定できます。