From 91518a2b72485245981345419993a21370706c8e Mon Sep 17 00:00:00 2001
From: Fabien Bodard <gambas.fr@gmail.com>
Date: Sat, 1 Apr 2017 13:27:35 +0000
Subject: [PATCH] [GB.REPORT2] * BUG: FPreview: Remember the Duplex mode when
 changing the printer device.

git-svn-id: svn://localhost/gambas/trunk@8115 867c0c6c-44f3-4631-809d-bfa615b0a4ec
---
 comp/src/gb.report2/.project                   | 4 ++--
 comp/src/gb.report2/.src/Tests/Report13.class  | 2 +-
 comp/src/gb.report2/.src/Tests/Report13.report | 6 ++++++
 comp/src/gb.report2/.src/Viewer/FPreview.class | 1 +
 comp/src/gb.report2/.startup                   | 2 +-
 5 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/comp/src/gb.report2/.project b/comp/src/gb.report2/.project
index 299bb6140..f2c85d78e 100644
--- a/comp/src/gb.report2/.project
+++ b/comp/src/gb.report2/.project
@@ -1,7 +1,7 @@
 # Gambas Project File 3.0
-# Compiled with Gambas 3.8.90
+# Compiled with Gambas 3.9.90
 Title=ReportsEvolution
-Startup=Report17
+Startup=Report13
 Icon=icon.png
 Version=3.9.90
 VersionFile=1
diff --git a/comp/src/gb.report2/.src/Tests/Report13.class b/comp/src/gb.report2/.src/Tests/Report13.class
index ea3fde5de..f08416a13 100644
--- a/comp/src/gb.report2/.src/Tests/Report13.class
+++ b/comp/src/gb.report2/.src/Tests/Report13.class
@@ -3,6 +3,6 @@
 
 Public Sub Report_Open()
 
-  ReportHBox1.DataCount = 50
+  ReportHBox1.DataCount = 10000
 
 End
diff --git a/comp/src/gb.report2/.src/Tests/Report13.report b/comp/src/gb.report2/.src/Tests/Report13.report
index 1048f5c62..24301dde4 100644
--- a/comp/src/gb.report2/.src/Tests/Report13.report
+++ b/comp/src/gb.report2/.src/Tests/Report13.report
@@ -31,6 +31,12 @@
       Alignment = Align.Center
     }
   }
+  { ReportLabel3 ReportLabel
+    #MoveScaled(1,22,107,29)
+    Fixed = True
+    Font = Font["+12"]
+    Text = ("=\"PAGE \" & Page & \" / \" & pages")
+  }
   Index = 1
   Text = ("")
   { ReportLabel2 ReportLabel
diff --git a/comp/src/gb.report2/.src/Viewer/FPreview.class b/comp/src/gb.report2/.src/Viewer/FPreview.class
index 70ae01de9..b422247a7 100644
--- a/comp/src/gb.report2/.src/Viewer/FPreview.class
+++ b/comp/src/gb.report2/.src/Viewer/FPreview.class
@@ -50,6 +50,7 @@ Private Sub SelectPrinter(Optional sName As String)
     
   'NOTE: force the printer fullpage mode because it make error on report placement
   $hPrinter.FullPage = True
+  $hPrinter.Duplex = cmbDuplex.Index
   
   tgbGrayScale.Value = $hPrinter.GrayScale
   tgbFullPage.Value = $hPrinter.FullPage
diff --git a/comp/src/gb.report2/.startup b/comp/src/gb.report2/.startup
index 3afcf6481..ec33c10cd 100644
--- a/comp/src/gb.report2/.startup
+++ b/comp/src/gb.report2/.startup
@@ -1,4 +1,4 @@
-Report17
+Report13
 ReportsEvolution
 0
 0