Differenze tra le versioni di "Stampare il testo presente in oggetti di testo"
Da Gambas-it.org - Wikipedia.
Riga 24: | Riga 24: | ||
<FONT color=#006400>' ''Impostiamo lo spessore dei caratteri:''</font> | <FONT color=#006400>' ''Impostiamo lo spessore dei caratteri:''</font> | ||
.LineWidth = 0.01 | .LineWidth = 0.01 | ||
− | <FONT color=#006400>' ''Individuiamo ed | + | <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) | ||
.Stroke | .Stroke |
Versione delle 17:47, 5 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) .Stroke Next End With End