IMPRESSÃO NA ELGIN I9 NÃO FISCAL
Estou precisando fazer impressão na impressora do Tópico. Alguém tem algum exemplo de como enviar comandos como Expandido, Condensado, Negrito e Texto.
Único manual que achei não tá bem explicado então não entendi muito bem como enviar os comandos acima citados
Segue abaixo uma parte do meu código que uso para impressão na Elgin não fiscal
Citação:x_memo = Chr(27) & Chr(116) & Chr(2)
x_memo = x_memo & Chr(27) & Chr(87) & Chr(1) & Trim(RemoveAcento(rsEmpresa!Fantasia)) & Chr(27) & Chr(87) & Chr(0) & vbNewLine
x_memo = x_memo & Chr(27) & Chr(15) & CPad(Trim(rsEmpresa!RazaoSocial), 64, [Ô] [Ô]) & Chr(18) & vbNewLine
x_memo = x_memo & Chr(27) & Chr(15) & CPad(Trim(rsEmpresa!Endereco) & [Ô], N [Ô] & rsEmpresa!Numero, 64, [Ô] [Ô]) & Chr(18) & vbNewLine
x_memo = x_memo & Chr(27) & Chr(15) & CPad([Ô]CNPJ: [Ô] & rsEmpresa!CNPJ & [Ô] IE: [Ô] & rsEmpresa!InscEst, 64, [Ô] [Ô]) & Chr(18) & vbNewLine
x_memo = x_memo & Chr(27) & Chr(15) & CPad([Ô]Fone: [Ô] & rsEmpresa!Fone, 64, [Ô] [Ô]) & Chr(18) & vbNewLine
x_memo = x_memo & String(48, [Ô]-[Ô]) & vbNewLine
x_memo = x_memo & Chr(27) & Chr(15) & CPad([Ô]DANFE NFC-e - Documento Auxiliar da Nota Fiscal de[Ô], 64, [Ô] [Ô]) & vbNewLine
x_memo = x_memo & CPad([Ô]Consumidor Eletronica[Ô], 64, [Ô] [Ô]) & vbNewLine
x_memo = x_memo & CPad([Ô]NFC-e nao permite aproveitamento de credito de ICMS[Ô], 64, [Ô] [Ô]) & Chr(18) & vbNewLine
[ô]x_memo = x_memo & CPad([Ô]de credito de ICMS[Ô], 48, [Ô] [Ô]) & Chr(18) & vbNewLine
x_memo = x_memo & String(48, [Ô]-[Ô]) & vbNewLine
x_memo = x_memo & Chr(27) & Chr(15) & [Ô]Item Cod. Descricao Qtde Un VlrUnit VlrTot[Ô] & Chr(18) & vbNewLine
x_memo = x_memo & String(48, [Ô]-[Ô]) & vbNewLine
[ô]itens
Do While Not rsNotaItens.EOF
[ô]IdNFProd_Item As SeqItem, CodProduto, CodBarras, DescricaoProduto, CodNcm, UN, QtdeMov, ValorUnit, (QtdeMov * ValorUnit) As ValorTotal
[ô][Ô]<c>001 123456776 Bolacha 53.56 C X 5.25 281.19</c><l></l>[Ô]
x_memo = x_memo & Chr(27) & Chr(15) & LPad(rsNotaItens!SeqItem, 3, [Ô]0[Ô]) & [Ô] [Ô] & rsNotaItens!CodProduto & [Ô] [Ô] & RPad(Left(rsNotaItens!DescricaoProduto, 24), 24, [Ô] [Ô]) & [Ô] [Ô] & LPad(rsNotaItens!QtdeMov, 4, [Ô] [Ô]) & [Ô] [Ô] & Left(rsNotaItens!UN, 2) & [Ô] X [Ô] & LPad(Format(rsNotaItens!ValorUnit, [Ô]#0.00[Ô]), 7, [Ô] [Ô]) & [Ô] [Ô] & LPad(Format(rsNotaItens!ValorTotal, [Ô]#0.00[Ô]), 8, [Ô] [Ô]) & Chr(18) & vbNewLine
If rsNotaItens!Desconto > 0 Then
x_memo = x_memo & Chr(27) & Chr(15) & LPad([Ô]>> Desconto R$ >>[Ô], 39, [Ô] [Ô]) & LPad(Format(rsNotaItens!Desconto, [Ô]#0.00[Ô]), 8, [Ô] [Ô]) & Chr(18) & vbNewLine
End If
rsNotaItens.MoveNext
Loop
x_memo = x_memo & String(48, [Ô]-[Ô]) & vbNewLine
Set Printer = Printers(ImpressoraIndice(vPrinter))
TicketFonteRef [Ô]Ticket[Ô], FonteNome, FonteTamanho, FonteNegrito
lReturn = OpenPrinter(Printer.DeviceName, lhPrinter, 0)
With Printer
.Font.Bold = FonteNegrito
.Font.Size = FonteTamanho
.Font.Name = FonteNome
End With
MyDocInfo.pDocName = [Ô]Impressão de DANFCe[Ô]
MyDocInfo.pOutputFile = vbNullString
MyDocInfo.pDatatype = vbNullString
lDoc = StartDocPrinter(lhPrinter, 1, MyDocInfo)
Call StartPagePrinter(lhPrinter)
lReturn = WritePrinter(lhPrinter, ByVal x_memo, Len(x_memo), lpcWritten)
lReturn = EndPagePrinter(lhPrinter)
lReturn = EndDocPrinter(lhPrinter)
lReturn = ClosePrinter(lhPrinter)
Espero ter ajudado.
[Nome] Selecione o modo cortar e corte o papel
[Formato] <A> ASCII GS V m
Hex 1D 56 m
Decimal 29 86 m
<B> ASCII GS V m n
Hex 1D 56 m n
Decimal 29 86 m n
[Intervalo] <A> m = 0, 1, 48, 49
<B> m = 65, 66, 0
n
255
[Descrição] • Execute o corte de papel especificado por m.
m Função
A
0,48
Corta papel.
Manual de Programação i9
61
1,49
B
65,66
Completar com papel até (posição de corte
+ [n x (unidade movimento vertical)] e
corte de papel.
[Nota] • Esta impressora executa corte parcial (um ponto deixado sem cortes).