ACIONAR O CUTTER NA PORTA USB

EMANUEL 09/03/2010 17:30:51
#336466
Pessoal,
No exemplo abaixo, o codigo funciona perfeitamente utilizando a porta LPT1.
Sendo que peguei uma impressora que e USB.

entao como utilizar o comando abaixo para utilizar a USB?

Open [Ô]LPT1[Ô] For Output As #1

a porta que foi criada na instalacao da impressora foi ESDPRT001
mas mesmo eu colocando assim..
Open [Ô]ESDPRT001[Ô] For Output As #1
nao funciona...

desde ja agrade[ô]co
Emanuel

Private Sub subExemplo1()

1 Dim x As Integer

2 Open [Ô]LPT1[Ô] For Output As #1

3 Print #1, Chr$(&H1B); [Ô]@[Ô]; [ô]Inicializa a impressora
4 Print #1, Chr$(&H1B); [Ô]a[Ô]; Chr$(1); [ô]Centraliza a impressão
5 Print #1, Chr$(&H1B); [Ô]![Ô]; Chr$(0); [ô]Fonte 9x9
6 Print #1, Chr$(&H1B); [Ô]J[Ô]; Chr$(4); [ô]Ajusta o Espaçamento
7 Print #1, [Ô]19 de Janeiro de 2009 15:00[Ô];
8 Print #1, Chr$(&H1B); [Ô]d[Ô]; Chr$(3);
9 Print #1, Chr$(&H1B); [Ô]a[Ô]; Chr$(0); [ô]Impressão a esquerda
10 Print #1, Chr$(&H1B); [Ô]![Ô]; Chr$(1); [ô]Fonte 7x9
11 Print #1, [Ô]VIDEO-GAME R$200,00[Ô]; Chr$(&HA);
12 Print #1, [Ô]JOGOS R$21,00[Ô]; Chr$(&HA);
13 Print #1, [Ô]CONTROLE R$17.00[Ô]; Chr$(&HA);
14 Print #1, Chr$(&HA);
15 Print #1, Chr$(&H1B); [Ô]![Ô]; Chr$(17); [ô]Seleciona o modo dobrar altura
16 Print #1, Chr$(&H1B); [Ô]U[Ô]; Chr$(1); [ô]Seleciona impressão unidirecional
17 Print #1, [Ô]TOTAL R$238,00[Ô]; Chr$(&HA);
18 Print #1, Chr$(&H1B); [Ô]U[Ô]; Chr$(0); [ô]Cancela impressão unidirecional
19 Print #1, Chr$(&H1B); [Ô]![Ô]; Chr$(0); [ô]Cancela modo dobrar altura
20 Print #1, [Ô]------------------------------[Ô]; Chr$(&HA);
21 Print #1, [Ô]PAGO R$250,00[Ô]; Chr$(&HA);
22 Print #1, [Ô]TROCO R$12,00[Ô]; Chr$(&HA);
23 Print #1, Chr$(&H1D); [Ô]V[Ô]; Chr$(66); Chr$(0); [ô]Avança o papel e ativa o cutter

24 Close #1

End Sub
RICATOM 09/03/2010 17:56:06
#336470 Resposta escolhida
Da uma pesquisada aqui no forum mesmo que tem varios topicos sobre isso.
Tópico encerrado , respostas não são mais permitidas
Voltar