CISA FotoGallery

Statistiche

Tot. visite contenuti : 927937
Home Articoli tecnici VBA Stampare un treeview

Stampare un treeview

Molto spesso ci troviamo a voler stampare un treeview o almeno a stampare alcune informazioni selezionate da un treeview, contrassegnandole o con l'espansione del nodo o il check.

L'operazione è abbastanza semplice, basta predisporre una query che sarà origine del report e ricordarsi di inserire nella costruzione del treeview il tag dell'id.

N.B.: Il tag per comodità è formato da un prefisso di 3 lettere e l'id corrente del record da segnalare.

Dim mytree As MSComctlLib.TreeView
Dim n As MSComctlLib.Node

Dim Qdf As DAO.QueryDef
Dim strFiltro As String

Set mytree = Me.TreeView0.Object

For Each n In mytree.Nodes
If n.Checked = True Then
strFiltro = strFiltro & Right(n.Tag, Len(n.Tag) - 3) & ", "
End If
Next
strFiltro = Left(strFiltro, Len(strFiltro) - 2)

Set Qdf = CurrentDb.QueryDefs("MiaQuery")
Qdf.SQL = "SELECT * FROM MiaTab WHERE id IN (" & strFiltro & ")"



Alla fine basterà tampare il report