Imprimer un rectangle

petiflamand
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
- 14 déc. 2004 à 21:05
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
- 15 déc. 2004 à 12:47
Printer.Line [Step] (x1, y1) [Step] - (x2, y2), [color], [B][F]
Printer.Line (10, y)-(10, 40), [vbRed], BF
Printer.Line (10, 0)-(20, 45), RGB(0, 0, 255), BF

Salut j'essaye d'imprimer un rectangle pour faire une mise en page a4 mais j'y arrive pas...

Merci d'avance

4 réponses

cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
131
15 déc. 2004 à 06:56
As tu pensé à faire un Printer.EndDoc à la fin ?
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer
0
petiflamand
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
1
15 déc. 2004 à 07:33
oui c'est fait mais il sort une feuille sans rien dessus ??????
0
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
11
15 déc. 2004 à 12:35
Bonjour
Essaie ceci :
Dim MargeG As Integer, MargeH As Integer
Dim Larg As Integer, Haut As Integer, Couleur As Long
Printer.ScaleMode = vbMillimeters' dimensions en mm
MargeG = 10 ' marge gauche
MargeH = 15 ' marge haut
Larg = 180 ' largeur du rectangle
Haut = 250 ' hauteur du rectangle
Printer.DrawWidth = 3 ' épaisseur du trait
Couleur = vbRed ' rouge
Printer.Line (MargeG, MargeH)-(MargeG + Larg, MargeH + Haut), Couleur, B
Printer.EndDoc
0
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
11
15 déc. 2004 à 12:47
... ou, plus simple :

Printer.Line (MargeG, MargeH)-Step(Larg, Haut), Couleur, B

qui trace un rectangle rouge (vide) de 180 mm de large sur 250 mm de haut, le coin supérieur gauche étant à 10 mm du bord gauche et à 15 mm du bord supérieur.
Si tu écris :
Printer.Line (MargeG, MargeH)-Step(Larg, Haut), Couleur, BF

le rectangle sera plein (mais l'encre coûte cher !)
0