Private Sub TestMargins()\n    Dim PrtMipString As str_PRTMIP\n    Dim PM As type_PRTMIP\n    Dim rpt As Report\n\n    DoCmd.OpenReport "rptMyReport", acDesign\n    Set rpt = Reports("rptMyReport")\n    PrtMipString.strRGB = rpt.PrtMip\n    LSet PM = PrtMipString\n\n    PM.xLeftMargin =  0 \n    PM.yTopMargin =  0 \n    PM.xRightMargin =  0 \n    PM.yBotMargin =  0 \n\n    LSet PrtMipString = PM\n    rpt.PrtMip = PrtMipString.strRGB\n    \n    Set rpt = Nothing\n    \n    DoCmd.Close acReport, "rptMyReport", acSaveYes\n  \'---------------------------------------------------\n 
    \n    DoCmd.OpenReport "rptMyReport", acDesign\n    Set rpt = Reports("rptMyReport")\n    PrtMipString.strRGB = rpt.PrtMip\n    LSet PM = PrtMipString\n\n    Debug.Print PM.xLeftMargin /  1440 \n    Debug.Print PM.yTopMargin /  1440 \n    Debug.Print PM.xRightMargin /  1440 \n    Debug.Print PM.yBotMargin /  1440 \n    \n    Set rpt = Nothing\n    DoCmd.Close acReport, "rptHeightGauge", acSaveNo\nEnd Sub\n

Private Sub Report_Page()
    Dim sngTop As Single, sngLeft As Single
    Dim sngWidth As Single, sngHeight As Single
    
    Me.ScaleMode =  7    'сантиметры
 
    Me.DrawWidth =  4 

    sngTop = Me.ScaleTop +  6  
    sngLeft = Me.ScaleLeft +  1 
    sngWidth =  0 
    sngHeight =  14 . 8 

    Me.Line (sngLeft, sngTop)-Step(sngWidth, sngHeight)
End Sub