Imprimer un rectangle

Question

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

cs_DARKSIDIOUS · Answer

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

petiflamand · Answer

oui c'est fait mais il sort une feuille sans rien dessus ??????

cs_rene38 · Answer

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

cs_rene38 · Answer

... 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 !)

Imprimer un rectangle

4 réponses

Discussions similaires