Image et variable...

[Résolu]
Signaler
Messages postés
351
Date d'inscription
samedi 7 février 2004
Statut
Membre
Dernière intervention
6 octobre 2010
-
Messages postés
351
Date d'inscription
samedi 7 février 2004
Statut
Membre
Dernière intervention
6 octobre 2010
-
Salut à tous..... et toutes

voici mon problème

je désirerais imprimer soit une image soit l'autre image.... en fonction d'un choix (option)

voici mon bout de code...

Dim imgG As Object

If Option1.Value = True Then ' choix de l'image
   imgG.Picture = Image4.Picture
Else
   imgG.Picture = Image3.Picture
End If


' imprimer
Printer.ScaleMode = vbMillimeters
' N° 1
Printer.PaintPicture imgG.Picture, Ligne(1), Col(1), Val(Text2.Text), Val(Text2.Text)

et là il me sort l'erreur suivante :

Variable objet ou variable bloc with non définie.....

:)Sator :)

6 réponses

Messages postés
351
Date d'inscription
samedi 7 février 2004
Statut
Membre
Dernière intervention
6 octobre 2010

en fait j'ai carrément supprimer la ligne:
Printer.PaintPicture imgG, Ligne(1), Col(1), Val(Text2.Text), Val(Text2.Text)
'
et essayé :
Printer.PaintPicture Image4.Picture, Ligne(1), Col(1), Val(Text2.Text), Val(Text2.Text)

et ça plante toujours, ce qui me fait dire qu'il y à peut-être quelque chose à charger....

:)Sator :)
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
30
Salut,
un Object n'a pas de propriété Picture

    Dim imgG As StdPicture   (préférable à Object)
    Set imgG = Image4.Picture

Daniel
Messages postés
351
Date d'inscription
samedi 7 février 2004
Statut
Membre
Dernière intervention
6 octobre 2010

au moin ça block plus dans la déclaration de variable je te remercie déjà pour ça...

ensuite vient un autre problème....
Si je mets ça....
Printer.PaintPicture imgG.Picture, Ligne(1), Col(1), Val(Text2.Text), Val(Text2.Text)
J'ai l'erreur : L'objet ne gère pas cette propriété ou cette méthode
et quand je met:
Printer.PaintPicture imgG, Ligne(1), Col(1), Val(Text2.Text), Val(Text2.Text)
là mon prog. part en vrille et ne veux plus répondre....

bref si tu as une idée, je te remercie d'avance

:)Sator :)
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
30
non je vois pas,
peut-être des données dans Ligne(1), Col(1) et Text2.Text
ou alors l'imprimante n'est pas prête ????
essaye sans rien pour voir
Printer.PaintPicture imgG
et avec un EndDoc pour terminer
Printer.EndDoc

Daniel
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
30
essayes dans une PictureBox
(AutoRedraw à True)
Picture1.PaintPicture Image4.Picture, Ligne(1), Col(1), Val(Text2.Text), Val(Text2.Text)

Daniel
Messages postés
351
Date d'inscription
samedi 7 février 2004
Statut
Membre
Dernière intervention
6 octobre 2010

j'ai fini par trouvé c'était un document que mon imprimante n'avait pas digérée.... je te remercie infiniment....

:)Sator :)