Problemi con fpdf, testo troppo lungo

[Kuilsera]

Salve a tutti,

Il mio script è questo:

<%@language=vbscript%>


<%
Set rs = Server.CreateObject("ADODB.Recordset")
str = "SELECT * FROM TAB2 WHERE Id =(SELECT MAX(Id) FROM TAB2)"
rs.open str,Conn

Dim pdf

Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF()
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",16
pdf.Open()
pdf.AddPage()
pdf.Cell 40,10, "Reclamo: " & rs("Reclamo")
pdf.Ln(8)
pdf.Cell 40,10, "Cliente: " & rs("Cliente")
pdf.Close()
pdf.Output()
rs.close
Conn.close
Set Conn = nothing
%>


Il problema che ho stà nel fatto che il campo Reclamo del DB ha lunghezza 150, e perciò sul Pdf mi supera la larghezza della pagina. Tagliando così parte del testo.

Come posso risolvere??

Spero che qualcuno mi possa aiutare...

Grazie, Kuilsera

[Kuilsera]

niente...ho risolto io.

Grazie comunque.

[Teo80]

Riprendo questa vecchia discussione...

come hai risolto?
Grazie!

[mosquito70]

Credo che abbia risolto utilizzando le "MultiCell"

Se hai bisogno di altre info, fammi sapere.

[Kuilsera]

Ciao Teo80,

come già ti ha detto mosquito70, ho risolto utilizzando "MultiCell".

In questo link http://www.aspxnet.it/public/Default...age=175&idp=19, è presente la descrizione completa per questo metodo.

Per altri chiarimenti, resto a disposizione.

Kuilsera

[Teo80]

Grazie per le risposte!
Ho provato multicell, ma mette un'interlinea molto grande fra le linee. C'è un modo per impostare la larghezza di questa interlinea?
Grazie ancora!

[centro]

anch'io ho lo stesso problema...
e per lo meno mal comune.....

ci sto sbattendo la testa da due giorni... e infatti ti avevo mendato un pvt Kuilsera
multicell nelle proprietà dice:


Descrizione
Questo metodo permette di stampare del testo con interruzioni di linea. Possono essere automatiche (non appena il testo raggiunge il margine destro della cella) o esplicite (tramite il carattere \n). Vengono inserite tante celle quante necessarie, una sotto l'altra.
Il testo può essere allineato, centrato o giustificato. E' possibile inserire i bordi e lo sfondo al blocco di celle.
Parametri



in realta.. se prendi un testo che è una riga lunghissima.. non mi va a capo in automatico... ma mi esce fuori sulla destra del pdf perdondo proprio il testo...

Premetto che se scrivo nella textarea e do gli invii (textarea dalla quale prendo il testo una volta messo in sqlserver per creare il pdf...) tutto è ok...
il problema nasce se magari qualcuno copia e incolla da word o comunque non va capo...
dico da word perchè io me ne sono accorto proprio prendendo un testo del genere:
dove se notate la terza riga anche se in word e bella che impaginata in realta è una riga lunghissima...

mio titolo word...
Il Timing bla bla

Le xxxxxxxxxxche nell’età pediatrica vengono, per moxxxxxtivi diversi, xxxxxx alla exeresi chirurgica, non xxxxxcarattere di xxxxxx. xxxxxxxcosì di trovarsi in imbarazzo nel decidere o nel xxxxxxil quaxxxxndo e il come provvedere all’intervento chirurgico. xxxxxx che attualmente non xxxxxspecifici e xxxxxxx, che assai xxxxx sono le modalità anestesiologiche xxxxxxchirurgico e che, non trattandosi di xxxxxxi “assolutamente necessari per la xxxxxxxdella salute del xxxxxxx” è xxxxx doveroso rispettare e assecondare le propensioni dei xxxxxx,




Visto che non riuscivo a risolvere con multicell ho aperto un post proprio perchè mi sto cercando di creare una funzioncina... (che ancora non ci riesco che ogni tot caratterei va a capo...)
Se comunque mi dite che si risolve con muticell forse devoimpostare qualche altro parametro..

il testo che vado a inserire ed esce fuori e quello all'ultima riga

Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF "P", "mm", "A4"
pdf.SetDisplayMode "real" 
pdf.SetDrawColor 150,46,59    
pdf.SetPath("pdf/fpdf/")
pdf.LoadExtension("table")
pdf.Open()
pdf.LoadModels("numeropagina") 'Un'aggiunta per chi volue provare i modelli
pdf.AddPage()
pdf.SetFont "Arial","B",11
pdf.Image "intestazione.jpg",10,8,190.5,41.28
pdf.MultiCell 500,10,"",0,1
pdf.ln()
pdf.ln()
pdf.ln()
pdf.MultiCell 0,5,"TITOLO FORM",0,"C"


'Imposta bordo
pdf.SetFont "Arial","B",16
pdf.Cell 190,43," ",1,0,"C"

'TITOLO ABSTRAT
pdf.SetFont "Arial","B",7
pdf.write 3,"TITOLO:"
pdf.SetFont "Arial","",8
pdf.MultiCell 0,3,abRs("titolo")


'autori
pdf.SetFont "Arial","B",7
pdf.write 4,"AUTORI:"
pdf.SetFont "Arial","",8
pdf.MultiCell 0,4,abRs("autori")
pdf.ln()
pdf.ln()

pdf.MultiCell 500,7,"",0,1
pdf.SetFont "Arial","",8
'pdf.MultiCell 0,4, testo_abstract,1,"L"

pdf.MultiCell 0,4, testo,1,"J" 

saluti

Giuseppe

[centro]

mi correggo... con testo lunghissimo preso tipo... da notepad va a capo.. preso da word.. no!!!!
e che.. nantipatia per word...?

[Kuilsera]

Se ho capito bene, e il problema stà nel fatto che il testo esce nella parte destra della pagina, provate a mettere una width più piccola (esempio:180).
Per quanto riguarda l'interlinea, provate a diminuire l'altezza della MultiCell.

Provate questo script:

<%@language=vbscript%>

<%
Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF()
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",16
pdf.Open()
pdf.AddPage()
pdf.MultiCell 0, 10, "Hello Word!Hello Word!Hello Word!Hello Word!Hello Word!Hello Word!Hello Word!Hello Word!Hello Word!Hello Word!Hello Word!Hello Word!Hello Word!Hello Word!", 1, L
pdf.MultiCell 0, 10, "Ciao Word!Ciao Word!Ciao Word!Ciao Word!Ciao Word!Hello Word!Hello Word!Hello Word!Hello Word!Hello Word!Hello Word!Hello Word!Hello Word!Hello Word!", 1, L
pdf.Close()
pdf.Output()
%> 

e vedete come la larghezza e l'altezza variano se cambiate i primi due valori della MultiCell....

Per altre informazioni resto a disposizione.

Ciao

[centro]

Kuilsera...
hai perfettamente ragione... multicell funge alla perfezione...
ma anche grazie all'aiuto di un post precedente....
credo di aver trovato il problema...

SOLUZIONE

Lo scrivo per chi come me potrebbe impazzire per giorni...
Il testo che fuoriesce si verifica soltanto quando il testo è copiato da word....
ciò che fa sballare il multicell (il testo fuoriesce a destra...)
sono quei particolari caratteri che vegono messi in word ho risolto....
nel mio caso.. facendo il replace di questi caratteri...

testo_abstract=replace(testo_abstract,"”" ,"""")
testo_abstract=replace(testo_abstract,"“" ,"""")
testo_abstract=replace(testo_abstract,"’" ,"'")
testo_abstract=replace(testo_abstract,"•" ,"*")
testo_abstract=replace(testo_abstract,"–" ,"-")


Ora il testo non esce più fuori...
quid il problema non era di multicell ma credo si tratti di un bug di questa libreria...

A questo punto volevo chiedere se esiste qualcosa in asp che mi faccia un replace anche con il nulla... di tutti questi caratteri strani! Anche perchè io ho trovato quelli che danno problemi a me ma ce ne potrebbero essere altri..

Se no.. magari chiedo nel forum di javascript se è possibile con una regular expression eliminare questi problemi in imput.

Una buona giornata
Giuseppe