Differenze tra le versioni di "Stampare il testo presente in oggetti di testo"
Da Gambas-it.org - Wikipedia.
Riga 26: | Riga 26: | ||
<FONT color=#006400>' ''Individuiamo ed impostiamo lo spazio ove far stampare i caratteri:''</font> | <FONT color=#006400>' ''Individuiamo ed impostiamo lo spazio ove far stampare i caratteri:''</font> | ||
.Text(o.Text, o.X, o.Y, o.W, o.H) | .Text(o.Text, o.X, o.Y, o.W, o.H) | ||
− | . | + | .Fill |
Next | Next |
Versione delle 10:31, 8 feb 2013
Per poter stampare il testo presente in oggetti di testo, come ad esempio Textabel, Label, TextArea, etc, possiamo adottare la seguente procedura:
Public Sub Button1_Click() With Printer1 .Configure .Orientation = 0 .Paper = 2 .Resolution = Desktop.Resolution .Print End With End Public Sub Printer1_Draw() Dim o As Object With Paint For Each o In FMain.Children ' Impostiamo lo spessore dei caratteri: .LineWidth = 0.01 ' Individuiamo ed impostiamo lo spazio ove far stampare i caratteri: .Text(o.Text, o.X, o.Y, o.W, o.H) .Fill Next End With End
Questo algoritmo, ad ogni modo, consente di stampare anche il testo assegnato alle proprietà .Text e .RichText di qualsiasi oggetto che le possegga.