Как программно задать поля в отчете Акцесс? Типа слева=10мм, справа 5 мм.

Public Sub ReportCloumns(RepName As String, Columns As Integer, Left, Right, Top, Botttom As Single, Optional BetwCol As Single = 0.5)
    Dim PrtMipString As str_PRTMIP
    Dim PM As type_PRTMIP
    Dim rpt As Report
    Const PM_HORIZONTALCOLS = 1953
    Const PM_VERTICALCOLS = 1954
    ' Open the report.
    DoCmd.OpenReport RepName, acViewDesign, , , acHidden
    Set rpt = Reports(RepName)
    PrtMipString.strRGB = rpt.PrtMip
    LSet PM = PrtMipString
    ' Create columns.
    PM.cxColumns = Columns
    ' Set 0.1 cm between rows.
    PM.xRowSpacing = 0.1 * 567
    ' Set 0.5 cm between columns.
    PM.yColumnSpacing = BetwCol * 567
    PM.rItemLayout = PM_VERTICALCOLS
    ' Set margins.
    PM.xLeftMargin = Left * 567
    PM.yTopMargin = Top * 567
    PM.xRightMargin = Right * 567
    PM.yBotMargin = Botttom * 567
    ' Update property.
    LSet PrtMipString = PM
    rpt.PrtMip = PrtMipString.strRGB
    Set rpt = Nothing
    DoCmd.OpenReport RepName, acViewPreview
End Sub

Public Type str_PRTMIP
    strRGB As String * 28
End Type
 
Public 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

Application.SetOption 'Left Margin', '2'    Application.SetOption 'Right Margin', '2'
Application.SetOption 'Bottom Margin', '2'
Application.SetOption 'Top Margin', '2'