Eu precisava de uma função que me retornasse qual a marca da impressora fiscal que está sendo utilizada.
Para poder adaptar o comando certo para cada impressora.
Se alguém tiver esse código, ou puder ajudar, eu agradeceria.
Muito Obrigado
Caio N. Moreno
Versão Completa: Marcaimpressorafiscal
Olá Caio,
Na Bematech existe a função:
Bematech_FI_ModeloImpressora
Veja:
Bematech_FI_ModeloImpressora
Retorna o modelo da impressora fiscal em uso.
Parâmetro:
Modelo: Variável string com 10 posições para receber o modelo da impressora. O retorno da variável será: "MP20FI", "MP40FI", "MP25FI", "MP50FI", "MP2000FI", "MP6000FI", "MP2100FI", "4610-KR4" ou "4679-3B4".
Possíveis retornos da Função (INTEIRO):
0: Erro de comunicação.
1: OK.
-1: Erro de execução (impressora desconhecida).
-4: O arquivo de inicialização BemaFI32.ini não foi encontrado no diretório de sistema do Windows.
-5: Erro ao abrir a porta de comunicação.
-8: Erro ao criar ou gravar no arquivo STATUS.TXT ou RETORNO.TXT.
-27: Status da impressora diferente de 6,0,0 (ACK, ST1 e ST2).
Exemplo:
Ats,
André Munhoz
Na Bematech existe a função:
Bematech_FI_ModeloImpressora
Veja:
Bematech_FI_ModeloImpressora
Retorna o modelo da impressora fiscal em uso.
Parâmetro:
Modelo: Variável string com 10 posições para receber o modelo da impressora. O retorno da variável será: "MP20FI", "MP40FI", "MP25FI", "MP50FI", "MP2000FI", "MP6000FI", "MP2100FI", "4610-KR4" ou "4679-3B4".
Possíveis retornos da Função (INTEIRO):
0: Erro de comunicação.
1: OK.
-1: Erro de execução (impressora desconhecida).
-4: O arquivo de inicialização BemaFI32.ini não foi encontrado no diretório de sistema do Windows.
-5: Erro ao abrir a porta de comunicação.
-8: Erro ao criar ou gravar no arquivo STATUS.TXT ou RETORNO.TXT.
-27: Status da impressora diferente de 6,0,0 (ACK, ST1 e ST2).
Exemplo:
CODE
' Exemplo em Visual Basic
cModeloImp = space(10)
iRetorno = Bematech_FI_ModeloImpressora(cModeloImp)
// Exemplo em Delphi
for iConta := 1 to 10 do cModeloImp := cModeloImp + ' ';
iRetorno := Bematech_FI_ModeloImpressora( cModeloImp );
cModeloImp = space(10)
iRetorno = Bematech_FI_ModeloImpressora(cModeloImp)
// Exemplo em Delphi
for iConta := 1 to 10 do cModeloImp := cModeloImp + ' ';
iRetorno := Bematech_FI_ModeloImpressora( cModeloImp );
Ats,
André Munhoz
QUOTE(Caio Moreno @ 09-Jan-2008, 13:44) 
Eu precisava de uma função que me retornasse qual a marca da impressora fiscal que está sendo utilizada.
Para poder adaptar o comando certo para cada impressora.
Se alguém tiver esse código, ou puder ajudar, eu agradeceria.
Muito Obrigado
Caio N. Moreno
Para poder adaptar o comando certo para cada impressora.
Se alguém tiver esse código, ou puder ajudar, eu agradeceria.
Muito Obrigado
Caio N. Moreno
Esta é uma versão simplificada de nosso conteúdo principal. Para ver a versão completa com maiores informações, formatação e imagens, por favor clique aqui.