Área e ponto de impressão com Objeto Printer

Boa Tarde!

Estou tendo problemas para imprimir uma etiqueta de 150x120 mm (hor. e vert. respectivamente).

Eu seto a escala e quando mando imprimir em X = 0 sai quase no meio da etiqueta já...

Queria saber como tratar o tamanho e a area inicial de impressão.

Em centimetros.

O código que estou utilizando segue abaixo..

Obrigado pela força!

===============================================

Printer.PaperSize = vbPRPSUser '-------> Determina o tipo de papel (User Defined)

Printer.ScaleMode = vbCentimeters '----> Muda o tipo de medida para cm

Printer.ScaleWidth = 1 '-----------> Define escala do tamanho do espaço

Printer.ScaleHeight = 1 '----------> Define escala da altura do espaço

Printer.Height = 15.01 * 567 '---------> Determina o tamanho da folha (em Twips)

Printer.Width = 11.09 * 567 '----------> Determina a altura da folha (em Twips)

'Determina as Propriedades da Impressão

'--------------------------------------

Printer.Orientation = vbPRORPortrait '-----> printerime como "retrato"

'Titulo etiqueta '----------------

Printer.FontName = "Arial" '-----------------------> Nome da Fonte

Printer.FontSize = 10 '----------------------------> Tamanho da Fonte

Printer.FontBold = True '--------------------------> Negrito ou Não (Sim)

Printer.ForeColor = vbBlack '----------------------> Cor da Fonte

Printer.ColorMode = vbPRCMMonochrome '-------------> Impressão Monocromatica

'Imprime as informações da etiqueta

'-------------------------------------------------------

Call imp_textoXYWH(UCase("Teste de Titulo"), 2, 3) -> quero imprimir a partir de 2cm da borda esquerda e 3 da margem superior.

Onde:

-------

Public Sub imp_textoXYWH(texto As String, Optional X, Optional Y)

If Not IsMissing(X) Then Printer.CurrentX = X

If Not IsMissing(Y) Then Printer.CurrentY = Y

Printer.Print texto

End Sub

Antes, a escala estava em 15 por 12 respectivamente... e o 0 saia quase no meio da etiqueta e essa parece nao funcionar corretamente tbm...