IMPRESSORA NA USB

ICEMAN 19/01/2011 11:34:09
#362732
Bom dia.

Tenho uma impressora que é usb e preciso impriir direto nela.

Tentei fazer pelo printer

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

    Print #1, [Ô][Ô]
    Print #1, [Ô]              Chaveiro AMS[Ô]
    Print #1, [Ô][Ô]
    Print #1, [Ô]  Comprovante de prestação de serviços[Ô]
    Print #1, [Ô][Ô]
    Print #1, [Ô]          Telefone: 4399-2788           [Ô]
    
    Print #1, [Ô][Ô]
    Print #1, [Ô] ======================================[Ô]
    Print #1, [Ô]  Qtd  Serviço                 SubTotal[Ô]
    Print #1, [Ô] ======================================[Ô]
    
    close #1


só que não está indo, existe outra forma de usar o printer com a impressora na USB?
MOREIRA 19/01/2011 13:48:25
#362748
pronto... apenas isso..

Open [Ô]\\PDV01\MP-2100T[Ô] For Output As #1

só trocar pelo nome da sua impressora e o nome da máquina..
apenas isso...
comigo funciona 100%
MOREIRA 20/01/2011 00:04:30
#362793
Public Sub Imprimir_Cupom()
On Error GoTo Trataerro
[ô]Inicia o Cabeçalho do Cupom
Open [Ô]\\PDV01\MP-2100T[Ô] For Output As #1
Print #1, Chr$(27) & Chr(15)
Print #1, Spc(0); [Ô] xxxxxxxxxxxxxxx [Ô]
Print #1, Spc(0); [Ô] CNPJ: 00.000.0000-00 I.E:000000000 [Ô]
Print #1, Spc(0); [Ô] Rua Joaquim RxxxxxCeara - xxxxxxxu - Maranhao [Ô]
Print #1, Spc(0); [Ô]-------------------------------------------------------------[Ô]
Print #1, Spc(0); Date; Spc(5); Time; Spc(2); [Ô]Cod. Venda[Ô]; Spc(3); Format(NumCodigo, [Ô]000000[Ô])
Print #1, Spc(0); [Ô]-------------------------------------------------------------[Ô]
Print #1, Spc(0); [Ô] C U P O M [Ô]
Print #1, Spc(0); [Ô]Usuario :[Ô]; Spc(2); User
Print #1, Spc(0); [Ô]Itns|CODIGO | DESCRICAO DO PRODUTO [Ô]
Print #1, Spc(0); [Ô] QTD. R$ VALOR UNIT. TOTAL R$[Ô]
Print #1, Spc(0); [Ô]-------------------------------------------------------------[Ô]

[ô]Selecionar Items do Cupon
Set Rst = New ADODB.Recordset
Sql = [Ô]Select * From Tbl_CupomTemp Where Num_Venda =[ô][Ô] & NumCodigo & [Ô][ô]And Num_Pdv = [ô][Ô] & NumPdv & [Ô][ô][Ô]
Rst.Open Sql, Conexao, 3

Do While Not Rst.EOF

Print #1, Spc(0); Format(Rst!Itens, [Ô]000[Ô]); Spc(1); Format(Rst!Cod_Barra, [Ô]00000000000000[Ô]); Spc(1); Mid(Rst!Descricao_Produto, 1, 30)
Print #1, Spc(9); Format(Rst!Quantidade, [Ô]###,##0.000[Ô]); Spc(3); [Ô]X[Ô]; Spc(3); Format(Format(Rst!Vlr_Unitario, [Ô]###,##0.00[Ô]), [Ô]@@@@@@@@@@@[Ô]); Spc(4); [Ô]=[Ô]; Spc(9); Right(Space(9) & Format(Rst!Vlr_Total, [Ô]###,##0.00[Ô]), 10)

Rst.MoveNext
Loop

Print #1, Spc(0); [Ô]-------------------------------------------------------------[Ô]
Print #1, Spc(5); [Ô]Total a Pagar[Ô]; Tab(38); Spc(10 - Len(LblVlr_Venda.Caption)); LblVlr_Venda.Caption
Print #1, Spc(5); [Ô]Forma de Pagamento:[Ô]; Spc(1); FormaPgto; Tab(38); Spc(10 - Len(LblTotal_Pago.Caption)); LblTotal_Pago.Caption
Print #1, Spc(5); [Ô]Troco [Ô]; Tab(38); Spc(10 - Len(LblVlr_Troco.Caption)); LblVlr_Troco.Caption
Print #1, Tab(0); [Ô]-------------------------------------------------------------[Ô];
Print #1, Tab(10); [Ô] Documento sem valor fiscal.[Ô]
Print #1, Tab(10); [Ô] Obrigado Pela Preferencia[Ô]
Print #1, Spc(4); [Ô] Aqui voce encontra os menores precos da Cidade[Ô]
Print #1, Tab(10); [Ô] Volte Sempre ![Ô]
Print #1, Spc(0); [Ô]-------------------------------------------------------------[Ô]
Print #1, Spc(0); [Ô]Sistemas Comerciais (00) 00000 - 0000 | 0000 - 000 [Ô]
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]
Close #1

Unload Me [ô]Fechar Formulário
Exit Sub
Trataerro:
MsgBox Err.Description, vbCritical, [Ô]Erro no Sistema[Ô]
End Sub


obs: você tem que mudar a configuração da porta usb..
FUTURA 20/01/2011 08:22:22
#362803
ice, seguindo o q o moreira disse, vc manda a impressão para o compartilhamento no windows, e não mais para a porta, então antes é preciso compartilhar a impressora no windows dando um nome para este compartilhamento.
Tópico encerrado , respostas não são mais permitidas
Voltar