IMPRIMIR PARA PORTA COM1 NAO FISCAL
Gostaria de saber como faço para imprimir um cupom Não fiscal
pela Porta COM1 no VB6.
para a lpt1 eu uso :
Open [Ô]Lpt1[Ô] For Output As #1
Tenho inclusive o comando para abrir a porta COM1, a dúvida é a sintaxe do
comando print para a porta COM1
Grato,
Open [Ô]\microimpressora[Ô] For Output As #1
pode ser em rede ou local, eu uso assim inclusive para usb..
Dai tu usa assim...
Formulário.MsComm.CommPort = 1 (define o numero da porta para COM 1)
Formulário.MsComm.Settings = [Ô]9600,N,8,1[Ô] (serve pra ti configurar a velocidade, paridade, etc)
Formulário.MsComm.PortOpen = True (abre a porta)
exemplo de impressão: Formulário.MsComm.Output = [Ô]TESTE[Ô] + Chr(13) (imprime TESTE e vai pra próxima linha)
Formulário.MsComm.PortOpen = False (fecha a porta)
Espero ter ajudado!
Abraço
Dependendo da marca (Bematech, SWEDA...) a empresa disponibiliza uma DLL com alguns métodos para impressão.
Citação:SCBSIDNEY escreveu:
Olá !
Gostaria de saber como faço para imprimir um cupom Não fiscal
pela Porta COM1 no VB6.
para a lpt1 eu uso :
Open [Ô]Lpt1[Ô] For Output As #1
Tenho inclusive o comando para abrir a porta COM1, a dúvida é a sintaxe do
comando print para a porta COM1
Grato,
Ola
Desculpe mais não entendi.
Eu quero imprimir para uma Porta Serial (COM1) , ai se eu de esse comando para
impressora é para capturar a Porta da Impressora?? ou A impressora instalada?
Não é impressão peça rede é maqina local.
Esse comando abaixo eu faço a impressão direto para a Paralela -> Open [Ô]Lpt1[Ô] For Output As #1
Valeu e desculpe pela dúvida!!
Citação:ALEMAO escreveu:
Boa tarde amigo! Podes incluir o objeto MsComm no teu projeto...
Dai tu usa assim...
Formulário.MsComm.CommPort = 1 (define o numero da porta para COM 1)
Formulário.MsComm.Settings = [Ô]9600,N,8,1[Ô] (serve pra ti configurar a velocidade, paridade, etc)
Formulário.MsComm.PortOpen = True (abre a porta)
exemplo de impressão: Formulário.MsComm.Output = [Ô]TESTE[Ô] + Chr(13) (imprime TESTE e vai pra próxima linha)
Formulário.MsComm.PortOpen = False (fecha a porta)
Espero ter ajudado!
Abraço
Oi !!
Eu ja uso esse objeto para trabalhar com Porta(serial) para outra finalidade, para impressão não entendi
o comando. Com esse comando ira imprimir para o objeto eu quero para impressora.
Abrir/fecha a Porta ja faço.
A minha duvida é:
Open [Ô]Lpt1[Ô] For Output As #1 [ô]--- No lugar do lpt1 o que entra?
Print #1, [Ô][Ô] [ô]--- Aqui pula uma linha
Print #1, String(39, [Ô]-[Ô]) [ô]-- aqui o carecteres [Ô]-[Ô]
e assim sucessivamente
Valeu e desculpe o rolo !!
O que o FUTURA disse acima funciona muito bem para USB, embora não tenho testado no caso da COM1, creio que deve ter o mesmo resultado.
Consiste em você compartilhar a sua impressora. Caso não a tenha instalado, tente instalar um Driver da Epson Fx-300 por exemplo.
Ai basta mandar como se estivesse enviando pela rede, embora seja no seu proprio computador.
Open [Ô]\\Servidor\Impressora[Ô] For Output As #1
...
Close #1Faça o teste.
Para realizar a impressão em porta Paralela eu utilizo o PRINT, ja na porta Serial eu utilizo o objeto MSComm e funciona perfeitamente... Utilizo estes dois métodos para a impressão de etiquetas com código de barras em impressoras Zebra (que tem modelos com portas Paralelas e Seriais).
Em qual impressora tu quer fazer esta impressão? Se for em Bematech, Daruma, Epson, etc. podes procurar pela Dll como o TECLA ja havia te dito...
Citação:SCBSIDNEY escreveu:
Olá !
Gostaria de saber como faço para imprimir um cupom Não fiscal
pela Porta COM1 no VB6.
para a lpt1 eu uso :
Open [Ô]Lpt1[Ô] For Output As #1
Tenho inclusive o comando para abrir a porta COM1, a dúvida é a sintaxe do
comando print para a porta COM1
Grato,
Valeu mesmo vou testar essas dicas e informo!!!
Citação:TECLA escreveu:
Qual é a marca da impressora?
Dependendo da marca (Bematech, SWEDA...) a empresa disponibiliza uma DLL com alguns métodos para impressão.
Ok.. valeu pelas dicas vou testar essas !! Um abraço ..depois informo