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.
A voir également:
- Cadrage donnee en visual basic
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
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
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
