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
Printer.Line (MargeG, MargeH)-Step(Larg, Haut), Couleur, B
Printer.Line (MargeG, MargeH)-Step(Larg, Haut), Couleur, BF