cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 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
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 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 :