Question 58

Comment aligner un texte à droite et/ou en bas d'une page à imprimer ?

Comme toujours quand il s'agit d'impression, il faut le faire "à la main", avec du code, car il n'existe pas de fonction toute faite le permettant.
L'idée est de se servir de la fonction "TextWidth" de l'objet "Printer", qui permet de déterminer la largeur d'une chaîne de caractères en fonction de la police choisie. Avant d'utiliser cette fonction, il faut donc évidemment déterminer la taille et le type de la police qui sera utilisée, sinon la valeur renvoyée ne sera pas exacte.

Dim sTexte as String
sTexte = "Ceci est un texte aligné en bas et à droite"
Printer.ScaleMode = vbCentimeters
Printer.FontSize = 14
Printer.FontName = "Times New Roman"
Printer.CurrentX = Printer.Width - Printer.TextWidth (sTexte)
Printer.CurrentY = Printer.Height - Printer.TextHeight (sTexte)
Printer.Print sTexte
Printer.EndDoc