trying to center text with printer object

i don't know this seem's correct to me
but it doesn't print anything...blank page
the printer has arial font

am i missing something here?

Printer.ScaleMode = vbCharacters
Printer.Font = "Arial"
Printer.FontSize = 12
Printer.CurrentX = (Printer.Width - Printer.TextWidth("Header")) / 2
Printer.Print "Header"
Printer.Print
Printer.CurrentX = (Printer.Width - Printer.TextWidth("Information")) / 2
Printer.Print "Information"
printer.EndDoc

You just have the logic mixed up. Try this:

Printer.ScaleMode = vbCharacters
Printer.CurrentX = (Printer.ScaleWidth / 2) - (Printer.TextWidth("Header") / 2)
Printer.Print "Header"
Printer.EndDoc

thank you megatron,

you are right, that is the problem.