Delphi - Crystal report e delphi

Forum - Delphi - Crystal report e delphi

zagor (Normal User)
Newbie

Messaggi: 8
Iscritto: 08/05/2013

Postato alle 8:59
Giovedì, 09/05/2013

Salve ,

ho sviluppato un programma con delphi7 , ho sempre usato come report , fuzzyreport, adesso ho installato Crystalreport XI in quanto più completo di fuzzy , ma non riesco a trovare la riga di codice per aprire il report con crystalreport.
Premetto che ho già il controllo activeX di crystalreport, mi manca solo la parte di codice per aprire il report

Avete qualche suggerimento?

grazie

gibra (Normal User)
Pro

Messaggi: 155
Iscritto: 16/04/2009

Postato alle 12:10
Giovedì, 09/05/2013

Testo quotato

Postato originariamente da zagor:
ho sviluppato un programma con delphi7

cosa c'entra Delphi con Visual Basic 6 ?

Testo quotato

Postato originariamente da zagor:
Avete qualche suggerimento?

Sì, probabilmente hai sbagliato forum... :rotfl:

zagor (Normal User)
Newbie

Messaggi: 8
Iscritto: 08/05/2013

Postato alle 0:15
Venerdì, 10/05/2013

pensavo che c'era + serietà

mah!!!

danielito (Normal User)
Newbie

Messaggi: 5
Iscritto: 02/05/2013

Postato alle 10:27
Venerdì, 10/05/2013

Hai installato il componente VCL di crystal report ?

zagor (Normal User)
Newbie

Messaggi: 8
Iscritto: 08/05/2013

Postato alle 10:48
Venerdì, 10/05/2013

si, ho installato tutto, mi occore solo la riga di codice per aprire il report

danielito (Normal User)
Newbie

Messaggi: 5
Iscritto: 02/05/2013

Postato alle 11:36
Venerdì, 10/05/2013

io prima mi sono creato una funzione per impostare... con BDE..

   Crpe.CloseJob;
   Crpe.LoadEngineOnUse     := False;
   Crpe.ReportName          := GetReportPath(Modulo);
   Crpe.Tables[0].Path      := TBPath;
   Crpe.Tables.Propagate    := True;
   Crpe.Tables.VerifyFix    := True;
   Crpe.TempPath            := '';
   Crpe.Windowsize.Left     := -1;
   Crpe.Windowsize.Top      := -1;
   Crpe.Windowsize.Height   := -1;
   Crpe.Windowsize.Width    := -1;
   Crpe.WindowState         := wsMaximized;
   Crpe.WindowStyle.Title   := Title;
   Crpe.WindowZoom.Preview  := pwPageWidth;
   Crpe.Output              := Output;
   Crpe.Printer.Clear;
   Crpe.PrintOptions.Copies := Max(1,Copies);
   Crpe.Printer.Name        := PrinterName;
   if (Crpe.Printer.GetCurrent(false)) then
   begin
      if (Copies>0)       then Crpe.Printer.PMode.dmCopies      := Copies;
      if (PaperSize<>0)   then Crpe.Printer.PMode.dmPaperSize   := PaperSize;
      if (PaperOrient<>0) then Crpe.Printer.PMode.dmOrientation := PaperOrient;
   end;
   Crpe.Tables.Verify;
   Result := Crpe;
//
Poi lancio il report con

Crpe1.Execute;

se hai dei parametri prima dei mettere
Crpe1.ParamFields[numero parametro].CurrentValue