Générer un report

Résolu
Signaler
Messages postés
9
Date d'inscription
lundi 21 juin 2004
Statut
Membre
Dernière intervention
22 août 2012
-
Messages postés
9
Date d'inscription
lundi 21 juin 2004
Statut
Membre
Dernière intervention
22 août 2012
-
Bonjour à tous

Je cherche à créer un outils de planning. pour cela j'inser des label sur un pictur et je les déplaces a mon gré.
Le problème se pose pour générer un document imprimable.
Y'a t'il une possibilité pour insérer des label en quantité variable dans un datareport?
Si non peut on créer une image du document que l'on imprime ultèrieurement un truc dans ce style
www.vbfrance.com/codes/EXEMPLE-ETAT-POUR-REMPLACER-DATAREPORT-OU-CRYSTAL-REPORT_28343.aspx
Pour le code ci-joint je ne suis pas encore au niveau et je cherche une version simplifié avec des ligne et de labels.
Merci d'avance.

5 réponses

Messages postés
1141
Date d'inscription
mercredi 7 mars 2007
Statut
Membre
Dernière intervention
19 septembre 2007
3
Salut,

j'ai fais une micro recherche (1 min chrono) et j'ai trouver ca dans l'aide de VBA access (voir pour VB6). Si ca correspond pas DSL.



Exemple


Dans l'exemple suivant, la méthode Print est utilisée pour afficher du texte sur un état appelé Report1. Les méthodes TextWidth et TextHeight permettent de centrer le texte verticalement et horizontalement.



Private Sub Detail_Format(Cancel As Integer, _
        FormatCount As Integer)
    Dim rpt as Report
    Dim strMessage As String
    Dim intHorSize As Integer, intVerSize As Integer

    Set rpt = Me
    strMessage = "DisplayMessage"
    With rpt
        'Set scale to pixels, and set FontName and
        'FontSize properties.
        .ScaleMode = 3
        .FontName = "Courier"
        .FontSize = 24
    End With
    ' Horizontal width.
    intHorSize = Rpt.TextWidth(strMessage)
    ' Vertical height.
    intVerSize = Rpt.TextHeight(strMessage)
    ' Calculate location of text to be displayed.
    Rpt.CurrentX = (Rpt.ScaleWidth/2) - (intHorSize/2)
    Rpt.CurrentY = (Rpt.ScaleHeight/2) - (intVerSize/2)
    ' Print text on Report object.
    Rpt.Print strMessage
End Sub
Messages postés
1141
Date d'inscription
mercredi 7 mars 2007
Statut
Membre
Dernière intervention
19 septembre 2007
3
Désolé pour l'affichage, rrrraaaahhhhh.
Messages postés
9
Date d'inscription
lundi 21 juin 2004
Statut
Membre
Dernière intervention
22 août 2012

Désolé mais je ne sais pas non plus générer un état.
Cela corrsepond t-il a un data report?


et a quoi correspond le formatcount?


je suis vraiment un novice en la matière et je ne trouve pas de réponse simple.


Merci de ta réponse.
Messages postés
1141
Date d'inscription
mercredi 7 mars 2007
Statut
Membre
Dernière intervention
19 septembre 2007
3
Oui c'est bien un datareport. Si tu ne connais pas tu devrais apprendre en placant des controls et les afficher (labels, zone de texte, etc) et modifier leur valeur par code pour apprendre a t'en servir.

Pour le générer, il suffit de faire appel a sa méthode SHOW.

Ex:
Datareport1.show

Pour finir, la je sais pas se qu'est formatcount mais en regle générale pour avoir la devinition d'une propriété il suffit de double cliquer dessus et de taper F1 ou aller dans l'aide directement et taper le nom de la méthode, propriété, fonction etc...

Si tu as d'autres difficultés, n'hesites pas.

A+
Messages postés
9
Date d'inscription
lundi 21 juin 2004
Statut
Membre
Dernière intervention
22 août 2012

Merci pour toutes ces infos. là je m'en sort mieux.
Après quelque nuits blanches je commence à comprendre la source ci-jointe.www.vbfrance.com/codes/EXEMPLE-ETAT-POUR-REMPLACER-DATAREPORT-OU-CRYSTAL-REPORT_28343.aspx
j'en profite pour dir un grand bravo à ce programmeur.

Merci pour ces réponse j'ai nien avancé.
Bon courage pour la suite.