Home Page
Articoli
Tips & Tricks
News
Forum
Archivio Forum
Blogs
Sondaggi
Rss
Video
Utenti
Chi Siamo
Contattaci
Username:
Password:
Login
Registrati ora!
Recupera Password
Home Page
Stanze Forum
App. WinForms / WPF .NET
Stampa vb.net
giovedì 15 marzo 2007 - 23.07
Elenco Threads
Stanze Forum
Aggiungi ai Preferiti
Cerca nel forum
cispolo.ppl
Profilo
| Senior Member
261
messaggi | Data Invio:
gio 15 mar 2007 - 23:07
esiste un metodo per andare a capo in una stampa di un textbox al carattere (esempio) n° 60?
Massimo
wacker976
Profilo
| Newbie
29
messaggi | Data Invio:
sab 17 mar 2007 - 22:26
nell'evento PrintDocument.PrintPage, quando costruisci la grafica da mandare in stampa, esemina la stringa della txtbox, e quando in contri il carattere cercato, disegni il resto della stringa in una nuova posizione con l'evento DrawString
cispolo.ppl
Profilo
| Senior Member
261
messaggi | Data Invio:
dom 18 mar 2007 - 01:12
così?
Dim des As String = des1.Text
e.Graphics.DrawString(des(0), Me.Font, Brushes.Black, 80, 30)
If des1.TextLength >= 80 Then
e.Graphics.DrawString(des(80), Me.Font, Brushes.Black, 80, 70)
End If
Massimo
wacker976
Profilo
| Newbie
29
messaggi | Data Invio:
dom 18 mar 2007 - 14:54
avevo capito che volevi andare a capo quando incontravi uno specifico carattere nel testo. Mi sembra invece che tu voglia andare a capo ogni volta che si raggiunge una lunghezza specifica di caratteri. In tal caso prova ad usare qualcosa del genere (nell'evento PrintPage):
Dim str As String = TextBox1.Text
Dim LunghezzaMax As Short = 10 'La max lunghezza che vuoi stampare
Dim SpaziaturaY as integer = 20 'Quanto vuoi spaziare le righe tra loro nella stampa
Dim CoordInizY as integer = 60 'Da che punto parte la stampa rispetto alla coordinata Y
Dim CoordInizX as integer = 30 'Da che punto parte la stampa rispetto alla coordinata X
Dim STR1 as string = ""
Dim Conta As Short = 0
For I As Short = 1 To (str.Length \ LunghezzaMax)
Conta += 1
STR1 = str.Substring((I - 1) * LunghezzaMax, LunghezzaMax)
e.Graphics.DrawString(STR1, Me.Font, Brushes.Black, CoordInizX , CoordInizY + (I-1)*SpaziaturaY )
Next
STR1 = str.Substring(Conta * LunghezzaMax)
e.Graphics.DrawString(STR1, Me.Font, Brushes.Black, CoordInizX ,CoordInizY + Conta*SpaziaturaY )
Ricontrolla un po' il codice perchè non ho potuto provarlo con Visual Studio
cispolo.ppl
Profilo
| Senior Member
261
messaggi | Data Invio:
mer 11 apr 2007 - 15:10
con il codice che hai scritto si può spostare laprima riga in avanti?
Massimo
wacker976
Profilo
| Newbie
29
messaggi | Data Invio:
mer 11 apr 2007 - 15:41
se intendi il rientro, basta modificare le coordinate delle stringhe che mandi in stampa
cispolo.ppl
Profilo
| Senior Member
261
messaggi | Data Invio:
mer 11 apr 2007 - 18:08
devo spostare il rientro della prima riga...non di tutto
Massimo
wacker976
Profilo
| Newbie
29
messaggi | Data Invio:
mer 11 apr 2007 - 18:58
Aggiungi:
Dim Rientro as Integer = 50
Modifica all'interno del ciclo FOR:
For I As Short = 1 To (str.Length \ LunghezzaMax)
Conta += 1
dim tempPosX as integer = 0
If Conta = 1 Then
tempPosX = Rientro
End If
STR1 = str.Substring((I - 1) * LunghezzaMax, LunghezzaMax)
e.Graphics.DrawString(STR1, Me.Font, Brushes.Black, CoordInizX + tempPosX , CoordInizY + (I-1)*SpaziaturaY )
Next
cispolo.ppl
Profilo
| Senior Member
261
messaggi | Data Invio:
mer 16 mag 2007 - 17:28
ora che ho riaperto il progetto, mi sono accorto che spostando la prima riga...mantiene la stessa lunghezza quindi esce dal foglio. c'è qualche soluzione?
Massimo
Torna su
Stanze Forum
Elenco Threads
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?
Dopo esserti registrato potrai chiedere
aiuto sul nostro
Forum
oppure aiutare gli altri
Consulta le
Stanze
disponibili.
Registrati ora !