Har försökt att högerjustera en textbox vid utskrift, får ej till det. Går det?
Ex:
Printer.Print Tab(13); txtKr(0).Text
Det är summa som skrivs in, det ser inte bra ut med vänsterställd.
2
20
Det här ser bättre ut:
2
20
Eller ska jag använda någon annan metod för att skriva ut?

Select Case Len(txtKr(0).Text)
Case Is = 1
Printer.Print Tab(15);LTrim$(txtKr(0).Text)
Case Is = 2
Printer.Print Tab(14);LTrim$(txtKr(0).Text)
Case Is = 3
Printer.Print Tab(13);LTrim$(txtKr(0).Text)
End Select
osv. om det förkommer fler siffror.
Du får ju justera Case Is = om du har tex :- kr i samma TextBox

Exempel 1, vilket i detta fallet begränsar värdet till 8 tecken:
<code>
Printer.Print Tab(13); Right$(Space$(8) & txtKr(0).Text, 8)
</code>

Exempel 2, anger du position och storlek:
<code>


Sub PrintRightAlign(Text as String, X As Single, Y As Single, Width As Single)
Printer.CurrentY = Y
Printer.CurrentX = X + Width - Printer.TextWidth(Text)
Printer.Print Text
End Sub

PrintRightAlign txtKr(0).Text, Printer.CurrentX, Printer.CurrentY, Printer.ScaleX(1, vbCentimeters)


</code>

Tycker att Tab() är bättre för den tar hänsyn till det bredaste tecknet som
finns i Fonten.Space är inte allas bra , kolla Space + 1 resp Space + 8
det blir inte rätt vänster justerat.

Tack för svaren.båda två
Använde SvenPon ex: För mig var det jag sökte :-)
SJ

Obs Justera också med LTrim$()

Select Case Len(txtKr(0).Text)
Case Is = 1
Printer.Print Tab(15);LTrim$(txtKr(0).Text)
Case Is = 2
Printer.Print Tab(14);LTrim$(txtKr(0).Text)
Case Is = 3
Printer.Print Tab(13);LTrim$(txtKr(0).Text)
End Select