Alinhar com o Objeto Printer


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Alinhar com o Objeto Printer

JDBasic

SIMÃO DIAS
SE - BRASIL

ENUNCIADA !

Postada em 25/07/2005 14:55 hs

Olá,
Fiz um relatório e estou imprimindo com o objeto printer, o relatório está com a fonte Arial, o problema é que a impressao das colunas codigo e preco saem desalinhadas, gostaria de alinhá-las  a direita.
Algum de você conhece uma maneira de alinha com o objeto Printer sem utilizar a fonte Courrier New, mas com qualquer fonte?

Ex. de como está saindo:

Codigo              Descricao                        Preco
1231                 PRODUTO TESTE              10,00
111                   PRODUTO TESTE              100,00
121                   PRODUTO TESTE              120,00
151                   PRODUTO TESTE              130,00
165                   PRODUTO TESTE              1000,00

Ex. de como eu quero:

Codigo              Descricao                             Preco
1231                 PRODUTO TESTE                  10,00
  111                 PRODUTO TESTE                100,00
  121                 PRODUTO TESTE                120,00
  151                 PRODUTO TESTE                130,00
  165                 PRODUTO TESTE              1000,00

Obrigado.

Ralph Teixeira

RIO DE JANEIRO
RJ - BRASIL

ENUNCIADA !

Postada em 25/07/2005 17:24 hs

Faala Simão Blz...

No print eu uso assim

Format$(campo, "@@@@@@@@@")

ele alinha certinho

12,00

120,00

pode testar que funciona

T+

Ralph Teixeira

Elieser Topassi

SÃO JOSÉ DO RIO PRETO
SP - BRASIL

ENUNCIADA !

Postada em 26/07/2005 09:15 hs

Amigos,

Eu nao gosto de usar caracteres pra alinha o printer... prefiro passar as medidas...

Vc passa a coordenada onde quer imprimir com CurrentX e CurrentY...

Pra alinha a direita, vc pode fazer assim:

'admitindo q X seja a coluna à direita da palavra onde vc quer alinhar...

Printer.CurrentY = Y 'vc deve ter essa variavel controlando as linhas

Printer.CurrentX = X - Printer.TextWidth("o que vc quer imprimir")

Printer.Print "o que vc quer imprimir"

Testa ai... eh um pouco mais complicado q com caracteres, mas qdo vc se acostuma, as medidas resolvem um monte de problemas...

Ah, antes de iniciar, vc deve escolher a escala de medidas pra usar... eu gosto de usar milimetros... vc deve fazer isso antes de iniciar a impressão:

Printer.ScaleMode = vbMillimeters

Espero ter ajudado...

Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR