Imprimir em Impressora não Fiscal Elgin WIND pelo Clipper5.2

[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

[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