bom dia pessoal, estou com um simples problema,

 

meu programa imprime um cupom

 

no fim do mesmo é assim:

Print #1, "Total:          " + Text17.Text

Print #1, "acres:          " + Text18.Text
Print #1, "Valor Pago:     " + Text25.Text

 

e sai assim no papel:

 

Total:         2,00

acres:         9,00

valor total:  11,00

 

gostaria que os valores alinhasem a direita

todos certinhos.

 

obrigados

jngle

 

 

 

print #1, right ("<Seu texto>" & space(<quantidade de espaços q julga necessario>) & <valor q vai usar>)

 

aí eh soh substituir

amigo deu o seguinte erro:

 

compile erro:

argument nor optional

 

escrevir assim:

Print #1, Right("Seu texto" & Space(10) & subTotal.Text)

e fica o nome "Right" selecionado"

 

 

 

 

 

 

 

 

foi mal... esqueci dum detalhe.. Escreve assim:
Print #1, Right("Seu texto" & Space(10) & subTotal.Text, <quantidade de caracteres>)
essa quantidade de caracteres eh numero de caracteres que ele vai pegar pra jogar no arquivo..
vc tb pod usar MID
Mid(<Texto>, <caracter inicial>, <quantidade de carcteres a serem pegos>
por exemplo:
Mid("São Paulo vai perder hj!!!!",1,3) = São

Ajudei?

olha como esta o meu

 

    If MsgBox("Implimir Cupom ?", 1 Or 32 Or 256, "Atenção !!!") = 1 Then
    ' inicio imprimir cupom
    Dim Codigo As String * 6
    Dim Descricao As String * 18
    Dim midia As String * 4
    Dim valor As String * 7
    Open "C:Arquivos de programasSystem Loccupom.txt" For Output As #1
        Titulo = Config.NomeEmp.Text
        Endereco = Config.EndEmp.Text
         Print #1, Titulo
        Print #1, Endereco
        Print #1, "Op.:   " + Text20.Text
        Print #1, "----------------------------------------"
        Print #1, "No. Locacao: " + Text10.Text + "  Hora:" + Text2.Text
        Print #1, "Cliente: " + Text14.Text + "  " + Text15.Text
        Print #1, "Dependente: " + DataCombo1.Text
        Print #1, "Data locacao: " + Text24.Text
        Print #1, "Data Devolucao: " + Text23.Text
        Print #1, "----------------------------------------"
        Print #1, "Codigo     Descricao      Midia   Valor"
        Print #1, "----------------------------------------"
        AdoTempItemLoc.Recordset.MoveMin
        Do Until AdoTempItemLoc.Recordset.EOF
            LSet Codigo = DataGrid1.Columns.Item(1).Text
            LSet Descricao = DataGrid1.Columns.Item(2).Text
            LSet midia = DataGrid1.Columns.Item(4).Text
            LSet valor = DataGrid1.Columns.Item(6).Text
            Print #1, Codigo + "  " + Descricao + "  " + midia + "  " + valor
            AdoTempItemLoc.Recordset.MoveNext
        Loop
        AdoTempItemLoc.Recordset.MoveMin
        Print #1, "----------------------------------------"
        Print #1, Right("Seu texto" & subTotal.Text)

        'Print #1, Right("SubTotal:       " + subTotal.Text)
        'Print #1, Right("Desconto:       " + Text13.Text)
        Print #1, "Acrescimo:      " + Text16.Text
        Print #1, "Total:          " + Text17.Text
        Print #1, "Valor Pago:     " + Text25.Text
        Print #1, " "
        Print #1, " "
        Print #1, " "
        Print #1, " "
        Print #1, " "
        Print #1, " "
        Print #1, "     ---------------------------"
        Print #1, "        Assinatura do Cliente"

 

olha como esta caindo

 

System Loc Ltda
Trav. São Francisco,184
Op.:   JONGLE
----------------------------------------
No. Locacao: 612  Hora:16:12:11
Cliente: 3  AGAPITO BASILIO DE OLIVEIRA
Dependente:
Data locacao: 16/07/05
Data Devolucao: 17/07/05
----------------------------------------
Codigo     Descricao      Midia   Valor
----------------------------------------
4       FORÇA DELTA 5 FOGO  VHS   2,00  
----------------------------------------
SubTotal:       20,00
Desconto:      0,00
Acrescimo:     0,50
Total:            19,00
Valor Pago:     19,00
 
 gostaria que estes numeros acima estejam alinhados, entendeu?

ok.

 

Print #1, "Valor:" & Space(10) &  subTotal.Text

 

tente assim, não esqueça de usar uma fonte tipo DRAFT

mas mesmo assim não vai ficar 100% alinhado