SOBRE CONTROLE MSCOMM

JOAOBENEVIDES 10/12/2010 14:33:55
#359296
Ola Pessoal estou usando o controle mscomm para controlar impressora via com1 estou usando o camando
With Principal.Serial
.CommPort = 4 [ô]Direciona a impressora para a porta COM2
.Settings = [Ô]19200,n,8,1[Ô] [ô]Configura a porta serial
.Handshaking = comNone [ô]Controla o Fluxo de Dados
.PortOpen = True [ô]Ativa a porta serial

.Output = Formata(NomeEscola, 40, [Ô] [Ô], eCentro) & Chr$(13)
.Output = Formata(Enderecoescola & [Ô] - CENTRO[Ô], 40, [Ô] [Ô], eCentro) & Chr$(13)
.Output = Formata(Cidade & [Ô]-[Ô] & Cidade, 40, [Ô] [Ô], eCentro) & Chr$(13)
.Output = Formata([Ô]CNPJ:[Ô] & CNPJ, 40, [Ô] [Ô], eCentro) & Chr$(13)
.Output = Formata([Ô]-[Ô], 40, [Ô]-[Ô], eDireita) & Chr$(13)
.Output = Formata(Now2(eNowDataHoraMin), [Ô]20[Ô], [Ô] [Ô], eDireita) & Formata([Ô]- CDOO:[Ô] & NumeroDoc, 20, [Ô] [Ô], eEsquerda) & Chr$(13)

.Output = Formata([Ô]COMPROVANTE DE PAGAMENTO[Ô], 40, [Ô] [Ô], eCentro) & Chr$(13)
.Output = Formata([Ô]ITEM CÓDIGO DESCRIÇÃO VL.ITEM[Ô], 40, [Ô] [Ô], eDireita) & Chr$(13)
.Output = Formata([Ô]QTD. BOLETO[Ô], 40, [Ô] [Ô], eDireita) & Chr$(13)

.Output = Formata([Ô]-[Ô], 40, [Ô]-[Ô], eEsquerda) & Chr$(13)
.Output = Formata([Ô]01[Ô], 5, [Ô] [Ô], eDireita) & Formata(NumeroDoc, [Ô]6[Ô], [Ô] [Ô], eDireita) & Formata([Ô]Pag. Parc. nº[Ô], [Ô]14[Ô], [Ô] [Ô], eDireita) & Formata(NumeroParcelas, [Ô]3[Ô], [Ô]0[Ô], eEsquerda) & Formata([Ô]aluno:[Ô], [Ô]7[Ô], [Ô] [Ô], eEsquerda) & Chr$(13)
.Output = Formata([Ô][Ô], 25, [Ô] [Ô], eEsquerda) & Formata([Ô]-[Ô], [Ô]15[Ô], [Ô]-[Ô], eEsquerda) & Chr$(13)
.Output = Formata([Ô]SUBTOTAL R$[Ô], 11, [Ô] [Ô], eDireita) & Formata(valortotal, 29, [Ô] [Ô], eEsquerda) & Chr$(13)
.Output = Formata([Ô]Desconto pgto em dia[Ô], 21, [Ô] [Ô], eDireita) & Formata(ValorDesconto, 19, [Ô] [Ô], eEsquerda) & Chr$(13)
.Output = Formata([Ô]TOTAL R$[Ô], 11, [Ô] [Ô], eDireita) & Formata(CCur(valortotal - ValorDesconto), 29, [Ô] [Ô], eEsquerda) & Chr$(13)
.Output = Formata([Ô]Dinheiro R$ (forma pag)[Ô], 11, [Ô] [Ô], eDireita) & Formata([Ô]129,90[Ô], 29, [Ô] [Ô], eEsquerda) & Chr$(13)
.Output = Formata([Ô]VALOR RECEBIDO R$[Ô], 21, [Ô] [Ô], eDireita) & Formata([Ô]129,90[Ô], 19, [Ô] [Ô], eEsquerda) & Chr$(13)
.Output = Formata([Ô]Troco R$[Ô], 11, [Ô] [Ô], eDireita) & Formata(CCur(valortotal - ValorDesconto) - valortotal, 29, [Ô] [Ô], eEsquerda) & Chr$(13)

.Output = Formata([Ô]-[Ô], 45, [Ô]-[Ô], eDireita) & Chr$(13)
.Output = Formata([Ô]Atendente: [Ô] & Usuario.Codigo & [Ô]-[Ô] & Usuario.Login, 40, [Ô] [Ô], eDireita) & Chr$(13)
.Output = Formata([Ô] Versão: [Ô] & App.Major & [Ô].[Ô] & App.Minor & [Ô].[Ô] & App.Revision & [Ô] [Ô], 40, [Ô] [Ô], eDireita) & Chr$(13)
.Output = [Ô] [Ô] & Chr$(13) [ô]Define a Quantidade de cópias da
.Output = [Ô] [Ô] & Chr$(13)

Do Until .OutBufferCount = 0
Loop
.PortOpen = False
End With

gostaria de poder colocar acentuação pois esta saindo sem acentuacao

Obrigado

Joao
JOAOBENEVIDES 04/01/2011 08:53:52
#361032
esta impressora e comprada no mercado livre um cliente meu comprou ela e agora estou com este pepino na mao
LLAIA 04/01/2011 11:31:44
#361045 Resposta escolhida
não tem como baixar o manual no site do fabricante ou pedir ao fabricante por e-mail ou telefone o manual?
JOAOBENEVIDES 04/01/2011 11:36:46
#361047
cara é dificil pois a impressora nao tem documentacao
INFOSISTEMAS 04/01/2011 13:31:37
#361058
cara qual a marca da impressora ? e vc pode imprimir direto na porta sem precisar do controle mscom !! me passa a marca que posso te ajudar !!
JOAOBENEVIDES 04/01/2011 13:55:57
#361062
Menno-IT56050 marca impressora
Tópico encerrado , respostas não são mais permitidas
Voltar