[Gambas-bugtracker] Bug #1723: Printer object always returns A4 paper size

[bugtracker at gambaswiki.org]

http://gambaswiki.org/bugtracker/edit?object=BUG.1723&from=L21haW4-

Brian G reported a new bug.

Summary
-------

Printer object always returns A4 paper size

Type             : Bug
Priority         : High
Gambas version   : Master
Product          : Language


Description
-----------

Using the following code Even after the configure call and selecting letter size, the setting is still A4
I have to set the paper size in my code, and that of course does not adjust the paint object

Public Sub PrintMenu_Click()

  If MyPrinter.Configure() Then Return
  
  MyPrinter.Print()

End
Public Sub MyPrinter_Begin()

  MyPrinter.paper = Printer.letter
  
  Dim PRINT_MARGIN As Float = Paint.Width / MyPrinter.PaperWidth * 10
  Dim hExtents As PaintExtents
 
  Paint.Font = ProgramWorkSpace.Font
  hExtents = Paint.TextExtents(ProgramWorkSpace.text)
  MyPrinter.Count = Ceil(hExtents.Height / (Paint.Height - PRINT_MARGIN * 2))
End


System information
------------------

[System]
Gambas=3.14.90 f0b3762ec (master)
OperatingSystem=Linux
Kernel=5.3.0-28-generic
Architecture=x86_64
Distribution=Linux Mint 19.2 Tina
Desktop=MATE
Theme=Qt5CTProxy
Language=en_US.UTF-8
Memory=7340M

[Libraries]
Cairo=libcairo.so.2.11510.0
Curl=libcurl.so.4.5.0
DBus=libdbus-1.so.3.19.4
GStreamer=libgstreamer-1.0.so.0.1405.0
GTK+2=libgtk-x11-2.0.so.0.2400.32
GTK+3=libgtk-3.so.0.2200.30
OpenGL=libGL.so.1.0.0
Poppler=libpoppler.so.73.0.0
QT4=libQtCore.so.4.8.7
QT5=libQt5Core.so.5.9.5
SDL=libSDL-1.2.so.0.11.4
SQLite=libsqlite3.so.0.8.6

[Environment]
CLUTTER_BACKEND=x11
COMPIZ_CONFIG_PROFILE=mate
DBUS_SESSION_BUS_ADDRESS=unix:path=/run/user/1000/bus
DEFAULTS_PATH=/usr/share/gconf/mate.default.path
DESKTOP_SESSION=mate
DISPLAY=:0
GB_GUI=gb.qt5
GDMSESSION=mate
GDM_LANG=en_US
GIO_LAUNCHED_DESKTOP_FILE=<home>/Desktop/gambas3.desktop
GIO_LAUNCHED_DESKTOP_FILE_PID=23801
GPG_AGENT_INFO=/run/user/1000/gnupg/S.gpg-agent:0:1
GTK_MODULES=gail:atk-bridge
GTK_OVERLAY_SCROLLING=0
HOME=<home>
INSIDE_CAJA_PYTHON=
LANG=en_US.UTF-8
LANGUAGE=en_US.UTF-8
LOGNAME=<user>
MANDATORY_PATH=/usr/share/gconf/mate.mandatory.path
MATE_DESKTOP_SESSION_ID=this-is-deprecated
PATH=<home>/.local/bin:<home>/bin:/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/usr/local/games
PWD=<home>
QT_ACCESSIBILITY=1
QT_AUTO_SCREEN_SCALE_FACTOR=0
QT_LOGGING_RULES=*.debug=false
QT_QPA_PLATFORMTHEME=qt5ct
QT_SCALE_FACTOR=1
SESSION_MANAGER=local/<hostname>:@/tmp/.ICE-unix/1479,unix/<hostname>:/tmp/.ICE-unix/1479
SHELL=/bin/bash
SHLVL=0
SSH_AGENT_PID=1817
SSH_AUTH_SOCK=/run/user/1000/keyring/ssh
TZ=:/etc/localtime
USER=<user>
XAUTHORITY=<home>/.Xauthority
XDG_CONFIG_DIRS=/etc/xdg/xdg-mate:/etc/xdg
XDG_CURRENT_DESKTOP=MATE
XDG_DATA_DIRS=/usr/share/mate:<home>/.local/share/flatpak/exports/share:/var/lib/flatpak/exports/share:/usr/local/share:/usr/share
XDG_GREETER_DATA_DIR=/var/lib/lightdm-data/<user>
XDG_RUNTIME_DIR=/run/user/1000
XDG_SEAT=seat0
XDG_SEAT_PATH=/org/freedesktop/DisplayManager/Seat0
XDG_SESSION_DESKTOP=mate
XDG_SESSION_ID=c2
XDG_SESSION_PATH=/org/freedesktop/DisplayManager/Session0
XDG_SESSION_TYPE=x11
XDG_VTNR=7