diff --git a/source/printlist.pas b/source/printlist.pas
index 6f61dc30..2b5b2b85 100644
--- a/source/printlist.pas
+++ b/source/printlist.pas
@@ -81,7 +81,12 @@ begin
     else list := Mainform.ActiveGrid;
   end;
   if Assigned(list) then
+  try
     list.Print(Printer, chkPrintHeader.Checked);
+  except
+    on E:EPrinter do
+      ErrorDialog(E.Message);
+  end;
   Screen.Cursor := crDefault;
 end;