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.NET Discussion :

Objets Printer en VB6 et PrintDocument en Vb.Net


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre à l'essai
    Homme Profil pro
    Enseignant
    Inscrit en
    Juillet 2013
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Enseignant
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2013
    Messages : 4
    Par défaut Objets Printer en VB6 et PrintDocument en Vb.Net
    Bonjour,

    J'essaye de traduire le code VB6 suivant en VB.Net en passant de l'objet Printer à l'objet PrintDocument :

    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
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
     
     
    Printer.NewPage
    Printer.Orientation = vbPRORLandscape
    Printer.FontName = "Courier New"
    Printer.FontSize = 12
    Printer.FontBold = True
    Dim Marge As Byte
    Dim long_Tab As Integer
    Marge = 3
    long_Tab = 134
    Printer.Print Tab(Marge); "** TABLEAU RECAPITULATIF **"
     
    Printer.FontSize = 9.75
    Printer.FontBold = False
    Printer.Print Tab(Marge); String$(long_Tab, "-")
    Printer.Print Tab(Marge); "| No Lot | No Facture |Date Facture|  Date ARL  | Résultat |  Part Facture  |  Montant |";
    Printer.Print Space$(17); "Motif Rejet"; Space$(17); "|"
    Printer.Print Tab(Marge); String$(long_Tab, "-")
    Dim i As Integer
    'Nb_ARL fait appel à une fonction renvoyant un Integer.
    For i = 1 To Nb_ARL
        Printer.Print Tab(Marge); "|"; Space$(3); CentreChamp(No_Lot$(i), 3); Space$(2); "|"; Space$(2); CentreChamp(Num_Facture$(i), 9); Space$(1); "|";
        Printer.Print Space$(1); CentreChamp(Date_Facture$(i), 10); Space$(1); "|"; Space$(1); CentreChamp(Date_ARL$(i), 10); Space$(1); "|";
        Printer.Print Space$(1); CentreChamp(Rejet_Acquit$(i), 8); Space$(1); "|"; Space$(1); CentreChamp(Part_Facture$(i), 14); Space$(1); "|";
        Printer.Print Space$(1); CentreChamp(Montant_Facture$(i), 8); Space$(1); "|"; CentreChamp(Motif_Rejet$(i), 45); "|"
    Next i
    Printer.Print Tab(Marge); String$(long_Tab, "-")
    Printer.EndDoc()
    Mais mes tentatives ont été infructueuses. Avez-vous un code équivalent ?
    Merci d'avance.

    René

  2. #2
    Membre Expert
    Avatar de wallace1
    Homme Profil pro
    Administrateur systèmes
    Inscrit en
    Octobre 2008
    Messages
    1 966
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Administrateur systèmes
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Octobre 2008
    Messages : 1 966
    Billets dans le blog
    7
    Par défaut
    Bonsoir,

    Il faudrait déjà savoir si tu as instanciés ton objet Printer et surtout à quel endroit ....... Pour le reste on feuillette un peu la bible :

    https://msdn.microsoft.com/fr-fr/lib...v=vs.110).aspx


    A+

  3. #3
    Invité
    Invité(e)
    Par défaut
    Bonjour

    As-tu lu ce tuto : http://bidou.developpez.com/tutoriel...et/impression/

    Philippe

  4. #4
    Membre à l'essai
    Homme Profil pro
    Enseignant
    Inscrit en
    Juillet 2013
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Enseignant
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2013
    Messages : 4
    Par défaut
    Bonjour,

    Merci pour vos réponse et les liens correspondants.
    Je vais les consulter. Je vais approfondir ma lecture sur l'objet PrintDocument que j'avais déjà survolé.
    Si le pb de l'impression des fichiers est bien traité, celui des chaînes de caractères simples me le semble beaucoup moins. Et c'est là mon souci.

    René

Discussions similaires

  1. apercu avant impression avec l'objet printer
    Par brchokri dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 10/05/2007, 13h56
  2. [VB6] objet printer changer d'imprimante
    Par totoche dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 06/12/2006, 10h43
  3. Imprimer avec l'objet printer
    Par yaobi dans le forum VB 6 et antérieur
    Réponses: 1
    Dernier message: 27/11/2006, 12h32
  4. pb avec l'objet Printer
    Par reeda dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 27/09/2006, 15h43
  5. [VB6]Colorier une zone (carrée) avec l'objet printer.
    Par méphistopheles dans le forum VB 6 et antérieur
    Réponses: 14
    Dernier message: 24/05/2006, 21h03

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