impressao direta via lpt1

[ODIR 0]

nao sei se expressei bem no titulo

 

mas oque esta acontecendo que estou fazendo um programa onde a impressao é direta na porta lpt1 sem o objeto printer

 

mas gostaria de saber como faco para as colunas serem padrao e nao variar o tamanho dos campos

 

por exemplo

Open "LPT1" For Output As #N
Print #N,
Print #N, "ORÇAMENTO:	" & txtcodigo.Text & "	 VENDEDOR:   " & txtcomprador.Text & "				   EMISSAO:  " & txtdata.Text
Close #N

dai ele imprime da seguinte maneira

 

ORCAMENTO: 1 VENDEDOR: ODIR MELO EMISSAO: 12/02/2008

 

porem se algum campo for menor ele puxa para traz o proximo eX:

 

ORCAMENTO: 1 VENDEDOR: ODIR EMISSAO: 12/02/2008

 

gostaria de saber se tem como nao acontecer isso e ele continuar a imprimir no mesmo tamanho, desta forma ficaria

 

ORCAMENTO: 1 VENDEDOR: ODIR EMISSAO: 12/02/2008

 

 

valeu galera

[Graymalkin 0]

Sim, defina o tamanho e preencha com espaços. Exemplo:

 

comprador = Space(20)
LSet comprador = txtcomprador.Text

N = FreeFile()
Open "LPT1" For Output As #N
Print #N,
Print #N, "ORÇAMENTO:	" & txtcodigo.Text & "	 VENDEDOR:   " & comprador & "				   EMISSAO:  " & txtdata.Text
Close #N

O importante ali são as duas primeiras linhas, onde se define o tamanho de comprador (20 espaços) e onde se preenche o texto à esquerda (sem afetar os espaços à direita).

 

Certo? ;)

 

Graymalkin

[ODIR 0]

valeu cara

 

 

so mais uma pergunta como faco para imprimir negrito neste modo