diff --git a/src/clj/auto_ap/ssr/ledger/balance_sheet.clj b/src/clj/auto_ap/ssr/ledger/balance_sheet.clj
index cae0d2ff..66fb3702 100644
--- a/src/clj/auto_ap/ssr/ledger/balance_sheet.clj
+++ b/src/clj/auto_ap/ssr/ledger/balance_sheet.clj
@@ -373,10 +373,20 @@
       output-stream)
     (.toByteArray output-stream)))
 
+(defn join-names [client-ids]
+  (str/replace (->> client-ids (pull-many (dc/db conn) [:client/name]) (map :client/name) (str/join "-")) #"[^\w]" "_" ))
+
+(defn balance-sheet-args->name [request]
+  (let [date (atime/unparse-local
+                   (:date (:query-params request))
+                   atime/iso-date)
+        name    (->> request :query-params :client (map :db/id) join-names)]
+    (format "Balance-sheet-%s-for-%s" date name)))
+
 (defn print-balance-sheet [request]
   (let [uuid     (str (UUID/randomUUID))
         pdf-data (make-balance-sheet-pdf request (:report (get-report request)))
-        name     "test" #_(balance-sheet-args->name args)
+        name     (balance-sheet-args->name request)
         key      (str "reports/balance-sheet/" uuid "/" name ".pdf")
         url      (str "https://" (:data-bucket env) "/" key)]
     (s3/put-object :bucket-name (:data-bucket env/env)