[VB6][DataReport] Impression

Version imprimable

Bonjour,

Lors que je fais une impression à l'aide d'un datareport, ce dernier m'imprime plusieurs fois la page. Lorsqu'il arrive à la fin d'un report, il en entame un autre tout de suite à la fin de cette même page...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Dim rcdBidouille As ADODB.Recordset Set rcdBidouille = New ADODB.Recordset If (connexion.State = 0) Then connect //Connexion à la BDD End If rcdBidouille.Open "Select idProp from proprietaire", connexion [...] Set drAppelLoyer.DataSource = rcdBidouille drAppelLoyer.PrintReport
Quel paramètre faut il regler ?

10/05/2006, 12h24
ThierryAIM

ca doit venir de ta source de données

regarde les paramètres à regler avec la méthode PrintReport
10/05/2006, 14h43
pier*
Oui j'ai modifié les options qui suivaient :
Code:

1 2 drAppelLoyer.PrintReport , rptRangeFromTo, 1, 1
Le pire c'est que je ne me sers même pas du record set, c'est juste pour la mise en page et le support d'impression que j'utilise le datareport...
10/05/2006, 15h17
ThierryAIM

et si tu envoyais à ton datareport une source de données correctement construite à partir des données de ton formulaire, tu n'aurais pas de soucis ;)

une simple requete sql > dans un recordset ADO, les champs appropriés dans ton DR, et le tour est joué !!
10/05/2006, 15h27
pier*

Oui j'y ai pensé, mais ce n'est pas réalisable dans mon contexte. En effet j'imprime bien des données provenant d'une base de donnée, mais avant l'impression, les données sont insérées dans un formulaire où l'utilisateur est libre de les modifier.

Il peut ne pas avoir envie d'imprimer exactement ce qui est stocké dans la base de donnée, sans que pour autant ces infomations soit modifier réellement dans la base de donnée (pour cela il y a d'autre formulaire).

ben tu crées un recordset déconnecté, avec les champs nécessaires que tu renseignes à partir de ton formulaire et que tu affectes à ton DR, il est ou le problème ??

ah oui, tu ne sais pas créer un recordset déconnecté !! :mouarf:

Exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim rst As New ADODB.Recordset
    Set rst = New ADODB.Recordset
    With rst
        .Fields.Append "Nom_Ext", adChar, 20
        .Fields.Append "Nom", adChar, 8
        .Fields.Append "Ext", adChar, 4
        .Fields.Append "NomCN", adChar, 20
        .Open , , adOpenDynamic, adLockPessimistic
 
         .AddNew
         .Fields("Nom_Ext") = Trim$(NomFichier.Nom) & "." & Trim$(NomFichier.Ext)
          .Fields("Nom") = Trim$(NomFichier.Nom)
          .Fields("Ext") = Trim$(NomFichier.Ext)
           .Fields("NomCN") = Trim$(NomFichier.CNName)
           .Update
    End With
 
    Set DataReport1.DataSource = rst