Otvaras izvjestaj u dizajn modu.
Public Sub SetMargins(ByVal strName As String, l, d, g, dl As Double)
Dim PrtMipString As str_PRTMIP
Dim PM As type_PRTMIP
Dim rpt As Report
Const TWIPS As Long = 1440
' Open the report.
DoCmd.OpenReport strName, acDesign
zxz