Tenho que imprimir etiquetas de preço, só que, não estou conseguindo imprimir na vertical, será que alguem sabe como fazer? Desde já agradeço.

 

Jailson

Caro amigo

 Seria impresso assim:

teste1

teste2

teste3

teste4

 

Se for esta função faz isto:

 

Sub ImprimenaVertical(Frase As String, X As Single, Y As Single)
    Dim V As Variant
    Dim I As Integer
    V = Split(Frase, Space(1))
    Printer.CurrentY = Y
    For I = 0 To UBound(V)
    Printer.CurrentX = X
    Printer.Print V(I)
    Next
End Sub

'exemplo chamando a função:

 

ImprimenaVertical "TESTE TESTE TESTE", 1, 2