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...")
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