My mistake

Here's the correct code:

Code:
Dim strT As String

strT="Some String"

Printer.CurrentX = (Printer.ScaleWidth - Printer.TextWidth(strT)) / 2
Printer.Print strT
Printer.EndDoc