Newsgroup: it.comp.lang.visual-basic
Titolo: printreport vb6

salve a tutti questo sotto � il codice per stampare
una classifica, fino che lancio il  classifiche.Show vbModal  tutto ok
ma quando lancio il  classifiche.PrintReport
il programma non si chiude, mi resta sempre attivo,lo devo fermare con lo 
stop
di vb6.
mi sapreste dire dove sbaglio ?
grazie 1000 per qualsiasi suggerimento
Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset
Dim db_file1 As String
Dim conn As ADODB.Connection
   On Error GoTo errori
    db_file1 = percorso & "\archivio_gare.mdb"
    Set conn = New ADODB.Connection
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & db_file1 & ";" & "Persist Security Info=False"
    conn.Open
   Set rs1 = conn.Execute("SELECT * FROM DatiGara", , adCmdText)
    With rs1
      localita = !localita
      motoclub = !motoclub
      tipo_gara = !denominazione
      codicemac = !codice_mac
      miadata = Format(!Date, "dd mm yyyy")
   End With
    Set rs = conn.Execute("SELECT * FROM tabellaClassifica; ", , adCmdText)
      With rs
         nomecategoria = !nomecatt
      End With
    Set classifiche.DataSource = rs '''' Connette il Recordset al 
DataReport.
    classifiche.Sections("Section2").Controls("label1").Caption = 
nomecategoria
    classifiche.Sections("Section4").Controls("label3").Caption = motoclub
    classifiche.Sections("Section4").Controls("label4").Caption = tipo_gara
    classifiche.Sections("Section4").Controls("label23").Caption = localita
    classifiche.Sections("Section3").Controls("label24").Caption = localita
    classifiche.Sections("Section3").Controls("label33").Caption = 
incremento
    classifiche.Sections("Section3").Controls("label36").Caption = 
squalificato1
    classifiche.Sections("Section3").Controls("label35").Caption = tempomax1
    classifiche.Sections("Section3").Controls("label34").Caption = ritirato1
    classifiche.Sections("Section4").Controls("Label5").Caption = miadata
    classifiche.Sections("Section3").Controls("Label25").Caption = miadata
classifiche.LeftMargin = 1
classifiche.RightMargin = 1
classifiche.Top = 1
classifiche.BottomMargin = 1
classifiche.Orientation = rptOrientLandscape
    If stampavero = True Then
      classifiche.Show vbModal
   Else                         '--------------------
      classifiche.PrintReport
   End If
    rs1.Close
    rs.Close
    conn.Close
    Set rs1 = Nothing
    Set rs = Nothing
    Set conn = Nothing
    stampavero = True

 salve a tutti questo sotto ï¿œ il codice per stampare

Distruggi anche 'classifiche'
Alberto

?? 

 ??
Paghi l'ADSL a bit postati?
Prova a esplicitare il tuo dubbio.
Alberto

Scusa non afferro il discorso
che cosa vuoi sapere ?

 che cosa vuoi sapere ?
Io?
Sei tu che hai inviato un post con due punti interrogativi...
Alberto

non capisco questo
Distruggi anche 'classifiche'
Alberto

 Distruggi anche 'classifiche'
Fai tutta una serie di distruzioni, ma non distruggi 'classifiche'.
Distruggi anche l'oggetto 'classifiche'...
Poi, puï¿œ darsi che serva qualcosa d'altro, non ricordo, forse un 
Unload, ma intanto prova cosï¿œ...
Alberto

Il 29/04/2010, Albe Vï¿œ ha detto :

Ho verificato, effettivamente io distruggo con:
    Set DataReport_Consuntivi.DataSource = Nothing
    Unload DataReport_Consuntivi
    Set DataReport_Consuntivi = Nothing
Alberto

ti ringrazio Alberto
ma proprio 2 minuti fa andando su Tips & tricks
ho visto la soluzione, unload classifiche
il bello � che sono 3 ore circa che ci giravo intorno
comunque mi hai dato la conferma della soluzione.
comunque grazie, anche se non ci siamo capiti subito
ciao
Claudio