Imprimindo Data/Hora na Impressora não fiscal - Daruma

Question

Bom dia,

 

Nas impressoras Não-fiscais Daruma temos como imprimir data/hora do sistema operacional para sair no cupom não fiscal da impressora, que pode ser muito util por exemplo para Estacionamento que usando o metodo Daruma_Dual_ImpirmirTexto podemos passar as Tags de impressão e usando as tags <dt></dt> pode ser impresso a data e para imprimir hora passamos a tag <hr></hr> no qual temos até uma String completa para imprimir um cupom de exemplo para estacionamento:

 

Int_Retorno = Daruma_DUAL_ImprimirTexto("<e><ce><s>ESTACIONAMENTO LAC_PARK<s></ce></e>", 0)

'IMPRIMINDO A PRIMEIRA LINHA

Int_Retorno = Daruma_DUAL_ImprimirTexto("<n>Endereço:</n><c> A Dr. Teobaldo Freitas Silva Ribas - Nº1912</c>", 0)

'IMPRIMINDO A SEGUNDA LINHA

Int_Retorno = Daruma_DUAL_ImprimirTexto("<c>Santo André - São Paulo - SP - Brasil</c><l></l>", 0)

'IMPRIMINDO A TERCEIRA LINHA

Int_Retorno = Daruma_DUAL_ImprimirTexto("<n>TICKET NÚMERO:<tb> 0005423</n><l></l>", 0)

'IMPRIMINDO A QUARTA LINHA

Int_Retorno = Daruma_DUAL_ImprimirTexto("<tb><b>Entrada:<tb><dt></dt><tb><hr></hr></b>", 0)

'IMPRIMINDO A QUINTA LINHA

Int_Retorno = Daruma_DUAL_ImprimirTexto("<tc>_</tc><l></l>", 0)

'IMPRIMINDO A SEXTA LINHA

Int_Retorno = Daruma_DUAL_ImprimirTexto("<tb><i>MARCA: Fiat<tb><tb>MODELO: Stilo</i><l></l>", 0)

'IMPRIMINDO A SETIMA LINHA

Int_Retorno = Daruma_DUAL_ImprimirTexto("<tb><i>PLACA: ANA-1069<tb>COR: Vermelho</i><l></l>", 0)

'IMPRIMINDO A OITAVA LINHA

Int_Retorno = Daruma_DUAL_ImprimirTexto("<tc>_</tc><l></l>", 0)

'IMPRIMINDO A DECIMA LINHA

Int_Retorno = Daruma_DUAL_ImprimirTexto("<ad><n>R$ 2,00 à Hora</n></ad>", 0)

'IMPRIMINDO A DECIMA PRIMEIRA LINHA

Int_Retorno = Daruma_DUAL_ImprimirTexto("<ad><n>R$ 0,50 à Cada 15 Minutos</n></ad>", 0)

'IMPRIMINDO A DECIMA SEGUNDA LINHA

Int_Retorno = Daruma_DUAL_ImprimirTexto("<tb><c><s><b>Não nos Responsabilizamos Por Objetos de Valor</b></s></c>", 0)

'IMPRIMINDO A DECIMA TERCEIRA LINHA

Int_Retorno = Daruma_DUAL_ImprimirTexto("<tb><c><s><b>Deixados no Interior do Veículo</b></s></c><l></l>", 0)

'IMPRIMINDO A DECIMA QUARTA LINHA

Int_Retorno = Daruma_DUAL_ImprimirTexto("<ce><e><b>OBRIGADO</b></e></ce>", 0)

'IMPRIMINDO A DECIMA QUINTA LINHA

Int_Retorno = Daruma_DUAL_ImprimirTexto("<sl></sl><sl></sl><sl></sl><sl></sl><sl></sl><sl></sl>", 0)

If Int_Retorno = 1 Then

MsgBox "Impressao Concluida!", vbInformation, "Daruma Framework"

Else

MsgBox "Erro!", vbCritical, "Daruma Framework"

End If

que esta disponivel no exemplo  do nosso help.

 

Qualquer duvida segue os canais de contato:

 

SUPORTE AO DESENVOLVEDOR DARUMA

LUIZ CARLOS CANGUINI

LIGAÇÃO GRATUITA : 0800 770 332 0

e-mail's:[e-mail]

desenvolvedores_daruma

Site:www.desenvolvedoresdaruma.com.br