From 07308d66c9e302b68d56845f29cdfcf1147f6f22 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Thu, 11 Feb 2010 23:46:46 +0000
Subject: [PATCH] Fix wrong PageIndex of data tab in printer implementation.
 Plus: Enable printing columns list on table editor. Fixes issue #1684.

---
 source/printlist.pas | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/source/printlist.pas b/source/printlist.pas
index 51a831ea..918e932a 100644
--- a/source/printlist.pas
+++ b/source/printlist.pas
@@ -76,10 +76,12 @@ begin
       else list := Mainform.ListCommandStats;
       end;
     1: list := Mainform.ListTables;
-    2: list := Mainform.DataGrid;
-    else list := Mainform.QueryGrid;
+    2: if Assigned(Mainform.TableEditor) and Mainform.TableEditor.Visible then
+      list := Mainform.TableEditor.listColumns;
+    else list := Mainform.ActiveGrid;
   end;
-  list.Print(Printer, chkPrintHeader.Checked);
+  if Assigned(list) then
+    list.Print(Printer, chkPrintHeader.Checked);
   Screen.Cursor := crDefault;
 end;