Zašto bi margina zavisila od imena dokumenta, zar ne zavisi od štampača...
Čisto radi skraćenja koda, možda bi mogao umesto leva, desna da koristiš u tabeli margina1, 2, 3, 4.
Public Sub UrediMargine(WhReport as Report)
Dim I as Byte
Dim Margina as Byte
For I = 1 to 4
Margina = Val( Nz ( DLookUp( "Margina" & I, tblMargine, "dokument = '" & WhReport.Name & "'","")) * 56.7
If Margina > 0 And I = 1 Then WhReport.TopMargin = Margina
If Margina > 0 And I = 2 Then WhReport.LeftMargin = Margina
If Margina > 0 And I = 3 Then WhReport.BottomMargin = Margina
If Margina > 0 And I = 4 Then WhReport.RightMargin = Margina
Next I
End Sub
I još bih dodao da mislim da je dovoljno da se podese samo leva i gornja margina. U slučaju da se kao vrednosti u tabeli koriste Numeric value, što je logično, treba postaviti Nz(DLookUp (...),0)
Ozbiljan i odgovoran mladić