Asignar bPrint de Tpreview

[mastintin]

Quiero personalizar el dialogo del Preview para dejarlo con el mismo look que el resto del programa . La opción correcta es usar el nuevo codeblock que se ha creado para tal efecto como ClassData bPrint . Pero :
¿ como es la forma mas correcta de asignarlo ? , ¿ Añadiendo código a La función Rpreview() ? . ¿ que otras soluciones mas elegantes aconsejais ? .
Gracias por vuestras respuestas .

[nageswaragunupudi]

Purpose of bPrint is to enable you have your own dialog.
You need to write a function which replaces Method PrintPage(), in your style. Within the function, you can use all methods and data of TPreview.

bPrint := { |oRep| MyPrintPage( oRep ) }

function MyPrintPage( Self )

<here write your function as if you are replacing method PrintPage() >

return nil

[mastintin]

Purpose of bPrint is to enable you have your own dialog.
You need to write a function which replaces Method PrintPage(), in your style. Within the function, you can use all methods and data of TPreview.

bPrint := { |oRep| MyPrintPage( oRep ) }

function MyPrintPage( Self )

<here write your function as if you are replacing method PrintPage() >

return nil

Right, but the question is where is the right place to assign the codeblock ? In the RPreview modified function ?

[nageswaragunupudi]

If you want the replacement globally for the entire application, then the best place is in the beginning of the program in function main().

RPreview():bPrint := <block>

If you want only for a single report, anytime before activating the report:

RPreview():bPrint := <block>
After printing the report
RPreview():bPrint := nil

[mastintin]

If you want the replacement globally for the entire application, then the best place is in the beginning of the program in function main().

RPreview():bPrint := <block>
l

Exactly this was looking. Thank you very much for the help