FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#4
|
||||
|
||||
Espero Te Sirva
YO UTILIZO DELPHI 7 Y CRYSTAL 10, PARA LO CUAL NECESITAS EL VCL QUE PROPORCIONA CRYSTAL PARA DELPHI
UN EJEMPLO DE CODIGO: function TFRPRUEBAS.ImprimeCR10( fcReporte: string; fsNameFormula,fsFormulas: array of string; fcRepTit: string = ''; fcRepSubTit: string = ''; fcFormula: string = '' ): Boolean; VAR liI, liMax,liMax2: Integer; lcFile: string; BEGIN lcFile := 'D:\PRUEBAS\REPORTES\' + fcReporte + '.rpt'; //REPORTE, SERVIDOR Y BASE DE DATOS CR_IMPRIME.ReportName:= lcFile; CR_IMPRIME.Connect.ServerName:= TRIM(EDIT1.Text); CR_IMPRIME.Connect.DatabaseName:= TRIM(EDIT2.Text); //PARAMETROS CR_IMPRIME.ParamFields.Items[0].CurrentValue := 'DE PRUEBA'; CR_IMPRIME.ParamFields.Items[1].CurrentValue := UpperCase(fcReporte); CR_IMPRIME.ParamFields.Items[2].CurrentValue := 'LA CASA DE LOS DEPORTES'; CR_IMPRIME.ParamFields.Items[3].CurrentValue := fcRepTit; CR_IMPRIME.ParamFields.Items[4].CurrentValue := fcRepSubTit; //FORMULA DE SELECCION CR_IMPRIME.Selection.Formula.Clear; CR_IMPRIME.Selection.Formula.Text:= fcFormula; IF NOT CR_IMPRIME.Selection.Check THEN BEGIN ShowMessage('ERROR DE SELECCION'); EXIT; END; //FORMULAS POR REPORTE CR_IMPRIME.Formulas.Clear; liMax := High(fsFormulas); IF liMax >= 0 THEN BEGIN LIMAX2:= LIMAX; FOR liI := 0 TO liMax DO IF fsNameFormula[liI]= '' THEN LIMAX2:=LIMAX2-1; IF liMax2 >= 0 THEN FOR liI := 0 TO liMax2 DO CR_IMPRIME.FormulaByName(fsNameFormula[liI]).Formula.Text:=fsFormulas[liI]; END; CR_IMPRIME.WindowStyle.Title:= fcRepTit; CR_IMPRIME.Execute; CR_IMPRIME.SetFocus; END; Espero te sirva, mis correos para comunicacion son: ricardo@gacse.com (messenger) ricardolopeztrejo@mexico.com ricardolopeztrejo@clubdelphi.zzn.com |
|
|
|