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
Posizionare text con x,y
lunedì 19 settembre 2005 - 13.58
Elenco Threads
Stanze Forum
Aggiungi ai Preferiti
Cerca nel forum
spyto
Profilo
| Newbie
49
messaggi | Data Invio:
lun 19 set 2005 - 13:58
Ciao a tutti avrei un problema semplice ma che non riesco a risolvere.
Vi propongo il problema nella forma più semplice, vorrei fare un programmino dove inserisco un riga di text e gli do le coodinate x, y per scriverl su di un foglio in posizione (x,y).
In pratica quando vado a fare l'anteprima stampa vedo la mia riga di testo nella posizione desiderata.
La cosa che non so proprio come fare è dire ad un oggetto dove posizionarsi(con precisione mm) su di un foglio.
Vi ringrazio in anticipo per il vostro aiuto.
Grazie.
spyto
Profilo
| Newbie
49
messaggi | Data Invio:
mer 21 set 2005 - 13:45
Ti ringrazio farò delle prove.
Grazie ancora
spyto
Profilo
| Newbie
49
messaggi | Data Invio:
dom 25 set 2005 - 16:13
Eccomi ho risolto come volevo, in questo modo.
Per chi fosse interessato, si crea un foglio per fare l'anteprima e si crea un oggetto per metterlo sul foglio.
Grazie Coach
Private Sub btPrintPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btPrintPreview.Click
Try
PrintDocument1.DefaultPageSettings = PrintPageSetting
'Specifica il documento che deve essere messo in anteprima
StringToPrint = RichTextBox.Text
ann = "Scrivi Prova"
PrintPreviewDialog1.Document = PrintDocument1
PrintPreviewDialog1.ShowDialog()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim numChars As Integer
Dim numLines As Integer
Dim StringForPage As String
Dim strFormat As New StringFormat
Dim rectDraw As New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Width, e.MarginBounds.Height)
'Definisce l'area dove deve essere rappresentato il rettangolo
Dim sizeMeasure As New SizeF(e.MarginBounds.Width, e.MarginBounds.Height - PrintFont.GetHeight(e.Graphics))
'Se la stringa troppo lunga tagliala
strFormat.Trimming = StringTrimming.Word
'Misura la lunghezza della stringa
e.Graphics.MeasureString(StringToPrint, PrintFont, sizeMeasure, strFormat, numChars, numLines)
'Adatta la stringa alla pagina
StringForPage = StringToPrint.Substring(0, numChars)
'Stampa la stringa
e.Graphics.DrawString(StringForPage, PrintFont, Brushes.Black, rectDraw, strFormat)
'Prova
e.Graphics.DrawString(ann, PrintFont, Brushes.Red, 500, 100)
'Se ci sono più pagine
If numChars < StringToPrint.Length Then
'Stampa il testo sulla pagina fino dove arriva
StringToPrint = StringToPrint.Substring(numChars)
e.HasMorePages = True
Else
e.HasMorePages = False
'Stampa il rimanete testo
StringToPrint = RichTextBox.Text
End If
End Sub
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 !