Ciao
scusa il ritardo ma anche oggi è una giornata caotica .
Per quanto riguarda il type l'ho definito all'interno di un modulo ed ho dichiarato una variabile come il tipo appena definito .
Come segue :
[CODE]
Public Type Stampa_Richiesta
Stp_Id_Richiesta As Long
Stp_Dt_Richiesta As String * 8
Stp_Ufficio As String * 50
Stp_Cognome As String * 50
Stp_Nome As String * 50
Stp_Descrizione As String * 500
Stp_Dt_Inizio_Lav As String * 8
Stp_Dt_Fine_Lav As String * 8
Stp_Dt_Consegna As String * 8
Stp_Sviluppatore As String * 100
Stp_Linguaggio As String * 200
Stp_Dir_Save_Pgm As String * 200
Stp_Pgm As String * 100
Stp_Dir_Save_Dati As String * 200
Stp_Dati As String * 100
End Type

Public Stp_Richiesta As Stampa_Richiesta
[\CODE]

Dopodichè estraggo i dati di mio interesse dal database ed associo il valore ai campi di stampa come segue :
[CODE]
Dim RsStampa As Recordset
Dim SqlString As String
SqlString = ""
SqlString = SqlString & " select * from richieste,personale,uffici "
SqlString = SqlString & " where id_richiesta = " & VId_Richiesta & " "
SqlString = SqlString & " and richieste.id_personale = personale.id_personale "
SqlString = SqlString & " and personale.id_ufficio = uffici.id_ufficio "

Set RsStampa = Db.OpenRecordset(SqlString)
If Not RsStampa.EOF Then
Stp_Richiesta.Stp_Id_Richiesta = VId_Richiesta
Stp_Richiesta.Stp_Ufficio = RsStampa!ufficio
Stp_Richiesta.Stp_Cognome = RsStampa!cognome
Stp_Richiesta.Stp_Nome = RsStampa!nome
Stp_Richiesta.Stp_Descrizione = RsStampa!descrizione
Stp_Richiesta.Stp_Dt_Richiesta = RsStampa!data_richiesta
End If
RsStampa.Close
[\CODE]

Sto preparando il file da postare ... calcola solo che il progetto non è ancora ultimato ...