msgraph 8

Busca en fpress.com
Igualmente te recomiendo el control activeX mschart (tambien hay mucha
info en google)

con gu



alvaro wrote:

un ejemplo con todas las propiedades del msgraph 8 y
variaciones porfa

Alberto Rodriguez
JARSoft Argentina

Mira estos links que coloco Eugenio Guarante

http://www.rdpslides.com/pptfaq/FAQ00496.htm
http://www.visualbasicforum.com/t117275.html
http://www.rdpslides.com/pptfaq/FULLFAQ.htm


Y este que está super completo

http://msdn.microsoft.com/library/d...offaut.asp

David Amador Tapia
WebMaster de La Web de Davphantom
www.davphantom.net
Cartagena. Colombia
Tel. (5) 6581523 - 6621502 - Cel 310-6581865


"alvaro" escribió en el mensaje
news:2be901c3afbe$7e87c560$

un ejemplo con todas las propiedades del msgraph 8 y
variaciones porfa

Hola Alvaro:

Para obtener gráficos puedes también utilizar MS Chart y la clase
SimpleChart de Mike Lewis que te puedes bajar de Portalfox. Allí también hay
2 artículos que te enseñan a utilizarla. Allí te
dan el enlace para bajarla.

http://www.portalfox.com/article.php?sid‰4
http://www.portalfox.com/article.php?sid0

Para imprimir:

Lo primero es copiar tu gráfico al portapapeles. Para ello el objeto gráfico
que has creado ha de tener un método EditCopy, pues lo invocas

* Copiar al Clipboard
THISFORM.grafico.EditCopy

Luego, para generar el archivo:
* Crear la ruta y nombre para el archivo, por ejemplo, en este caso yo los
coloco en una carpeta temp y con un nombre aleatorio,
thisform.crutagrafico = GETENV("temp")+ALLTRIM(SYS(2015))+".bmp"

* Para finalizar ejecuto el programa de nuestro compañero J. Enrique Ramos
Menchaca que está disponible en PortalFox
DO Graficos WITH (thisform.crutagrafico)

El código lo puedes ver aquí:
www.portalfox.com -> Archivos -> Informes -> Imprimir un Gráfico con MsChart
http://www.portalfox.com/modules.ph...dex&re
q=getit&lid5

Le hemos modificado para que deje en la tabla la ruta y no el gráfico en el
campo general
* Modificaciones:
* !* Modificado: 09/26/03 12:39:59 AM Ana María Bisbé York, Jorge Mota
* 1.- Incluir LPARAMETERS tcArchivo, tcreporte
* donde:
* - tcArchivo - Nombre del archive donde quedará el dibujo del gráfico
grabado, su extensión es .bmp
* - tcReporte - Nombre del reporte. Nótese que en el segundo caso está vacío
el parámetro pues solo se desea generar el .bmp y guardar su camino en la
tabla no se desea ejecutar REPORT FORM hasta terminar de analizar todos los
registros del cursor.
*
* 2.- Cambiar el nombre del Fichero destino por el pasado como parámetro de
entrada tcArchivo
* lcTargetFile = tcArchivo
*
* 3.- Cambiar la filosofía para guardar el gráfico,
CREATE CURSOR GRAFICO (cRuta c(250))
APPEND BLANK
REPLACE GRAFICO.cRuta WITH tcArchivo
IF !empty(tcreporte)
REPORT FORM (tcreporte) to print prompt noconso
ENDIF
USE IN GRAFICO

Esto en lugar de:
* Código original
*!* CREATE CURSOR GRAFICO (GRAFICA G)
*!* APPEND BLANK
*!* APPEND GENERAL GRAFICO.GRAFICA FROM "c:\clipboard.bmp"
*!* REPORT FORM GRAFICA preview

Y ya está, listo, tendrás la ruta en un campo de tu tabla y luego haces con
el un report o lo que quieras.

Saludos y suerte,

Ana

"alvaro" escribió en el mensaje
news:2be901c3afbe$7e87c560$

un ejemplo con todas las propiedades del msgraph 8 y
variaciones porfa