diff --git a/source/printlist.dfm b/source/printlist.dfm
index 78355b1f..cf9d9a74 100644
--- a/source/printlist.dfm
+++ b/source/printlist.dfm
@@ -52,7 +52,7 @@ object printlistForm: TprintlistForm
     Caption = 'Print what...'
     TabOrder = 2
     object chkAllColumns: TCheckBox
-      Left = 16
+      Left = 10
       Top = 24
       Width = 97
       Height = 17
diff --git a/source/printlist.pas b/source/printlist.pas
index be321b01..1825f64a 100644
--- a/source/printlist.pas
+++ b/source/printlist.pas
@@ -107,17 +107,18 @@ begin
     chk.Caption := list.Header.Columns[i].Text;
     chk.Checked := True;
     chk.Enabled := False;
+    chk.Width := 125;
     if chkCount mod 2 = 0 then begin
       inc(chkTop);
-      chk.Left := 16;
+      chk.Left := 10;
     end else
-      chk.Left := 130;
+      chk.Left := 140;
     chk.Top := chkTop * chkHeight;
     chk.Tag := 1;
     inc(chkCount);
   end;
   Height := boxColumns.Top
-    + (3 * chkHeight) // "All columns checkbox + space
+    + (4 * chkHeight) // "All columns checkbox + space
     + (Height - boxColumns.Top - boxColumns.Height) // Bottom rest
     + (Ceil(chkCount/2) * chkHeight); // Height of generated checkboxes
   Screen.Cursor := crDefault;