Galera to precisando novamente da ajuda de vcs.

 

Estou mandando imprimir com o objeto printer em uma impressora LX300

Só que toda vez que mando imprimir uma Etiqueta a impressora puxa mais papel sozinha.

Alguém sabe como configurar isso pra não acontecer?

Pois meu cliente tem que ficar voltada as etiquetas toda hora que ele imprimi.

Bom dia.

 

João Paulo,

 

Poste seu código que trata da impressão aqui, para que possa ser analisado.

 

 

JSFF

Vou postar depois do almoço pois estou no meu trabalho. blz

 

Segui meu código.

 

Printer.Print textoA1.Text
Printer.Print textoA2.Text
Printer.Print "                      " & UCase(textoA3.Text)
Printer.Print ""
Printer.Print "    " & textoA4.Text
Printer.Print ""
Printer.Print textoA5.Text
Printer.Print "        " & textoA6.Text
Printer.Print ""
Printer.Print ""
Printer.Print ""
Printer.Print ""

 

Agora preciso passar o passo da impressora para 8º de polegada como faço isso?

Galera esse é o novo código que acho q pode ser passado para 8º de polegada.

 

Printer.Font = 7

Printer.ScaleMode = 4

If opt1.Value = True Then

Printer.CurrentX = 0 'coluna
Printer.CurrentY = 1 'linha
Printer.Print texto1.Text

Printer.CurrentX = 0 'coluna
Printer.CurrentY = 2 'linha
Printer.Print texto2.Text

Printer.CurrentX = 0 'coluna
Printer.CurrentY = 3 'linha
Printer.Print "                      " & UCase(texto3.Text)

Printer.Print ""

Printer.CurrentX = 0 'coluna
Printer.CurrentY = 4 'linha
Printer.Print "    " & texto4.Text

Printer.Print ""

Printer.CurrentX = 0 'coluna
Printer.CurrentY = 5 'linha
Printer.Print texto5.Text

Printer.CurrentX = 0 'coluna
Printer.CurrentY = 6 'linha
Printer.Print "        " & texto6.Text

Printer.Print ""
Printer.Print ""
Printer.Print ""
Printer.Print ""

Boa tarde, João.

 

Bom, você deve encerrar a impressão com

 

Printer.EndDoc

 

para evitar os saltos do formulário na impressora.

 

Faça os testes usando esse código.

 

 

JSFF