Discussion :

[bouboulou]

Bonjour,

-- probleme 1 --

Je voudrais faire imprimer une image de 1000 twips de largeur et 1000 twips de longueur avec stretch = true.
J'ai reussi à faire imprimer l'image mais elle n'est pas stretché/déformée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set MonImage = LoadPicture(cheminImage)
Printer.PaintPicture MonImage, 0, 0, 100, 100

-- probleme 2 --
J'ai réussi à dessiner un rectangle mais je n'arrive pas à remplir son fond avec une couleur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Printer.BackColor = vbGreen
Printer.Line (0, 0)-(varWidth, varHeight), vbBlack, B

Merci d'avance

[LeForestier]

bonjour,
A ta 1er question je ne comprend pas bien ce que tu veux faire
La 2ém,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Printer.ForeColor= vbGreen
Printer.Line (0, 0)-(varWidth, varHeight), vbBlack, BF

Je réflechit au 1
A+
EDIT:

pour la Question 1 essaie..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Dim MemScaleMode As Integer
    MemScaleMode = Printer.ScaleMode
    Set MonImage = LoadPicture(cheminImage)
    MonImage.height=1000: MonImage.Width=1000
    Printer.ScaleMode = 1
    Printer.CurrentX = 0
    Printer.CurrentY = 0
    Printer.Print MonImage
    Printer.EndDoc
    Printer.ScaleMode = MemScaleMode

Si tu à bien employer une Image et pas une PictureBox

[ucfoutu]

Bonjour,

Question 1 : Tu ne nous parles pas du ScaleMode de ton objet printer ...
Question 2 : pas de propriété BackColor pour un objet Printer

EDIT : on ne voit par contre pas comment tu utilises la propriété FillColor et la propriété FillStyle .... (or tu dis vouloir remplir ton rectangle)

[LeForestier]

bonjour ucfoutu,
Avec la propriété Forecolor définie et le flag BF, rempli le rectangle avec la valeur de ForeColor. La valeur FillStyle est à solid par défaut.
Cordialement

[ucfoutu]

Voilà la manière orthodoxe
Un objet Prtinter se comporte comme une pictureBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
  Me.ScaleMode = 3
   Picture1.Move 0, 0, Me.ScaleWidth / 2, Me.ScaleHeight / 2
   With Picture1
     .FillColor = vbGreen
     .FillStyle = 0
     .ScaleMode = 3
     .DrawStyle = 0
     .DrawWidth = 4
   End With
   Picture1.Line (0, 0)-(Picture1.Width / 2, Picture1.Height / 2), vbRed, B
End Sub

Bonne continuation...

[bouboulou]

Mon probleme 1 est resolu.
J'ai fait des erreurs dans mon code avec mes variables et mes boucles.
Ca faisait que mon image ne se deformait pas.

Pour le probleme 2, LeForestier tu m'as induit en erreur
j'ai teste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Printer.ForeColor= vbGreen
Printer.Line (0, 0)-(varWidth, varHeight), vbBlack, BF

Ca me donne un rectangle noir avec bordure noir. Apparemment apres longue recherche sur google et regardais les sites anglo-saxon, si tu indiques le F, le fond et la bordure seront de meme couleur.
La propriete .forecolor est utilisee pour la couleur du texte. Ce serait plutot .fillcolor
tu avais raison pour .fillstyle = solid


Merci beaucoup d'avoir pris du temps pour m'aider.

[Delbeke]

Et si tu essayais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Printer.Line (0, 0)-(varWidth, varHeight), vbBlack, BF
Printer.Line (0, 0)-(varWidth, varHeight), vbGreen, B