Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 8 sur 8
  1. #1
    Candidat au titre de Membre du Club
    Inscrit en
    février 2009
    Messages
    77
    Détails du profil
    Informations forums :
    Inscription : février 2009
    Messages : 77
    Points : 13
    Points
    13

    Par défaut code pour faire imprimer une feuille imprimer

    bonjour

    je cherche le code a ecrir pour imprimer la feuille quand l'utilisateur clique sur le boutton imprimer.

    merci.

  2. #2
    Responsable Visual Basic

    Avatar de bbil
    Profil pro
    Inscrit en
    juin 2003
    Messages
    12 925
    Détails du profil
    Informations personnelles :
    Âge : 48
    Localisation : France, Ariège (Midi Pyrénées)

    Informations forums :
    Inscription : juin 2003
    Messages : 12 925
    Points : 21 975
    Points
    21 975

    Par défaut

    Quel genre de feuille ..?

  3. #3
    Candidat au titre de Membre du Club
    Inscrit en
    février 2009
    Messages
    77
    Détails du profil
    Informations forums :
    Inscription : février 2009
    Messages : 77
    Points : 13
    Points
    13

    Par défaut


    c'est a dire la page la premiere page du programme
    "mon programme l'utilisateur faire entre la valeur et la quantité et il le donne le total"
    je veux que cet page la, total s'imprime quand il clique sur le boutton imprimer
    merci.

  4. #4
    Responsable Visual Basic

    Avatar de bbil
    Profil pro
    Inscrit en
    juin 2003
    Messages
    12 925
    Détails du profil
    Informations personnelles :
    Âge : 48
    Localisation : France, Ariège (Midi Pyrénées)

    Informations forums :
    Inscription : juin 2003
    Messages : 12 925
    Points : 21 975
    Points
    21 975

    Par défaut

    c'est quoi une page ? une form ? un dataReport ? une feuille excel ?

  5. #5
    Candidat au titre de Membre du Club
    Inscrit en
    février 2009
    Messages
    77
    Détails du profil
    Informations forums :
    Inscription : février 2009
    Messages : 77
    Points : 13
    Points
    13

    Par défaut

    une form

  6. #6
    Responsable Visual Basic

    Avatar de bbil
    Profil pro
    Inscrit en
    juin 2003
    Messages
    12 925
    Détails du profil
    Informations personnelles :
    Âge : 48
    Localisation : France, Ariège (Midi Pyrénées)

    Informations forums :
    Inscription : juin 2003
    Messages : 12 925
    Points : 21 975
    Points
    21 975

    Par défaut

    Code :
    1
    2
    3
    Private Sub cdImprimer_Click()
     Me.PrintForm
    End Sub

  7. #7
    Candidat au titre de Membre du Club
    Inscrit en
    février 2009
    Messages
    77
    Détails du profil
    Informations forums :
    Inscription : février 2009
    Messages : 77
    Points : 13
    Points
    13

    Par défaut

    merci beaucoup,

  8. #8
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro Francis MILLET
    Inscrit en
    décembre 2004
    Messages
    3 480
    Détails du profil
    Informations personnelles :
    Nom : Homme Francis MILLET
    Âge : 58
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 3 480
    Points : 5 766
    Points
    5 766

    Par défaut

    Comme le signal bbil(salut),
    Me.PrintForm est la solution la plus aisé et cette reponse correspond bien sûr exactement à ta question.
    Le résulta pouvant être décevant en rapport a ce qui est vue a l'écran, tu peux agir un peu sur la sortie de l'impression.
    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Private Sub cdImprimer_Click()
    'peu de risque, mais pour limiter ses risques suivant le pilote fourni par le fabricant de l'imprimante
    'qui ne supporterait pas la gestion du zoom
    On Error Resume Next
    'le texte et les graphiques, seront reduits de moitié
    Printer().Zoom = 50
    'le texte et les graphiques, seront 2 fois plus grand
    'Printer().Zoom = 200
    If Err.Number <> 0 Then Err.Clear
     
    Me.PrintForm
    End Sub
    Pour plus d'infos tu peux faire un F1 (aide MSDN) en ayant sélectionné le mot zoom.
    Si tu n'as pas encor MSDN sur ton ordi, tu peux le trouver dans les outils VB sur DVP il est ICI

+ Répondre à la discussion
Cette discussion est résolue.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •