Cadrage donnee en visual basic
sylviane
-
asyl -
asyl -
bonjour a tous
voila le probleme du jour.
comment faire pour cadrer les données lorsque l'on imprime en visual basic.
j'utilise format(variable,"#####") mais voila la variable est cadree a gauche et bien sur je la voudrais a droite ou au centre.
il doit exister une option ?
merci d'avance.
voila le probleme du jour.
comment faire pour cadrer les données lorsque l'on imprime en visual basic.
j'utilise format(variable,"#####") mais voila la variable est cadree a gauche et bien sur je la voudrais a droite ou au centre.
il doit exister une option ?
merci d'avance.
2 réponses
-
Voila une solution. Y'a peut etre mieux mais cela me suffit !!
Je suppose que tu parle d'un centrage sur une largeur de page?
Public Function Justify(ByVal sType As String, ByVal dMarge As Double, ByVal sWordToPrint As String, Optional ByVal dMargeDroite As Double) As String
Select Case sType
Case "L" ' Left
Printer.CurrentX = dMarge + CDbl(0.75)
Case "C" ' Center
Printer.CurrentX = dMarge - (Printer.TextWidth(sWordToPrint) / 2)
Case "R" ' Right
Printer.CurrentX = dMarge - (Printer.TextWidth(sWordToPrint) + CDbl(0.75))
Case "B" ' Between marge left and marge right
Printer.CurrentX = (dMargeDroite + dMarge - Printer.TextWidth(sWordToPrint)) / 2
End Select
Justify = sWordToPrint
End Function
Pas d'excitation prolongée sans avis médical -
merci de ta réponse mais je ne parle pas d'un cadrage dans la feuille mais d'une donnée dans une zone d'impression a l'imprimante.
exemple pour imprimer 1.20 cadrer a droite
si je fais format(xxx:"####0.00") ca cadre a gauche .
merci
