Hi James:
sorry, my English is terrible, but it wrong:
Comentare en español:
Yo lo que hago es realizar un volcado de la imagen al disco y luego en el procedimiento de impresion la cargo y la imprimo con las dimensiones que quiero, y se ve perfecto:
[img]
http://www.grupes.es/basura/grafico1.jpg[/img]
La impresion de la imagen asi:
- Code: Select all Expand view
If lGraf
/* Declaracion de :SayImage( nRow, nCol, oImage, nWidth, nHeight, nRaster ) */
oImagen:= TImage():Define( ,cFileBMP )
oPrn:SayImage( 700, 640, oImagen, 3800, 2000 )
oImagen:End()
nRow+=8.2
End
El volcado a disco lo hago asi:
- Code: Select all Expand view
/*------------------------------------------------------------------------------*/
STATIC Function Imprimir( oDlg )
/*------------------------------------------------------------------------------*/
LOCAL cFileName := CurDrive() + ":\" + GetCurDir() +;
"\graficos\EC" + AllTrim( CriaMano->CodAve ) + ".BMP"
If File( cFileName )
FErase( cFileName )
End
oChart:Save2Bmp( cFileName )
cValid := .T.
oDlg:End()
ListaGrafECM( "P", aDetalles, "", cFileName )
Return NIL
Espero que sea lo que buscabas.
Un saludo
JLL