如何写这个函数

Question

DataReport 打印时设置边距以及纵向横向打印
请问将下面设置成函数怎么写?
Private Sub DataReport_Initialize()
Me.BottomMargin = 10
Me.LeftMargin = 700
Me.RightMargin = 10
Me.TopMargin = 10
Me.Orientation = rptOrientLandscape'或Me.Orientation ==rptOrientPortrait
End Sub
就是不知Me怎么处理

Answer 1

是不是要这样的效果：
Private Sub Ini(ByRef Obj As Object)
    Obj.BottomMargin = 10
    Obj.LeftMargin = 700
    Obj.RightMargin = 10
    Obj.TopMargin = 10
    Obj.Orientation = rptOrientLandscape'或Obj.Orientation ==rptOrientPortrait 
End Sub