[Resolvido]Imprimir direto para a porta USB

BOM DIA

Gostaria da ajuda de vocês, tenho um relatório (Cupom não fiscal) que envio para a impressora LX 300+II pela porta USB, funciona muito bem com exceção do avanço e retrocesso do papel, gostaria de melhorar o mesmo.
Teria que avançar algumas linhas e retroceder via(VBA) botão; Dois botões um para cada evento pela porta USB.

Alguém poderia me dar uma luz.


Sou grato pela atenção.

Naldo,

Para avançar o papel, vc. deve inserir linhas em branco:
Print #1, ""

ou esses, que especifica a altura da linha
Print #1, Chr(27) + "0"
Print #1, Chr(27) + "1"
Print #1, Chr(27) + "2"


Para retroceder não tenho conhecimento (nunca precisei deste comando)

Jr. Wano

Já tentei com este comando, mas da erro em tempo de execução, acredito ser por causa da porta LPT1, pois a porta da impressora em uso é USB da LX 300.

Post o código que está usando para imprimir, assim fica mais facil de entender.

Aqui usamos tambem pela USB e funciona normal

Jr. Wano

Fiz o botão via assistente do Access, configurei nas propriedades da página, mas o problema é que não consigo pelo menos retroceder o papel via código para posicionar o papel em uma posição pré-estabelecida para iniciar uma nova impressão.

Já postei uma duvida parecida há pouco tempo atrás, com a ajuda do Fórum(em especial Criquio, Vieirasoft, Pablo e sua também Jr. Wano) deu tudo certo mas a porta era LPT1, e agora necessito para a porta USB.
Sou grato pela atenção

Naldo,

Vi o post passado, então vamos continuar de onde paramos:

O que eu disse anteriormente:
"...Para resolver o problema do posicionamento do papel com o uso de Formulário Contínuo, só fazendo o relatório no VBA..."

Caso tenha feito em VBA, post o código que utilizou.

Se continua como antes (relatório no design do Access), eu não conheço nenhuma forma que lhe atenda, então esperemos que algum colega do fórum possa lhe dar alguma solução.

Jr. Wano

Relatório no design do Access já resolvido, na porta LPT1 avança o cupom não fiscal certinho com as dicas que vc me deu, o caso seria somente que funcionase o comando - Print #1, Chr(27) + "5" na USB.

Abaixo os camando do botão

On Error GoTo Err_Comando74_Click

Dim stDocName As String

stDocName = "RltCupon_NaoFiscal"
DoCmd.OpenReport stDocName, acNormal
Exit_Comando74_Click:
Exit Sub

Err_Comando74_Click:
MsgBox Err.Description
Resume Exit_Comando74_Click
Form.Refresh

End Sub

No relatório modo design vc. só tem a opção de configurar a pagina
Não me lembro se a LX 300+II aceita papel personalizado, sei que a LX 300 não aceita.

Tente


IMPRESSORA – Configurar para “PAPEL RAZÃO”/ “FORMULÁRIO CONTÍNUO”

>>>>1) Primeiro crie um formulário no Windows:
a) Iniciar/configurações/impressoras: clique num espaço em branco com o botão direito do mouse e selecione "Propriedades do Servidor",
b) Na guia "Formulários" clique em qualquer formulário(de preferência um que tenha medidas próximas do seu alvo).
c) Em seguida clique no box "Criar um novo formulário".
Siga as instruções: use a régua e passe as medidas para a tela.
d) Conclua salvando com um nome:
NomePapel Larg. 22,00 cm. Altura: 14,00 cm

>>>>2) Agora crie o report e mande imprimir usando o form criado
Lembre-se: você deve salvar o report no modo estrutura.

Se quiser testar com o VBA:

IMPRIMIR EM EPSON PORTA USB

1) Compartilhar a impressora na rede

2) mapear a impressora pelo [Executar]

\\nomedocomputador\nomedaimpressora

Código:

Private Sub Comando270_Click()

            Dim PortImp As String
            PortImp = "\\nomedocomputador\nomedaimpressora"

            Open PortImp For Output As #1

               Print #1, "impressão teste"
               Print #1, ""
               Print #1, "ESSA LINHA É UM TESTE "
               Print #1, ""
               Print #1, "Fim do teste!"
            Close #1

         End Sub

Jr. Wano


Ok, deu certinho dentro da formatação que você me explicou menos uma coisa, posicionar o papel retroceder ou avançar algumas linhas via botão de comando.

Como já disse, para avançar o papel só com o relatório em VBA.

Mas essa impressora tem umas chavinhas, ficam do lado ou a traz, não me lembro... Vc. regula a impressora para automaticamente avançar o papel após a impressão e retroceder para a posição inicial quando começa uma nova impressão.

Não ti aconselho a mexer neste tréco se não tiver o manual, mas se mexer faça um desenho antes das posições originais, pois se fizer besteira pode voltar.

Jr. Wano

Sou muito grato por todas as dicas que vc me deu deram certo, o que esta pegando seria somente retroceder o papel apos o corte, do restante está ótimo

Naldo, vou fechar o tópico porque já tempo demais. Qualquer coisa estamos aí.