Cadrage donnee en visual basic
Fermé
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
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual petanque - Télécharger - Sport
- Microsoft visual c++ runtime - Guide
2 réponses
mpb_fp
Messages postés
15
Date d'inscription
jeudi 8 mars 2001
Statut
Membre
Dernière intervention
30 octobre 2003
1
29 oct. 2003 à 23:59
29 oct. 2003 à 23:59
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
