Paiva, na falta de outras sugestõess, experimente manipular os valores da função: oWin32Bmp:draw( oWin32Prn, { 200, 400, 2000, 1500 } )
PROCEDURE Main
LOCAL cFileName, oWin32Bmp, oWin32Prn
oWin32Prn := Win32Prn():new() // default printer object
IF .NOT. oWin32Prn:create() // create device context
Alert( "Unable to create device context for printer" )
QUIT
ENDIF
cFileName := "TestImage.bmp"
oWin32Bmp := Win32Bmp():new() // load bitmap file into memory
IF .NOT. oWin32Bmp:loadFile( cFileName )
Alert( "Unable to load bitmap file: " + cFileName )
QUIT
ENDIF
// print bitmap image
oWin32Bmp:draw( oWin32Prn, { 200, 400, 2000, 1500 } )
// release GDI system resources of printer
oWin32Prn:destroy()
RETURN