Stampare il contenuto di una DrawingArea

Per stampare quanto il contenuto grafico e testuale presente in una DrawingArea, si potrà attuare il seguente procedimento:

• si provvede a disegnare e scrivere all'interno della DrawingArea mediante l'evento _Draw();
• si imposta la fase di stampa con la Classe Printer;
• viene richiamato l'evento _Draw() della Classe Printer per ogni pagina da stampare, nel quale si richiama nuovamente l'evento _Draw() della Classe DrawingArea.

Public Sub DrawingArea1_Draw()
 
  With Paint
    .Brush = Paint.Color(Color.Red)
    .MoveTo(200, 200)
    .RelLineTo(0, 100)
    .Stroke
    .DrawText("Testo qualsiasi", 10, 10, 20, 20)
    .End
  End With
  
End


Public Sub Button1_Click()

  With Printer1
    .Configure
    .Orientation = 0
    .Paper = 2
    .Resolution = Desktop.Resolution
' Volendo, si può stampare/creare un file .pdf o .ps:'
    .OutputFile = "percorso_mio_file.pdf"
    .Print
  End With

End


Public Sub Printer1_Draw()

  DrawingArea1_Draw()

End