image et variable...Résolu

Question

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 :)

cs_Sator · Accepted Answer

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 :)

Gobillot · Answer

Salut,
un Object n'a pas de propriété Picture

    Dim imgG As StdPicture   (préférable à Object)
    Set imgG = Image4.Picture

Daniel

cs_Sator · Answer

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 :)

Gobillot · Answer

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

Gobillot · Answer

essayes dans une PictureBox
(AutoRedraw à True)
Picture1.PaintPicture Image4.Picture, Ligne(1), Col(1), Val(Text2.Text), Val(Text2.Text)

Daniel

cs_Sator · Answer

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

Image et variable...

6 réponses

Votre réponse

Discussions similaires