Hello,
The following code works with v17R4 32-bit.
On v17R4 64-bit and v18 it does nothing
C_LONGINT($l_refArea)
C_TEXT($t_path)
// loading the report
$t_path:=System folder(Desktop)+“test.pdf”
QUERY([Alumnos];[Alumnos]Apellido_paterno=“a@”)
QUERY([xShell_Reports];[xShell_Reports]ReportName=“Estadísticas por sexo”)
$l_refArea:=QR New offscreen area
QR BLOB TO REPORT($l_refArea;[xShell_Reports]xReportData_)
QR SET REPORT TABLE($l_refArea;Table(->[Alumnos]))
SET PRINT OPTION(Destination option;3;$t_path)
If (Not(Version type ?? 64 bit version))
SET PRINT OPTION(Mac spool file format option;0) // not compatible with
64-bit versions
End if
SET PRINT OPTION(Spooler document name option;$t_path)
SET PRINT OPTION(Hide printing progress option;1)
SET CURRENT PRINTER(Generic PDF driver)
QR SET DESTINATION($l_refArea;qr printer;"*")
QR RUN($l_refArea)
QR DELETE OFFSCREEN AREA($l_refArea)
SET CURRENT PRINTER("")
Previewing doesn’t work either on 64-bit versions
QR SET DESTINATION($l_refArea;qr printer;"*")
SET PRINT PREVIEW(True)
QR RUN($l_refArea)
QR DELETE OFFSCREEN AREA($l_refArea)
SET PRINT PREVIEW(False)
I suppose I’m doing something wrong but I can figure it out…
Any clues?
Thanks in advance...
Alberto
**********************************************************************
4D Internet Users Group (4D iNUG)
Archive: http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub: mailto:[email protected]
**********************************************************************
