Podrias apoyarme en como accesar a una clase de TPrinter desde el methodo PreView?
CLASS TPrinter FROM XPrinter
Method SealStamp( cFile ) //esta clase la anexe
ENDCLASS
___________________________________
con esta clase imprimo mis documentos y llamo el preview
Class ZPrintDocs
DATA oDevice
:::
METHOD New( oDevice ) CLASS ZPrintDocs
UPDATE ::oDevice TO oDevice
DEFAULT ::oDevice TO Printer ///de aqui requiero llamar SealStamp()
::nEndDataRow := 2600
::Create()
::CreateForm( Self )
RETURN Self
:::::::::
Method PrintBody()
::::::
IF ::lPreview
:Preview( .T. )
ENDIF
Return ::::::
y en el Preview que me proporcionaste:
MENU oSeals POPUP
MENUITEM "Sello 1"
ACTION Printer:SealStamp("misello1") //aqui requiero dirigirme a ::oDevice pero lo tengo fuera de alcance
Next
ENDMENU
WITH OBJECT ::oToolBar
:AddImages( { "bDiskPrinter" } )
:AddImages( { "bSealStamp" } )
:InsertItem( 8, "", 7, "Guardar esta página como Imágen" ):OnClick := "SaveEMF"
:InsertItem( 9, "", 8, "Aplicar Sello",,,,,, oSeals)
END
Gracias.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
--