Sub Report_Page() Me.Line (0, 0)-(Me.ScaleWidth - 30, Me.ScaleHeight - 30), _ RGB(255, 0, 0), B End Sub