Italian community of Lazarus and Free Pascal

Programmazione => Generale => Topic aperto da: alexarmato66 - Marzo 17, 2021, 02:29:18 pm

Titolo: lazreport
Inserito da: alexarmato66 - Marzo 17, 2021, 02:29:18 pm
VORREI USARE lAZrEPORT PER SCRIVERE UNA RELAZIONE DI CALCOLO. Qualcuno avrebbe un esempio di come inserire un testo, magari con qualche formula matematica, su LazReport.Grazie
Titolo: Re:lazreport
Inserito da: xinyiman - Marzo 17, 2021, 10:09:57 pm
In realtà è molto semplice. Hai già installato il package di lazreport?

Se si basta che su una form trascini un componente TFrReport e un componente TfrDesigner. Poi fai doppio click sul TfrReport. Modifichi il report come vuoi tu. Per un caso semplice ti consiglio di immettere una banda (titolo del rapporto). Nella banda inserisci "un oggetto rettangolare" e dentro ci scrivi "titolo di prova". Poi salvi il report. A quel punto puoi usare le istruzioni che trovi in questo vecchio esempio

http://www.lazaruspascal.it/index.php?page=47
Titolo: Re:lazreport
Inserito da: alexarmato66 - Marzo 18, 2021, 08:29:16 am
 :) Grazie mille !!
Titolo: Re:lazreport
Inserito da: alexarmato66 - Marzo 19, 2021, 05:33:03 pm
E' possibile utilizzare lo script dell'editor per cambiare font.Ad esempio h2 mettere h in symbol(eta) ed 2 arial al pedice?
Titolo: Re:lazreport
Inserito da: xinyiman - Marzo 20, 2021, 03:23:02 pm
Onestamente non ho mai avuto necessità di farlo, quindi non ho una risposta.
Titolo: Re:lazreport
Inserito da: alexarmato66 - Marzo 21, 2021, 12:11:44 pm
Avresti un esempio di come esportare un lazreport su PDF?
Titolo: Re:lazreport
Inserito da: xinyiman - Marzo 21, 2021, 05:05:16 pm
Per esportare in pdf basta che installi il package lazreportpdfexport.lpk che trovi nella sottocartella addons di lazreport. Una volta che hai installato il package trascini sulla form il componente TfrTNPDFExport.

Poi scrivi un codice simile a questo

Codice: [Seleziona]
   

   if frReport1.PrepareReport then
   begin

      NomePDF:='Qui metti il nome del tuo pdf comprensivo del path completo. Es. c:/miofile.pdf';
      if uppercase(ExtractFileExt(NomePDF))='.PDF' then
      begin
           //non faccio niente, il nome è già corretto
      end
      else
      begin
           //il nome non è corretto, quindi ci aggiungo il .pdf alla fine
           NomePDF:=NomePDF + '.pdf';
      end;
      Screen.Cursor := crHourglass;
      frReport1.ExportTo(TFrTNPDFExportFilter, NomePDF);
      Screen.Cursor := crDefault;


      OpenDocument(NomePDF);
   end;
Titolo: Re:lazreport
Inserito da: alexarmato66 - Marzo 21, 2021, 08:28:17 pm
Fantastico!!! funziona.Purtroppo però nell'esportazione non traduce il font symbol.
Titolo: Re:lazreport
Inserito da: xinyiman - Marzo 22, 2021, 09:51:41 am
Fantastico!!! funziona.Purtroppo però nell'esportazione non traduce il font symbol.

Hai provato a vedere se devi parametrizzare qualche parametro? Tipo il path della cartella dei font? Spulcia le varie opzioni del componente.