Stampare il testo presente in oggetti di testo

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 ipostiamo lo spazio ove far stampare i caratteri:
      .Text(o.Text, o.X, o.Y, o.W, o.H)
      .Stroke
      
    Next

  End With

End