ETIQUETAS - VBWEB


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: ETIQUETAS

João Paulo

ARCOS
MG - BRASIL

Postada em 21/02/2006 12:46 hs

Estou usando o seguinte para fazer a impressão desta Etiqueta.

Dim ConfigBatidas as integer

ConfigBatidas = 1440 / 6 "Seis linha por Polegada

Set configImp = db.OpenRecordset("SELECT * FROM tabConfigImpressao")

Printer.CurrentY = configImp.Fields("codigoLinha") * ConfigBatidas
Printer.CurrentX = configImp.Fields("codigoColuna") * ConfigBatidas

Printer.Print txtCodigo_Etiqueta.Text

Printer.EndDoc

OBS.:Printer.CurrentX = configImp.Fields("codigoColuna") * ConfigBatidas

Esta rotina tem que imprimir os caracteres em colunas, e não usando os mesma tamanho das Linha porque as Coluna são menores que a linhas.

Alguém sabe como faço isso?

João Paulo

ARCOS
MG - BRASIL

Postada em 23/02/2006 09:54 hs

Estou usando o seguinte código para fazer a impressão da etiqueta.

Dim ConfigBatidas as integer

ConfigBatidas = 1440 / 6 "Seis linha por Polegada

Set configImp = db.OpenRecordset("SELECT * FROM tabConfigImpressao")

Printer.CurrentY = configImp.Fields("codigoLinha") * ConfigBatidas
Printer.CurrentX = configImp.Fields("codigoColuna") * ConfigBatidas

Printer.Print txtCodigo_Etiqueta.Text

Printer.EndDoc

OBS.: o Problema é que tenho que dar um salto de 24 linhas e imprimir novamente e assim por diante. Só que se eu mandar imprimir uma vez só. o carrinho da impressora não no lugar certo. Alguém sabe como resolver isso?

kerplunk

SÃO PAULO
SP - BRASIL

Postada em 23/02/2006 13:11 hs

Cara tá meio confuso, explica com mais calma pra gente entender bem e poder te ajudar.

Página(s): 1/1

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

VOLTAR