for test on Cryustal Report i use the default version in VB 6.0 CD. is a 4.6 versionCode:Private Sub Image1_Click(Index As Integer) Dim miecopie As Integer Report1.DataFiles(0) = mydatabase Select Case Index Case 0 Report1.Destination = 0 Report1.Action = 1 Case 1 'MIECOPIE = tdoc_numcopie 'If MIECOPIE = 0 Then MIECOPIE = 1 'REPORT1.CopiesToPrinter = MIECOPIE Report1.Destination = 1 ''''<<<<<<<<<<<<<<<<<<<<<<<<here error Report1.Action = 1 Case 4, 5 ' e-mail InviaMailocreaPDF Index, Report1.ReportFileName Case 3 Unload Me End Select End Sub