Problemi cr

giovedì 28 febbraio 2008 - 10.39

papy2 Profilo | Newbie

Buongiorno a tutti,

ho un problema con cr 8 e vb6... anzi un doppio problema.

da un form di vb6 posso scegliere se caricare un report (dove vado ad inserire dei parametri) o un'altro report (uso crviewer e craxdrt).

se mando la compilazione del primo report, poi mando la seconda, la seconda compilazione non avviene, devo chiudere e riaprire il form... vi è mai successo? come posso fare?

poi, da crviewer, non mi fa selezionare la stampante su cui stampare, e sceglie sempre la predefinita. come posso fare per selezionare altre stampanti?


saluti

freeteo Profilo | Guru

>se mando la compilazione del primo report, poi mando la seconda,
>la seconda compilazione non avviene, devo chiudere e riaprire
>il form... vi è mai successo? come posso fare?
scusa non ho capito cosa vuol dire "mando la compilazione", mandi in esecuzione il programma?
Posta il codice che usi per caricare il report, sembra che sia rimasto in cache...


>poi, da crviewer, non mi fa selezionare la stampante su cui stampare,
>e sceglie sempre la predefinita. come posso fare per selezionare
>altre stampanti?
il problema ce l'hai se clicchi sul pulsante "stampa" del viewer, o se mandi in stampa da codice?


cmq il codice che usavo io al tempo di vb, era questo:

Dim xRpt As CRAXDRT.report Dim xCrxApplication As CRAXDRT.Application Set xCrxApplication = New CRAXDRT.Application Set xRpt = xCrxApplication.OpenReport("c:\...", 1) ... xRpt .Database.SetDataSource miorecordsetado .... CrViewer1.ReportSource = xRpt CrViewer1.ViewReport

cmq posta il tuo che facciamo delle valutazioni...

ciao.

Matteo Raumer
[MCAD .net]
http://blogs.dotnethell.it/freeteo

papy2 Profilo | Newbie

Dim crApp As New CRAXDRT.Application
Dim CRXParamDefs As CRAXDRT.ParameterFieldDefinitions
Dim CRXParamDef As CRAXDRT.ParameterFieldDefinition
Dim CRXSubreport As CRAXDRT.Report

Set CRXSubreport = Nothing
Set crApp = Nothing


Select Case TabStrip1.SelectedItem.Index
Case 1
Set CRXSubreport = crApp.OpenReport(App.Path + "\crmoduli\banca.rpt")
Set CRXParamDefs = CRXSubreport.ParameterFields

For Each CRXParamDef In CRXParamDefs
With CRXParamDef

Select Case .ParameterFieldName

Case "banca"
.SetCurrentValue "" & banca.Text

Case "anno"
.SetCurrentValue "" & anno.Text

Case "data"
.SetCurrentValue "" & data.Text

End Select

End With

Next

CRViewer1.ReportSource = CRXSubreport
CRViewer1.ViewReport


questo è il codice...

freeteo Profilo | Guru

ciao,
come vedi nel codice che ti ho postato sotto, nell'apertura del report uso l'overload per il tipo, adesso pero' non ho piu' quella versione quindi non posso dirti a cosa servisse esattamente, era cmq qualcosa legato al fatto di aprirlo isolato da altri processi.
Prova con quel parametro e fammi sapere.

ciao.

Matteo Raumer
[MCAD .net]
http://blogs.dotnethell.it/freeteo

papy2 Profilo | Newbie

praticamente siamo lì...

fa la stessa cosa...
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2023
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5