Private Function Crea_File()
Dim ErroreIO
Dim NomeFile As String
Dim Percorso As String
On Error Resume Next
Close #1
On Error GoTo 0
On Error GoTo Mostra_Errore
Percorso = "C:\Reportistica\"
'FILE 1
NomeFile = Percorso & "nome_report.htm"
Open NomeFile For Output As #1
Crea_Report 1
Close #1
On Error GoTo 0
Exit Function
ErroreImp:
ErroreIO = Err
Resume Next
Mostra_Errore:
Err.clear
'MESSAGGIO DI ERRORE
On Error Resume Next
Close #1
On Error GoTo 0
End Function
Private Function Crea_Report (NumFile)
'Io utilizzo ADO per l'accesso ai dati, ma se usi DAO cambia ben poco
Dim Rs As NEW ADODB.RECORDSET
'........ GENERI E APRI UN SQL
Do while Rs.Eof =False
Print #NumFile, "<html>";
Print #NumFile, "<head>";
Print #NumFile, "<title>Nome che vuoi assegnare alla barra blu in alto del report</title>;
Print #NumFile, "</head>";
Print #NumFile, "<body>";
' qui devi aggiungere i dati dei report/sottoreport utilizzando sempre Print #NumFile, "<[tag html]>"; per scrivere ogni riga...
Print #NumFile, "</body>";
Print #NumFile, "</html>";
Rs.MoveNext
loop
Rs.Close
End Function
Rispondi quotando
