diff --git a/src/export-sheet.scm b/src/export-sheet.scm
index 5bc94cb..a907129 100644
--- a/src/export-sheet.scm
+++ b/src/export-sheet.scm
@@ -74,7 +74,9 @@
    (print "\\vskip1em")
    (newline)
    (define colnames
-     '((id) Nick "Jméno" "Příjmení" (Fee) (Bilance) ("\\begin{minipage}{15mm}\\begin{center}Aktivní\\\\Měsíce\\end{center}\\end{minipage}") OK? Podpis))
+     '((id) Nick "Jméno" "Příjmení" (Fee) (Bilance)
+       ("\\raisebox{2pt}{\\begin{minipage}{15mm}\\begin{center}Aktivní\\\\Měsíce\\end{center}\\end{minipage}}")
+       ((Hlas?)) Podpis))
    (print "\\renewcommand\\arraystretch{2.1}")
    (print
     (format
@@ -83,7 +85,10 @@
       (map
        (lambda (x)
 	 (if (list? x)
-	     "r" "l"))
+	     (if (list? (car x))
+		 "c"
+		 "r")
+	     "l"))
        colnames)
       "|")))
    (print "\\hline")
@@ -99,7 +104,9 @@
 		 x
 		 (if (string? (car x))
 		     (car x)
-		     (symbol->string (car x)))))))
+		     (if (list? (car x))
+			 (symbol->string (caar x))
+			 (symbol->string (car x))))))))
       colnames)
      "&")
     "\\\\")
@@ -163,43 +170,43 @@
 	  (string-translate*
 	   (brmember-nick mr)
 	   '(("_" . "\\_")))
-	  " & "
+	  " & \\small "
 	  fname
-	  " & "
+	  " & \\small "
 	  sname
 	  " & "
 	  current-fee
 	  " & "
-	  "\\begin{minipage}{15mm}\\begin{flushright}"
+	  "\\raisebox{2pt}{\\begin{minipage}{15mm}\\begin{flushright}"
 	  (format-amount-tex
 	   (member-total-balance mr))
 	  "\\\\"
 	  (if balance-ok?
 	      "Bez~dluhu"
 	      "---~~~~~~")
-	  "\\end{flushright}\\end{minipage}"
+	  "\\end{flushright}\\end{minipage}}"
 	  " & "
 	  ;(if balance-ok?
 	  ;    "Y"
 	  ;    "--")
 	  ;" & "
-	  "\\begin{minipage}{12mm}\\begin{center}"
+	  "\\raisebox{2pt}{\\begin{minipage}{12mm}\\begin{center}"
 	  numactive "/" 12
 	  "\\\\"
 	  (if active-ok?
 	      "Splněno"
 	      "\\phantom{Sp}---\\phantom{Sp}")
-	  "\\end{center}\\end{minipage}"
+	  "\\end{center}\\end{minipage}}"
 	  " & "
 	  ;(if active-ok?
 	  ;    "Y"
 	  ;    "--")
 	  ;" & "
 	  (if vote-ok?
-	      "Y"
+	      "Ano"
 	      "--")
 	  " & "
-	  "~\\hskip24mm~"
+	  "~\\hskip28mm~"
 	  " \\\\")
 	 (print "\\hline")
 	 (loop (cdr mrs)))))