diff --git a/components/gridprinter/examples/stringgrid/main.lfm b/components/gridprinter/examples/stringgrid/main.lfm
index b56327a1b..a4ed89186 100644
--- a/components/gridprinter/examples/stringgrid/main.lfm
+++ b/components/gridprinter/examples/stringgrid/main.lfm
@@ -59,7 +59,6 @@ object Form1: TForm1
     Footer.Font.Height = -11
     Header.Font.Height = -11
     Header.Text = 'test||'
-    Orientation = poLandscape
     ShowPrintDialog = gpdPrintDialog
     Left = 168
     Top = 96
diff --git a/components/gridprinter/source/gridprnpreviewform.lfm b/components/gridprinter/source/gridprnpreviewform.lfm
index 114c365cf..07cd0b348 100644
--- a/components/gridprinter/source/gridprnpreviewform.lfm
+++ b/components/gridprinter/source/gridprnpreviewform.lfm
@@ -159,7 +159,6 @@ object GridPrintPreviewForm: TGridPrintPreviewForm
       Left = 380
       Top = 0
       Action = acPortrait
-      Down = True
       ShowCaption = False
     end
     object tbLandscape: TToolButton
diff --git a/components/gridprinter/source/gridprnpreviewform.pas b/components/gridprinter/source/gridprnpreviewform.pas
index 58b82e65a..85f1be6a7 100644
--- a/components/gridprinter/source/gridprnpreviewform.pas
+++ b/components/gridprinter/source/gridprnpreviewform.pas
@@ -774,6 +774,7 @@ begin
       poPortrait: acPortrait.Checked := true;
       poLandscape: acLandscape.Checked := true;
     end;
+
     case FGridPrinter.PrintOrder of
       poRowsFirst: acPrintRowsFirst.Checked := true;
       poColsFirst: acPrintColsFirst.Checked := true;