IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

code pour faire imprimer une feuille imprimer


Sujet :

VB 6 et antérieur

  1. #1
    Membre du Club
    Inscrit en
    Février 2009
    Messages
    77
    Détails du profil
    Informations forums :
    Inscription : Février 2009
    Messages : 77
    Points : 44
    Points
    44
    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
    Expert éminent sénior


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Points : 20 038
    Points
    20 038
    Par défaut
    Quel genre de feuille ..?

  3. #3
    Membre du Club
    Inscrit en
    Février 2009
    Messages
    77
    Détails du profil
    Informations forums :
    Inscription : Février 2009
    Messages : 77
    Points : 44
    Points
    44
    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
    Expert éminent sénior


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Points : 20 038
    Points
    20 038
    Par défaut
    c'est quoi une page ? une form ? un dataReport ? une feuille excel ?

  5. #5
    Membre du Club
    Inscrit en
    Février 2009
    Messages
    77
    Détails du profil
    Informations forums :
    Inscription : Février 2009
    Messages : 77
    Points : 44
    Points
    44
    Par défaut
    une form

  6. #6
    Expert éminent sénior


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Points : 20 038
    Points
    20 038
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub cdImprimer_Click()
     Me.PrintForm
    End Sub

  7. #7
    Membre du Club
    Inscrit en
    Février 2009
    Messages
    77
    Détails du profil
    Informations forums :
    Inscription : Février 2009
    Messages : 77
    Points : 44
    Points
    44
    Par défaut
    merci beaucoup,

  8. #8
    Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 077
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 077
    Points : 17 175
    Points
    17 175
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Balises[C]...[/C] code intégré dans une phrase.
    Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.
    👉 → → Ma page perso sur DVP ← ← 👈

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

Discussions similaires

  1. Réponses: 1
    Dernier message: 15/02/2010, 11h56
  2. Réponses: 1
    Dernier message: 10/08/2008, 18h00
  3. Imprimer une feuille d'un autre classeur?
    Par Amkhar dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 12/09/2007, 15h46
  4. [VBA-E] imprimer une feuille sans connaitre le nom
    Par srame dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 19/04/2007, 09h02
  5. code pour faire une migration
    Par rollins_ng dans le forum MS SQL Server
    Réponses: 6
    Dernier message: 11/08/2006, 21h18

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo