Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Lista Forumurilor Pe Tematici
|
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login
POZE MRRRR'S FORUM (VIEW ONLY)
Nu sunteti logat.
|
Nou pe simpatie:
Bby67 pe Simpatie
 | Femeie
19 ani
Bucuresti
cauta Barbat
19 - 70 ani |
|
Mrrrr
AdMiN
 Inregistrat: acum 17 ani
Postari: 2186
|
|
Sub SetPageMargins()
Dim Lmarg, Rmarg, Tmarg, Bmarg As String
Lmarg = InputBox("Enter the number of cm for LEFT margin. Note: for decimals use comma (,)")
Rmarg = InputBox("Enter the number of cm for RIGHT margin. Note: for decimals use comma (,)")
Tmarg = InputBox("Enter the number of cm for TOP margin. Note: for decimals use comma (,)")
Bmarg = InputBox("Enter the number of cm for BOTTOM margin. Note: for decimals use comma (,)")
With ActiveDocument.PageSetup
.TopMargin = CentimetersToPoints(Tmarg)
.BottomMargin = CentimetersToPoints(Bmarg)
.LeftMargin = CentimetersToPoints(Lmarg)
.RightMargin = CentimetersToPoints(Rmarg)
End With
End Sub |
_______________________________________
|
|
| pus acum 5 ani |
|