Como puedo imprimir con crystal 9.0 y fox pro
como puedo imprimir con crystal report 9.0 y base de datos fox pro 7.0?
alguien tiene una rutina que permita imprimir desde un boton un archifo *.rtf (crystal).
cualquier ayuda lo agradecería
alguien tiene una rutina que permita imprimir desde un boton un archifo *.rtf (crystal).
cualquier ayuda lo agradecería
Ojalá pueda servirte este link:
http://www.fpress.com/revista/Num0603/Art.htm
http://www.lawebcrystal.com/vfpintegra.asp
Yo hice algunas pruebas y me resultó super bien.
http://www.fpress.com/revista/Num0603/Art.htm
http://www.lawebcrystal.com/vfpintegra.asp
Yo hice algunas pruebas y me resultó super bien.
Local objCristal, objCrpReport, lcPrnName,lcPrnPort
*--Se instancia la aplicación crystal
objCrystal =Createobject("crystal.crpe.application")
*--Se verifica que se haya instanciado crystal
If Type("objCrystal") # "O"
=Messagebox(" No se pudo crear el objeto de automatización de Crystal Reports. Verifique que se"+Chr(13)+;
"instalado en el equipo",64,"No se encontro el archivo CPEAUT32.DLL")
Return
Endif
*--Obtener las impresoras instaladas en el equipo
If Aprinters(laPrintersList) = 0
Messagebox("No hay impresoras instaladas en su equipo.",64,"Información")
Return
Endif
*--Seleccionar la impresora (Cuadro de dialogo seleccionar impresora)
lcPrnName = Getprinter()
*--Se obtiene el puerto de la impresora seleccionada
lcPrnPort = laPrintersList((Asubscript(laPrintersList,Ascan(laPrintersList,lcPrnName),1)),2)
*--
If Empty(lcPrnName) &&El usuario no selecciono la impresora
Return
Endif
*--Abro el objeto reporte
objCrpReport = objCrystal.OpenReport('c:mireporte.rpt')
*--
*-- Seleccionamos la impresora
=objCrpReport.SelectPrinter(lcPrnName,lcPrnName,lcPrnPort)
*--Para imprimir
objCrpReport.PrintOut(.T.)
*--Para vista preliminar
lobjCrpReport.Preview()
*--Se instancia la aplicación crystal
objCrystal =Createobject("crystal.crpe.application")
*--Se verifica que se haya instanciado crystal
If Type("objCrystal") # "O"
=Messagebox(" No se pudo crear el objeto de automatización de Crystal Reports. Verifique que se"+Chr(13)+;
"instalado en el equipo",64,"No se encontro el archivo CPEAUT32.DLL")
Return
Endif
*--Obtener las impresoras instaladas en el equipo
If Aprinters(laPrintersList) = 0
Messagebox("No hay impresoras instaladas en su equipo.",64,"Información")
Return
Endif
*--Seleccionar la impresora (Cuadro de dialogo seleccionar impresora)
lcPrnName = Getprinter()
*--Se obtiene el puerto de la impresora seleccionada
lcPrnPort = laPrintersList((Asubscript(laPrintersList,Ascan(laPrintersList,lcPrnName),1)),2)
*--
If Empty(lcPrnName) &&El usuario no selecciono la impresora
Return
Endif
*--Abro el objeto reporte
objCrpReport = objCrystal.OpenReport('c:mireporte.rpt')
*--
*-- Seleccionamos la impresora
=objCrpReport.SelectPrinter(lcPrnName,lcPrnName,lcPrnPort)
*--Para imprimir
objCrpReport.PrintOut(.T.)
*--Para vista preliminar
lobjCrpReport.Preview()