Área e ponto de impressão com Objeto Printer

[overload 0]

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...

[overload 0]

E aproveitando, se alguem souber como eu imprimo um quadrado estilo textbox, com fill preto tbm.... usando o objeto printer...Obrigado!