Imprimer un rectangle

Signaler
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
-
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
-
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

Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
118
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
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
1
oui c'est fait mais il sort une feuille sans rien dessus ??????
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
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
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
... 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 !)