diff --git a/hledger-lib/Hledger/Write/Html/Lucid.hs b/hledger-lib/Hledger/Write/Html/Lucid.hs
index 1e1215b0f..d7eed9a8d 100644
--- a/hledger-lib/Hledger/Write/Html/Lucid.hs
+++ b/hledger-lib/Hledger/Write/Html/Lucid.hs
@@ -25,6 +25,7 @@ type Html = Html.Html ()
 
 printHtml :: (Lines border) => [[Cell border Html]] -> Html
 printHtml table = do
+    Html.link_ [Html.rel_ "stylesheet", Html.href_ "hledger.css"]
     Html.style_ Attr.tableStylesheet
     Html.table_ $ traverse_ formatRow table
 
diff --git a/hledger/Hledger/Cli/Commands/Balance.hs b/hledger/Hledger/Cli/Commands/Balance.hs
index dea47eee4..dd80da384 100644
--- a/hledger/Hledger/Cli/Commands/Balance.hs
+++ b/hledger/Hledger/Cli/Commands/Balance.hs
@@ -821,6 +821,7 @@ multiBalanceReportAsHtml ropts mbr =
   let
     (headingsrow,bodyrows,mtotalsrows) = multiBalanceReportHtmlRows ropts mbr
   in do
+    link_ [rel_ "stylesheet", href_ "hledger.css"]
     style_ tableStylesheet
     table_ $ mconcat $
          [headingsrow]