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