Thank you very much
BestRegards
GVS
Pritpal Bedi escribió:
Hi
Guillermo Varona wrote:
Anyway, I'll keep watching this powerful contribution.
Yes sure. Examine HBIDE.PRG :
/*----------------------------------------------------------------------*/
// Printing
/*----------------------------------------------------------------------*/
METHOD HbIde:printPreview()
LOCAL qDlg
qDlg := QPrintPreviewDialog():new( QT_PTROFXBP( ::oDlg ) )
qDlg:setWindowTitle( "Harbour-QT Preview Dialog" )
Qt_Connect_Signal( qDlg:pPtr, "paintRequested(QPrinter)", {|o,p|
::paintRequested( p,o ) } )
qDlg:exec()
Qt_DisConnect_Signal( qDlg:pPtr, "paintRequested(QPrinter)" )
RETURN self
/*----------------------------------------------------------------------*/
METHOD HbIde:paintRequested( pPrinter )
LOCAL qPrinter
qPrinter := QPrinter():configure( pPrinter )
::qCurEdit:print( QT_PTROF( qPrinter ) )
RETURN Self
/*----------------------------------------------------------------------*/
Pritpal thank you very much for this great contribution
You are welcome.
Regards
Pritpal Bedi
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
