Amigos preciso de ajuda,

preciso imprimir algumas linhas de texto centrando as mesmas da direita

para esquerda:

Ex: printer.print spc(20),"Wellington Anselmo"

faço a impressão apartir da coluna 20 certo?

Obs: Preciso de um exemplo de como fazer a impressão para que todas as linhas

de texto impressas finalize na coluna 40, sempre fazendo a impressão do

texto da coluna 40 para traz, ou seja as linhas serão alinhadas todas pela direita,

tendo como limite a coluna 40.

Att.

Wellington

Estou postando parte do meu código, contendo apenas 2 linhas de impressão, por ainda

estou tentando desenvolver, no exemplo abaixo quero que a palavra "Nome:"  e "Endereço:"

sejam impressas apartir das colunas 5 de cada linha, e na frente o conteudo das variaveis,

TxNome e TxEndereco na frente, mas centralizados no final das linhas:

Ex:

TxNome = "Wellington Anselmo"

TxEndereo = "Av. Goias"

Após a impressão deverá ficar assim...

nome e endereço alinhados pela esquerda , o variaveis pela direita!

 

                                  LISTA DE NOMES

Nome:                                                                      Wellington Anselmo

Endereço:                                                                              Av. Goiás

 

 

Private Sub Command2_Click()
Printer.FontName = "Times New Roman"
Printer.FontSize = 26
Printer.Print ""
Printer.Print Spc(23); "- LISTA DE NOMES -"
Printer.FontSize = 14
Printer.Print Spc(5); String(74, "_")
Printer.Print Spc(5); "Nome: "; TxNome
Printer.Print Spc(5); String(74, "_")
Printer.Print Spc(5); "Endereço: "; TxEndereco
Printer.Print Spc(5); String(74, "_")
Printer.EndDoc
End Sub

Dim Tamanho As Integer

 

Printer.Print Tab(5) "Nome: ";

Tamanho = ( 40 - Len( TxNome ))

Printer.Print Tab((40 -Tamanho))

 

vlu//

 

 

 

 

usando o exemplo do lcramos