Página 1 de 1
Funcion HardCopy()
Publicado: Jue May 31, 2007 11:31 am
por Angel
¿Existe en Xailer alguna función similar para imprimir pantalla? En
Fivewin, se utiliza HardCopy().
Funcion HardCopy()
Publicado: Jue May 31, 2007 12:27 pm
por 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
Funcion HardCopy()
Publicado: Jue May 31, 2007 1:40 pm
por 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