Print #1 - VBWEB


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Print #1

Elieser Topassi

SÃO JOSÉ DO RIO PRETO
SP - BRASIL

ENUNCIADA !

Postada em 24/02/2006 10:37 hs

Joao paulo, para vc posicionar a impressao usando a impressora diretamente,

vc vai precisar colocar "espaços" para mover o carro da impressora para onde vc quer..

por exemplo:

f = FreeFile

Open Lpt1 For Output As #f

Print #f, Etiqueta1 Etiqueta2

Print #f

Print #f, Etiqueta3 Etiqueta4

Close #f

Observe que eu coloquei espaços entre as palavras, e deixei uma linha em branco entre elas... isso vai pra impressora exatamente dessa forma...

Se for matricial, vc pode passar caracteres de controle, pra mudar tipo de fonte, negrito ou condensado por exemplo...

Testa ai...

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)

João Paulo
não registrado

ENUNCIADA !

Postada em 24/02/2006 15:31 hs

TUDO BEM ATÉ AI. O PROBLEMA É QUE SE EU MANDAR IMPRIMIR EX:

NOME: CIDADE: NÚMERO

JOÃO PAULO CUNHA AMORIM BAHIA 1500

PAULO BAHIA 1200

ACONTECE ISSO NA IMPRESSORA

SE O NOME FOR GRANDE A IMPRESSORA IMPRIME OS OUTROS CAMPOS PARA FRETE, CASO CONTRÁRIO ELA IMPRIMI PARA TRÁS.

COMO RESOLVO ISSO?

Elieser Topassi

SÃO JOSÉ DO RIO PRETO
SP - BRASIL

ENUNCIADA !

Postada em 24/02/2006 15:44 hs

Que tal vc definir a largura da coluna, tipo:

Nome = 40 caracteres

Cidade = 20 caracteres

Numero = 6 caracteres

Ai vc usa o Len e o Space para fazer todas as colunas ficarem com a mesma largura:

Vou criar um exemplo com 3 variaveis, mas vc pode fazer isso com um recordset dentro de um loop por exemplo... é apenas pra demostrar:

strNome = "João Paulo Cunha Amorim"

strCidade = "Bahia"

strNumero = "1500"

strLinha = strNome & Space(40 - Len(strNome))

strLinha = strLinha & strCidade & Space(20 - Len(strCidade))

strLinha = strLinha & strNumero & Space(6 - Len(strNumero))

f = FreeFile

Open Lpt1 For Output As #f

Print #f, strLinha

Close #f

Testa ai... acho q isso resolve...

João Paulo

ARCOS
MG - BRASIL

Postada em 03/03/2006 20:42 hs

meu caro amigo Elieser estou usando o código que vc me mostrou ai em cima e ta dando tudo certinho.

A única coisa que falta é imprimir um "X" bem no cantinho esquerdo do Formulário e a minha impressora (Epson-LX300) não ta começando a imprimir no canto esquerdo. Como faço para recuar o carro da impressora?

aclentz

CAXIAS DO SUL
RS - BRASIL

Postada em 31/03/2006 18:15 hs

Como faço para definir o tipo de fonte nestes casos??

Fico grato

Antônio Carlos

Caxias do Sul - RS

Página(s): 2/2 « ANTERIOR

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

VOLTAR