Printer.ScaleMode = VBCharacters
Printer.Print Tab(X) "Seu texto" ' X = caracteres a esquerda do inicio de impressão
ou pode pegar a medida da folha
Printer.CurrentX = ((55 * 567) / 10) / 2
'55 mm x 567 twips / 10 mm
'Sendo que 567 twips contem em 1 cm