Image et variable...

Résolu
cs_Sator Messages postés 351 Date d'inscription samedi 7 février 2004 Statut Membre Dernière intervention 6 octobre 2010 - 3 juin 2007 à 19:18
cs_Sator Messages postés 351 Date d'inscription samedi 7 février 2004 Statut Membre Dernière intervention 6 octobre 2010 - 3 juin 2007 à 20:42
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

cs_Sator Messages postés 351 Date d'inscription samedi 7 février 2004 Statut Membre Dernière intervention 6 octobre 2010
3 juin 2007 à 20:32
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 :)
3
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 33
3 juin 2007 à 19:50
Salut,
un Object n'a pas de propriété Picture

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

Daniel
0
cs_Sator Messages postés 351 Date d'inscription samedi 7 février 2004 Statut Membre Dernière intervention 6 octobre 2010
3 juin 2007 à 20:09
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 :)
0
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 33
3 juin 2007 à 20:24
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 33
3 juin 2007 à 20:35
essayes dans une PictureBox
(AutoRedraw à True)
Picture1.PaintPicture Image4.Picture, Ligne(1), Col(1), Val(Text2.Text), Val(Text2.Text)

Daniel
0
cs_Sator Messages postés 351 Date d'inscription samedi 7 février 2004 Statut Membre Dernière intervention 6 octobre 2010
3 juin 2007 à 20:42
j'ai fini par trouvé c'était un document que mon imprimante n'avait pas digérée.... je te remercie infiniment....

:)Sator :)
0