Printing with FiveTouch

[Antonio Linares]

You need to download the new FiveTouch.apk version from here:

https://github.com/FiveTechSoft/fivetouch-Qt-Creator-4.8.2-and-Qt-5.12.1-2019/tree/master/download

print01.prg

Code: Select all | Expand

#include "FiveTouch.ch"function Main()   QPrintPreviewDialog( QPrinter() ):Exec()return nil 

[Antonio Linares]

A real example:

QT print defines are here:
https://doc.qt.io/archives/qt-4.8/qprinter.html

print02.prg

Code: Select all | Expand

#include "FiveTouch.ch"#define QPRINTER_A4            0#define QPRINTER_PORTRAIT    0#define QPRINTER_MILLIMETER   0#define QPRINTER_NATIVEFORMAT  0function Main()      local oPrinter, oPrintPreviewDialog      oPrinter = QPrinter()      oPrinter:setPageSize( QPageSize( QPRINTER_A4 ) )      oPrinter:setPageOrientation( QPRINTER_PORTRAIT )      oPrinter:setPageMargins( QMarginsF( 15, 15, 15, 15 ), QPRINTER_MILLIMETER )      oPrinter:setFullPage( .F. )      oPrinter:setOutputFormat( QPRINTER_NATIVEFORMAT )      oPrintPreviewDialog := QPrintPreviewDialog( oPrinter )      oPrintPreviewDialog:Connect( "paintRequested(QPrinter*)", { | oPrinter | PrintPage( oPrinter ) } )      oPrintPreviewDialog:Exec()return nilfunction PrintPage( oPrinter )      local oPainter      oPainter = QPainter()      oPainter:Begin( oPrinter )      oPainter:DrawText( 100, 100, "Some text" )      oPainter:End()return nil

Many thanks to Cristian Francolino for his great example on qtcontribs google group:
https://groups.google.com/d/msg/qtcontribs/ftmFJn_py-k/v5zUyVfCBAAJ