Como puedo imprimir con crystal 9.0 y fox pro

cristhian
15 de Agosto del 2003
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

Luis Rodriguez
15 de Agosto del 2003
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.

Johann Maceo
15 de Agosto del 2003
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()