Página 1 de 1
Imprimir em Impressora não Fiscal Elgin WIND pelo Clipper5.2
Enviado: 10 Out 2012 09:18
por cbssolucoes
Olá amigos do forum, tenho um sistema e estou precisando que o mesmo imprima em uma impressora não fiscal elgin WIND mais nao sei pra onde vai, algum colega poderia me ajudar?
o modelo da impressora é esse do link abaixo
https://www.elgin.com.br/portalelgin/Si ... &maincat=0
Conto com a ajuda dos nobres colegas
Junior
Imprimir em Impressora não Fiscal Elgin WIND pelo Clipper5.2
Enviado: 11 Out 2012 19:41
por Jairo Maia
Olá Júnior,
Tente assim:
Código: Selecionar todos
Function Main()
Local cPorta := // defina a porta da impressora: COM1, COM2, Etc... ou LPT1, LPT2 etc...
Local lAbreGaveta := .f. // coloque .t. se tem gaveta eletrônica de dinheiro, aciona abertura
Set Device To Printer
Set printer To ( cPorta )
SetPrc( 0, 0 )
@ PRow()+0, PCol() Say CHR(15) // ativa comprimido (17,5 cpp)
@ PRow()+1, PCol() Say "Fonte comprimida em 17.5 cpp"
@ PRow()+1, PCol() Say CHR(18) // desativa comprimido (17,5 cpp)
@ PRow()+1, PCol() Say CHR(27)+'M'+CHR(15) // ativa comprimido (20 cpp)
@ PRow()+1, PCol() Say "Fonte comprimida em 20 cpp"
@ PRow()+1, PCol() Say CHR(27)+'P' // desativa comprimido (20 cpp)
@ PRow()+1, PCol() Say CHR(27)+'M' // ativa elite
@ PRow()+1, PCol() Say "Fonte Elite"
@ PRow()+1, PCol() Say CHR(27)+'P' // desativa elite
@ PRow()+1, PCol() Say CHR(27)+'E' // ativa enfatizado
@ PRow()+1, PCol() Say "Fonte Enfatizada"
@ PRow()+1, PCol() Say CHR(27)+'F' // desativa enfatizado
@ PRow()+1, PCol() Say CHR(27)+'W'+CHR(1) // ativa expansao
@ PRow()+1, PCol() Say "Fonte Expandida"
@ PRow()+1, PCol() Say CHR(27)+'W'+CHR(0) // desativa expansao
@ PRow()+1, PCol() Say Chr(29)+"V"+Chr(66)+Chr(0) // corte do papel
If lAbreGaveta // abre a agaveta de dinheiro
@ PRow()+1, PCol() Say Chr(27)+Chr(112)+Chr(0)+Chr(60)+Chr(120)
EndIf
Set Printer To
Set Device To Screen
Return Nil