diff --git a/components/lazreport/source/languages/lr_const.po b/components/lazreport/source/languages/lr_const.po
index f7c1666d3e..1868ef96d6 100644
--- a/components/lazreport/source/languages/lr_const.po
+++ b/components/lazreport/source/languages/lr_const.po
@@ -3,11 +3,6 @@ msgstr ""
 "MIME-Version: 1.0\n"
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
-"Project-Id-Version: \n"
-"POT-Creation-Date: \n"
-"PO-Revision-Date: 2007-09-12 18:34-0600\n"
-"Last-Translator: Jesus Reyes A. <jesusrmx@yahoo.com.mx>\n"
-"Language-Team: \n"
 
 #: lr_const:spaper20
 msgid "#10 Envelope, 4 1/8  x 9 1/2\""
@@ -561,6 +556,10 @@ msgstr ""
 msgid "Auto size"
 msgstr ""
 
+#: lr_const:sdocautor
+msgid "Autor"
+msgstr ""
+
 #: lr_const:sfilterparam
 msgid "Average font height:"
 msgstr ""
@@ -669,6 +668,10 @@ msgstr ""
 msgid "Bring to front"
 msgstr ""
 
+#: lr_const:sdocbuild
+msgid "Build"
+msgstr ""
+
 #: lr_const:spaper24
 msgid "C Sheet, 17 x 22\""
 msgstr ""
@@ -1461,6 +1464,10 @@ msgstr ""
 msgid "LOWERCASE(<String>)/Converts <String> symbols to lower case."
 msgstr ""
 
+#: lr_const:sdocmajor
+msgid "Major"
+msgstr ""
+
 #: lr_const:spgoptformmargins
 msgid "Margins"
 msgstr ""
@@ -1501,6 +1508,10 @@ msgstr ""
 msgid "MINNUM(<Value1>, <Value2>)/Returns min of given values."
 msgstr ""
 
+#: lr_const:sdocminor
+msgid "Minor"
+msgstr ""
+
 #: lr_const:smm
 msgid "MM"
 msgstr ""
@@ -1741,6 +1752,10 @@ msgstr ""
 msgid "Redo cancelled action"
 msgstr ""
 
+#: lr_const:sdocrelease
+msgid "Release"
+msgstr ""
+
 #: lr_const:sfrdesignerformremovepg
 msgid "Remove page"
 msgstr ""
@@ -2069,6 +2084,10 @@ msgstr ""
 msgid "Variables list"
 msgstr ""
 
+#: lr_const:sdocversion
+msgid "Version"
+msgstr ""
+
 #: lr_const:sfrdesignerformvertcenter
 msgid "Vertical center"
 msgstr ""
diff --git a/components/lazreport/source/lr_class.pas b/components/lazreport/source/lr_class.pas
index db657f6a7a..dee5b9cd8a 100644
--- a/components/lazreport/source/lr_class.pas
+++ b/components/lazreport/source/lr_class.pas
@@ -9070,7 +9070,7 @@ end;
 
 constructor TfrPageReport.CreatePage;
 begin
-  self.Create(9, 0, 0, poPortrait);
+  self.Create(prn.DefaultPageSize, 0, 0, poPortrait);
 end;
 
 { TfrPageDialog }
diff --git a/components/lazreport/source/lr_prntr.pas b/components/lazreport/source/lr_prntr.pas
index 665b152441..4205efbb26 100644
--- a/components/lazreport/source/lr_prntr.pas
+++ b/components/lazreport/source/lr_prntr.pas
@@ -59,6 +59,7 @@ type
       pgOr: TPrinterOrientation): Boolean;
     function GetArrayPos(pgSize: Integer): Integer;
     function DefaultPaperIndex: Integer;
+    function DefaultPageSize: Integer;
     
     property PaperNames: TStringList read GetPaperNames;
     property Printer: TPrinter read FPrinter write SetPrinter;
@@ -1058,6 +1059,18 @@ begin
     Result:=0;
 end;
 
+function TfrPrinter.DefaultPageSize: Integer;
+var
+  Indx: Integer;
+begin
+  if FPaperNames.Count>0  then
+  begin
+    Indx := DefaultPaperIndex;
+    result := PaperSizes[Indx];
+  end else
+    result := 9;
+end;
+
 procedure TfrPrinter.SetPrinterIndex(Value: Integer);
 begin
   FPrinterIndex := Value;