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 :

Problème avec l'objet Printer


Sujet :

VB 6 et antérieur

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Novembre 2015
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Belgique

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Novembre 2015
    Messages : 6
    Points : 7
    Points
    7
    Par défaut Problème avec l'objet Printer
    Bonjour,
    J'ai créer un module de code pour l'appeler dans mon application:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
     
     
    Option Explicit
     
    Public Sub PrintAnywhere(Src As Object, Dest As Object)
       Dest.PaintPicture Src.Picture, Dest.Width / 2, Dest.Height / 2
       If TypeOf Dest Is Printer Then
          Printer.EndDoc
       End If
    End Sub
    Ensuite, j'appelle la méthode de manière classique pour imprimer la feuille:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Call PrintAnywhere(frmPrint, Printer)    'Print form.
    et un message d'erreur 481 se produit : Image incorrecte; le code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Dest.PaintPicture Src.Picture, Dest.Width / 2, Dest.Height / 2
    est surligné en jaune et l'imprimante me sort une feuille blanche.

    Pourquoi?

    Merci de bien vouloir venir à mon secour.

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    Juillet 2009
    Messages
    2 415
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2009
    Messages : 2 415
    Points : 5 806
    Points
    5 806
    Par défaut
    ....et un message d'erreur 481 se produit : Image incorrecte
    certainement aucune image n'a été affectée à frmPrint d'où l'erreur.
    D'autre part, pour PaintPicture il faut donner le point de début(là où commence l'impression) sinon, les valeurs que tu as utilisées(Dest.Width / 2 et Dest.Height / 2) seront considérées comme point origine de l'impression. A titre d'exemple essaie ce
    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
    Option Explicit
     
    Public Sub PrintAnywhere(Src As Object, Dest As Object)
       Dest.PaintPicture Src.Picture, 100, 100, Dest.Width / 2, Dest.Height / 2
       If TypeOf Dest Is Printer Then
          Printer.EndDoc
       End If
    End Sub
     
    Private Sub Command1_Click()
       Dim PRN As Printer
       Set PRN = Printer
       PRN.TrackDefault = True ' paramètres par défaut de l'imprimante telles qu'elles sont définies dans le panneau de configuration de l'imprimante
       Call PrintAnywhere(frmPrint, PRN)
    End Sub
    ET N'OUBLIE PAS D'AFFECTER UNE IMAGE A LA PROPRIÉTÉ Picture de frmPrint.
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  3. #3
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Novembre 2015
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Belgique

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Novembre 2015
    Messages : 6
    Points : 7
    Points
    7
    Par défaut Problème avec l'objet Printer (suite).
    Bonjour,
    Merci de m'avoir indiqué d'attribuer une valeur à la propriété Picture, mais maintenant le souci, c'est que seule cette image est imprimée et pas le reste du Form. D'après mes infos on peut imprimer une feuille contenant une
    image ou une feuille dans laquelle on a entré des données, sans passer par la méthode PrintForm.
    Voici le code de l'application:
    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
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
     
     
    Option Explicit
     
    Public Sub PrintAnywhere(Src As Object, Dest As Object)
       Dest.PaintPicture Src.Picture, 100, 100, Dest.Width, Dest.Height
       If TypeOf Dest Is Printer Then
          Printer.EndDoc
       End If
    End Sub
     
     
     
    Private Sub cmdExit_Click()
       End
    End Sub
     
    Private Sub cmdPrint_Click()
       'Envoie une sortie vers la feuille
       'à l'aide de la méthode Print.
       Dim intCtr As Integer
       Dim intCurX As Integer
       Dim intCurY As Integer
       '
     
       '
       'Définit les attributs de police.
          frmPrint.FontItalic = True
          frmPrint.FontBold = True
          frmPrint.FontSize = 36
          '
          'Spécifie des mesures en twips.
          frmPrint.ScaleMode = vbTwips
          '
          'Enregistre les positions X et Y (en Twips)
          'à chaque itération de la boucle.
        For intCtr = 1 To 10
           intCurX = frmPrint.CurrentX
           intCurY = frmPrint.CurrentY
           'Texte noir et rouge en alternance.
           If (intCtr Mod 2) = 1 Then   'Compteur de boucle.
              frmPrint.ForeColor = vbRed
           Else
              frmPrint.ForeColor = vbBlack
           End If
           'Affiche le texte.
           frmPrint.Print "Visual Basic"
     
           '
           'Change les positions X et Y.
           frmPrint.CurrentX = intCurX + 350
           frmPrint.CurrentY = intCurY + 300
     
        Next intCtr
           Call PrintAnywhere(frmPrint, Printer)    'Print form.
    End Sub
     
     
    Private Sub Form_Load()
     
    End Sub


    D'avance merci.

Discussions similaires

  1. [COM] Problème avec l'objet COM
    Par Commodore dans le forum Bibliothèques et frameworks
    Réponses: 1
    Dernier message: 16/05/2006, 21h36
  2. [Delta3d] probléme avec un objet dans une map
    Par astragoth dans le forum Développement 2D, 3D et Jeux
    Réponses: 1
    Dernier message: 27/03/2006, 15h49
  3. Problème avec l'Objet "Session"
    Par ghislain007 dans le forum ASP
    Réponses: 4
    Dernier message: 03/03/2006, 23h07
  4. Problème avec l'objet FileSystemObject
    Par Poussy-Puce dans le forum ASP
    Réponses: 4
    Dernier message: 27/10/2005, 17h25
  5. [FLASH MX] Problème avec l'objet Date
    Par n_tony dans le forum Flash
    Réponses: 13
    Dernier message: 22/03/2005, 14h44

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