Printer.ScaleMode = vbCentimeters
Printer.PaperSize = Seu Papel
Printer.Font = "Arial"
Printer.Currenty = 5
Printer.Currentx = 2: Printer.Print "T"
Printer.Currenty = Printer.Currenty + 1
Printer.Currentx = 2: Printer.Print "E"
Printer.Currenty = Printer.Currenty + 1
Printer.Currentx = 2: Printer.Print "S"
Printer.Currenty = Printer.Currenty + 1
Printer.Currentx = 2: Printer.Print "T"
Printer.Currenty = Printer.Currenty + 1
Printer.Currentx = 2: Printer.Print "E"
Printer.EndDoc
Para testar em tela substitua TODOS OS PRINTER po ME e tire o a linha RINTER.ENDOC