Stampare un Controllo grafico posto sul Form

Da Gambas-it.org - Wikipedia.
Versione del 21 mag 2021 alle 11:52 di Vuott (Discussione | contributi) (Creata pagina con "Ogni Controllo (Oggetto) grafico, posto sul Form, è in definitiva una finestra inglobata nel Form medesimo. <BR>Per stampare un Controllo grafico, è necessario individuare d...")

(diff) ← Versione meno recente | Versione attuale (diff) | Versione più recente → (diff)

Ogni Controllo (Oggetto) grafico, posto sul Form, è in definitiva una finestra inglobata nel Form medesimo.
Per stampare un Controllo grafico, è necessario individuare dunque il numero identificativo di tale Controllo, ossia della sua finestra, e passarlo alla Classe "DesktopWindow" del Componente "gb.desktop.x11".

Mostriamo un esempio pratico commentato, nel quale sul Form principale è posta una "GridView" che sarà dunque stampata.
E' necessario attivare il Componente "gb.desktop.11".

 Public Sub Form_Open()
 
 Dim r, c As Byte
 
 With GridView1
   .Rows.Count = 5
   .Columns.Count = 5
 End With
  
 For r = 0 To 4
   For c = 0 To 4
     GridView1[r, c].Text = "abcde"
   Next 
 Next

End

Public Sub Button1_Click()
 
 Dim dw As DesktopWindow
 Dim im As Image

' Individua la "finestra della "GridView" mediante il fuo identificatore:
 With dw = New DesktopWindow(GridView1.Handle)
' Cattura l'immagine della "GridView":
   im = .GetScreenshot(True).Image
 End With
 
 With Printer1
   .OutputFile = "/tmp/prova_stampa.pdf"
   .Print
 End With
 
End