Discussion :

[pier*]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[ThierryAIM]

ca doit venir de ta source de données

regarde les paramètres à regler avec la méthode PrintReport

[pier*]

Oui j'ai modifié les options qui suivaient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[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é !!

[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).

[ThierryAIM]

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é !!

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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