Reports |
4.20 Disegnare una griglia in un report tabellare con righe ad altezza variabile |
Alessandro Cardi |
Nel database di esempio allegato a questa FAQ è mostrato come sia possibile disegnare una griglia in un report tabellare anche se le righe sono ad altezza variabile. Per realizzare questo occorre impostare a Si la proprietà Espandibile di tutti i controlli del corpo del report e impostare a Trasparente la loro proprietà Stile bordo. Quindi a fronte dell'evento "Su stampa" del corpo del report generare il seguente codice VBA: Private Sub Corpo_Print(Cancel As Integer, PrintCount As Integer) 'Routine che permette la visualizzazione della griglia in report tabulare Dim ctl As Control Dim altezza As Double Dim daMargine As Double altezza = 0 'Cerco l’altezza massima For Each ctl In Me.Corpo.Controls If ctl.ControlType = acTextBox Then If ctl.Height > altezza Then altezza = ctl.Height End If End If Next ctl daMargine = 0 'Disegno i rettangoli attorno ad ogni campo For Each ctl In Me.Corpo.Controls If ctl.ControlType = acTextBox Then Me.Line (daMargine, 0)-(daMargine + ctl.Width, altezza), , B daMargine = daMargine + ctl.Width End If Next ctl End SubQuesta soluzione è attuabile con tutte le versioni di Access. Download: |