Funcion HardCopy()

[Angel]

¿Existe en Xailer alguna función similar para imprimir pantalla? En
Fivewin, se utiliza HardCopy().

[jfgimenez]

Angel,
> ¿Existe en Xailer alguna función similar para imprimir pantalla? En
> Fivewin, se utiliza HardCopy().
No, no hay ninguna, lo siento. Si crees que es necesaria podríamos
estudiarla para una nueva versión.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[Bingen Ugaldebere]

Aun no lo he pulido, es una prueba, pero a ver si te vale algo como esto:
Function HardCopy()
LOCAL hBitmap, oBitMap
Application:lBusy := .T.
hBitmap := XA_CaptureBitmap(
GetDesktopWindow(),0,0,Screen:PaperRes()[2],Screen:PaperRes( )[1] )
oBitmap := TBitmap():CreateFromHandle( hBitmap )
Printer:lPreview := .T.
Printer:nPreviewShowMode := smMAXIMIZE
Printer:nPrintQuality := DMRES_HIGH
Printer:cJobTitle := "Impresión de pantalla"
Printer:nOrientation := DMORIENT_LANDSCAPE
Printer:StartDoc()
Printer:oCanvas:nMapMode := mmHIMETRICS
Printer:StartPage()
Printer:oCanvas:DrawPicture( {
0,0,Screen:PaperRes()[1],Screen:PaperRes()[2] }, oBitmap )
Printer:EndPage()
Printer:EndDoc()
Application:lBusy := .F.
Printer:Preview()
oBitmap:Destroy()
DeleteObject( hBitmap )
Return Nil