Guida ai report

Con questa potente classe è possibile creare dei report professionali ed esteticamente accattivanti in pochissimo tempo. PdfWriter nasce da un porting fatto da Luigi Carlotto (MD9327) dalla famosa libreria php “FPDF”. Le funzioni sono molto simili, si può prendere spunto dal sito: http://www.fpdf.org/ . Per l'utilizzo, basta solo copiare nel nostro progetto la classe “PdfWriter” e “PdfWriterfont”. Per ogni report che vogliamo creare, aggiungiamo una “sottoclasse” a PdfWriter, per fare ciò basta creare una nuova classe e scrivere all'inizio “INHERITS PdfWriter”. In questa classe vanno inserite tre funzioni:

PUBLIC SUB Header() 

PUBLIC FUNCTION Data()

PUBLIC FUNCTION Footer()

In particolare

1) Header è l'intestazione della stampa e si ripete su tutte le pagine

2) Data è il corpo della pagina e nel caso che il testo superi tutto lo spazio aggiunge una pagina successiva

3) Footer è la fine della pagina o piè di pagina e si ripete su tutte le pagine

Dentro queste funzioni possiamo inserire testi in vari formati e stili, linee, cerchi, rettangoli e altro, inoltre gestisce anche i codici a barre. Andiamo, per esempio, a mettere un titolo nel nostro report la “sottoclasse” la chiamiamo strubrica. Entriamo nella classe appena creata e sotto la stringa

INHERITS PdfWriter 

creiamo la funzione Header.

PUBLIC SUB Header()
  ME.SetX(0)
  ME.SetY(5)
  ME.SetFont("Arial", "BI", 20)
  ME.Cell(160, 6, "Rubrica", FALSE, 0, "L", FALSE)
  ME.SetLineWidth(0.2)      
  ME.Line(10, 17, 200, 17)
END

Andiamo a impostare la posizione dove mettere il titolo con setx e sety impostando le coordinate x e y. Impostiamo il font con setfont Andiamo a scrivere il titolo con Cell. Questo comando accetta in ordine:

w : Larghezza della cella. Se 0, la cella si estende dalla parte del margine destro.

H : Altezza della cella. Valore di default: 0.

txt : Stringa da stampare. Valore di default: stringa vuota.

Border : Indica se bisogna tracciare i bordi attorno alla cella. Il valore può essere sia un numero: 0: nessun bordo 1: cornice -o una stringa contenente alcuni o tutti i seguenti caratteri (in qualsiasi ordine): L: sinistro T: superiore R: destro B: inferiore Valore di default: 0.

ln :Indica la posizione corrente dopo la chiamata. Valori possibili sono: 0: a destra 1: all'inizio della linea successiva 2: in basso Inserire 1 equivale a inserire 0 e chiamare Ln() immediatamente dopo. Valore di default: 0.

align : Permette di centrare o allineare il testo. Possibili valori sono: L o stringa vuota: allineamento a sinistra (valore di default) C: centrato R: allineamento a destra

fill : Indica se lo sfondo della cella deve essere disegnato (true) o deve essere trasparente (false). Valore di default: false.

slink : L'URL o l'identificatore restituito da AddLink().

Poi andiamo a impostare lo spessore linea con “SetLineWidth” e poi disegnamo la linea con “Line” dando le coordinate da x,y a x,y.

Una funzione tanto comoda, Ln([float h]). Questa serve per andare a capo, accetta l'opzione altezza riga, per default il valore equivale all'altezza dell'ultima cella stampata.

Comunque per trovare tutti i comandi di Pdfwriter si può fare riferimento al manuale di “FPDF” :http://www.fpdf.org/ .

Sono però state aggiunte due nuove funzioni, Multiriga e Multirect che troverete solo nella nuova versione di PdfWriter. Multiriga fa la stessa funzione di Cell, con la differenza che il testo andrà a capo creando tante righe quante ha bisogno. Questa funzione viene usata sopratutto in una griglia. Nel caso di una griglia si può impostare l'opzione Border a false, quindi non disegnare il bordo, questo perchè nella stessa riga potranno esserci altezze diverse. Ecco che dopo aver creato tutte le colonne con multiriga, possiamo disegnare il bordo con Multirect, questo disegnerà il bordo di ogni cella alto tanto come il maggiore di ogni riga. Attenzione però, per andare a capo dopo multiriga non utilizzare la funzione ln(), ma la funzione apposta per multiriga Lnm() Ecco un esempio di Multiriga con Multirect in un ciclo for each:

         FOR EACH MyRS
             ME.MultiRiga(10, 5, MyRS!quantita, FALSE, "L", FALSE)
             ME.MultiRiga(32, 5, MyRS!codice, FALSE, "L", FALSE)            
             ME.MultiRiga(108, 5, MyRS!descrizione, FALSE, "L", FALSE) 
             ME.MultiRiga(20, 5, MyRS!prezzo, FALSE, "R", FALSE)  
             ME.MultiRiga(20, 5, MyRS!prezzo * MyRS!quantita, FALSE, "R", FALSE)              
             ME.MultiRect(10, 32, 108, 20, 20, 0, 0)          
             ME.Lnm() 
         NEXT

Vediamo che su tutti il Multiriga l'opzione border è impostata a FALSE. Multirect accetta il valore per 7 colonne, nelle nostre 5 diamo lo stesso valore che abbiamo dato all'opzione w di Multiriga.

Adesso andiamo a fare la funzione nel nostro form per lanciare la stampa PUBLIC SUB stampa()

  DIM hStampa AS Process
  DIM pdf AS strubrica
  RANDOMIZE 
 pdf = NEW strubrica("Portrait", "mm", "A4")
 pdf.Open()
 pdf.AliasNbPages()
 pdf.Data
 pdf.Output(User.Home & "/report.pdf", FALSE) ' qua viene creato il file pdf
 hStampa = SHELL ("lpr " & User.Home "/report.pdf) WAIT" ' qua lo mandiamo in stampa

END

Se vogliamo fare un'anteprima tipo con Evince hStampa = SHELL ("evince " & User.Home & "/.Gestione/clienti.pdf")

Potrete provare vari esempi compreso una funzione di anteprima nella sezione progetti in cerca di aiuto / Report con PdfWriter (provvisorio).