(setq std-height (- 792 (* 2 36)))  ; = 720
(setq std-width (- 612 (* 2 36)))   ; = 540

(setq a4-height (- 842 (* 2 27)))   ; = 788
(setq a4-width (- 595 (* 2 27)))    ; = 541