Italian B4A Generazione Report / Pdf

Xfood

Expert
Licensed User
Buongiorno e buona domenica
ho un altro problema che mi fa uscire matto,
devo creare un report ( preferirei un pdf) ma non riesco a gestire con i vari esempi trovati nel forum,
mi perdo con le coordinate e con l'aggiunta di eventuale pagine.
mi spiego, ho una tabella sqlite con mettiamo 3 campi,
codice
descrizione
prezzo
la descrizione pobrebbe essere con molti caratteri, quindi magari dovrebbe andare a capo se necessario
come creo un report pdf con tutta la lista della mia tabella.

qualcuno ha qualche esempio da passare?
Grazie mille.
 

Lello1964

Well-Known Member
Licensed User
Longtime User
Ciao,

ti allego quello che ho realizzato.

Devi smanettarci un po.

Raffaele
 

Attachments

  • crea_pdf.txt
    11.7 KB · Views: 219

Xfood

Expert
Licensed User
sembra funzionare perfettamente,
volevo chiedere una cosa se dopo aver usato questo comando:
pdf.FinishPage
pdf.StartPage(595, 842) 'A4 size per iserire una nuova pagina,
ho la possibilita' di tornare sulla prima pagina per inserire altri dati?
 

Xfood

Expert
Licensed User
Ok grazie..
La mia idea e di creare un report con 2 colonne,
Che prende i dati da 2 cursori,
Quindi prima popolo la colonna 1 con il cursore 1,
Poi torno all'inizio del file e popolo la colonna 2 con il cursore 2.
 

giannimaione

Well-Known Member
Licensed User
Longtime User
dati da 2 cursori? perchè? i dati provengono da 2 tabelle? non c'è nessuna relazione tra loro?
 

Xfood

Expert
Licensed User
dati da 2 cursori? perchè? i dati provengono da 2 tabelle? non c'è nessuna relazione tra loro?
Mi spigo, devo fare un report sulla colonna A
Con i lavori effettuati nella settimana, e ogni giorno
Possono essere diversi, quindi dinamici, cioe il lunedi' potrei avere 20 righe da stampare , il martedi
2 righe ecc, quindi vorrei scorrere il cursore settimana odierna e popolare meta foglio del pdf,
Che potrebbero essere anche piu pagine, ( e fini qui ci sono) poi vorrei ricominciare dalla prima pagina e scrivere nella seconda colonna la programnazione della settimana successiva, lunedi x righe, martedi ecc.
 

giannimaione

Well-Known Member
Licensed User
Longtime User
e su tu provassi a popolare una variabile "lstColAB as List" con, diciamo due valori, che rappresentano la colonna A e la colonna B e poi generi il tuo report attingendo i dati dalla lstColAB????
??? non mi sono capito nemmeno io!!! stanco; a domani
 

Xfood

Expert
Licensed User
e su tu provassi a popolare una variabile "lstColAB as List" con, diciamo due valori, che rappresentano la colonna A e la colonna B e poi generi il tuo report attingendo i dati dalla lstColAB????
??? non mi sono capito nemmeno io!!! stanco; a domani
Il problema e' sempre lo stesso, se per esempio la colonna a con i primi 2 giorni mi viene popolata tutta la pagina, devo per forza aggiungere una nuova pagina, quindi la colonna B mi rimarrebbe x meta vuota, io vorrei che le colonne A e B siano popolate x intero, poi se la colonna B si ferma alla prima pagina e la colonna A a piu pagine non conta, e viceversa, ecco perche vorrei prima popolare una colonna, fino a dove mi porta, e poi ricominciare
Dalla prima pagina e popolare la colonna B sarebbe fantastico se potessi inserire n pagine, scrivere quello che voglio, risalire alla prima pagina , scrivere, chiudere il processo.
 

giannimaione

Well-Known Member
Licensed User
Longtime User
sarebbe fantastico se potessi inserire n pagine, scrivere quello che voglio, risalire alla prima pagina , scrivere, chiudere il processo
... provare per credere (Aiazzone)
 

Xfood

Expert
Licensed User
... provare per credere (Aiazzone)
Non trovo nessun comando per risalire alla prima pagina e navigare nelle pagine
Il codice piu o meno e cosi
pdf.Initialize
pdf.StartPage(595, 842) 'A4 size
pdf.Canvas.DrawText("Lunedi" ,545 xxxx)
Scrivo
Scrivo
Ecc.
pdf.FinishPage
'Aggiungo la pagina
pdf.StartPage(595, 842) 'A4 size
Scrivo.
Ecc.
Come risalgo alla prima pagina?
E poi riattivo la pagina successiva?
E alla fine

pdf.FinishPage

Dim out As OutputStream = File.OpenOutput(shared, "export.pdf", False)
pdf.WriteToStream(out)
out.Close
pdf.Close
 
Top