-(setq ps-paper-type 'a4
- ps-print-only-one-header t
- ps-print-color-p t
- ps-landscape-mode t ps-number-of-columns 4
- ps-line-number t ps-line-number-step 5 ps-line-number-start 5
- ps-zebra-stripes nil ps-zebra-stripe-height 5
- ps-spool-duplex t ps-spool-tumble nil ps-spool-config 'setpagedevice
- ps-top-margin (* 12 (/ 72 25.4))
- ps-bottom-margin (* 16 (/ 72 25.4))
- ps-header-offset (* 8 (/ 72 25.4))
- ps-left-margin (* 12 (/ 72 25.4))
- ps-right-margin (* 12 (/ 72 25.4))
- ps-inter-column (* 4 (/ 72 25.4))
- ps-font-family 'CourierCondensed ps-font-size '(4.5 . 5.16)
- ps-line-number-font 'Palatino ps-line-number-font-size 3
- ps-header-font-family 'Helvetica
- ps-header-title-font-size '(8 . 10)
- ps-header-font-size '(6 . 8))
+(let ((mm (/ 72 25.4)))
+ (setq ps-paper-type 'a4
+ ps-print-only-one-header t
+ ps-print-color-p t
+ ps-landscape-mode t ps-number-of-columns 4
+ ps-line-number t ps-line-number-step 5 ps-line-number-start 5
+ ps-zebra-stripes nil ps-zebra-stripe-height 5
+ ps-spool-duplex t ps-spool-tumble nil ps-spool-config 'setpagedevice
+ ps-top-margin (* 12 mm)
+ ps-bottom-margin (* 16 mm)
+ ps-header-offset (* 8 mm)
+ ps-left-margin (* 12 mm)
+ ps-right-margin (* 12 mm)
+ ps-inter-column (* 4 mm)
+ ps-font-family 'CourierCondensed ps-font-size '(4.5 . 5.16)
+ ps-line-number-font 'Palatino ps-line-number-font-size 3
+ ps-header-font-family 'Helvetica
+ ps-header-title-font-size '(8 . 10)
+ ps-header-font-size '(6 . 8)))