diff -ur progs.orig/convert/latex/tmtex-preamble.scm progs/convert/latex/tmtex-preamble.scm
--- progs.orig/convert/latex/tmtex-preamble.scm	2004-09-29 23:06:57.945659768 -0600
+++ progs/convert/latex/tmtex-preamble.scm	2004-09-30 03:01:47.807675160 -0600
@@ -475,15 +475,32 @@
   ("statement" "papersize={140mm,216mm}")
   ("tabloid" "papersize={279mm,432mm}"))
 
-(define (tmtex-preamble-page-type init)
+(define (tmtex-preamble-page-info init)
   (let* ((page-type (ahash-ref init "page-type"))
-	 (page-size (drd-ref tmpre-paper-type% page-type)))
-    (if page-size
-	(begin
-	  (ahash-set! tmtex-preamble-uses "geometry" #t)
-	  (set! tmtex-preamble-init
-		(string-append tmtex-preamble-init
-			       "\\geometry{" page-size "}\n"))))))
+	 (page-size (drd-ref tmpre-paper-type% page-type))
+	 (page-orientation (ahash-ref init "page-orientation"))
+	 (page-odd (ahash-ref init "page-odd"))
+	 (page-top (ahash-ref init "page-top"))
+	 (page-right (ahash-ref init "page-right"))
+	 (page-bot (ahash-ref init "page-bot")))
+    (begin
+      (if
+	(or 
+	  page-size
+	  page-orientation
+	  page-odd
+	  page-top
+	  page-right
+	  page-bot)
+	(ahash-set! tmtex-preamble-uses "geometry" #t))
+      (set! tmtex-preamble-init
+	(string-append tmtex-preamble-init
+	  (if page-size (string-append "\\geometry{" page-size "}\n") "")
+	  (if page-orientation (string-append "\\geometry{" page-orientation "}\n") "")
+	  (if page-odd (string-append "\\geometry{left=" page-odd "}\n") "")
+	  (if page-top (string-append "\\geometry{top=" page-top "}\n") "")
+	  (if page-right (string-append "\\geometry{right=" page-right "}\n") "")
+	  (if page-bot (string-append "\\geometry{bottom=" page-bot "}\n") ""))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Building the preamble
@@ -542,7 +559,7 @@
   (set! tmtex-preamble-init "")
   (set! tmtex-preamble-result "")
   (set! tmtex-preamble-hichar-flag #f)
-  (tmtex-preamble-page-type init)
+  (tmtex-preamble-page-info init)
   (if (drd-ref tmtex-preamble-language% lan)
       (set! tmtex-preamble-result
 	    (string-append (drd-ref tmtex-preamble-language% lan) "\n")))
