Il progetto può chiamare due report differenti che vengono caricati dinamicamente a seconda della scelta dell'utente.
Mi genera il seguente errore:
"Run-time error 430
Class does not support Automation or does not support expeced interface"

Questo è il codice che utilizzo:
codice:
Sub Stampa()
 'Dim mioReport As DataReport

 Dim mioFiltro As String, mioDataMember As String
 Dim mioTipoIndirizzo As Integer
 Dim mioDataMemberPerIncompleti As String, mioTipoRicerca As String
 Dim mioTipoStampa As String, mioTipoPrint As Integer

  mioFiltro = "IDAcquisitore = " & CLng(dcAcquisitori.BoundText)
  mioTipoPrint = fnTipoDiStampa

  'imposto il tipo di stampa: se buste o etichette
  Select Case mioTipoPrint 
        Case 0: Set mioReport = drStampaBuste: mioTipoStampa
                              = "Buste": mioTipoIndirizzo = 1
        Case 1: Set mioReport = drStampaEtichetteGrandi: 
                    mioTipoStampa = "Etichette": mioTipoIndirizzo = 2
  End Select

  'imposto il filtro per la stampa: se acquisitore o firmatario
  Select Case fnFiltro
        Case 0 'acquisitore
               mioTipoRicerca = "Acquisitori"
        Case 1 'firmatario
               mioTipoRicerca = "Firmatari"
  End Select

  Dim mioElenco As New clsDati
  mioElenco.Filtro = mioFiltro
  mioElenco.tipoRicerca = mioTipoRicerca
  mioElenco.tipoStampa = mioTipoStampa
  mioElenco.TipoIndirizzo = mioTipoIndirizzo

  'assegno il datamember al datareport per la stampa:
  Set mioReport.DataSource = mioElenco
  mioReport.DataMember = "BusteEtichette"
  If mioTipoPrint = 0 Then
       mioReport.Orientation = rptOrientLandscape
  End If
  mioReport.Show 1

  Set mioElenco = Nothing
  Set mioReport = Nothing

  Unload Me

End Sub
non riesco a capire cosa me lo provochi...
e ho pure fretta di risolvere...
mi date una mano ragazzi?

Grazie