none
Impressora USB RRS feed

  • Pergunta

  • Ola pessoal
    Estou com um problemão, preciso imprimir etiquetas em uma impressora especifica de etiquetas, consegui fazer na porta lpt1 da impressora, porem agora preciso fazer na porta USB.


    Estou usando Visual Basic, mas pode me passar em c# que consiguo interpretar


    Alguem pode me ajudar??

    estou usando o seguinte codigo
        Dim FSO As New Scripting.FileSystemObject 
          
        Open App.Path & "\relatorios\etiqueta004.epl" For Output As #1 
        
        Print #1, "N" 
        Print #1, "D7" 
        Print #1, "S2" 
        Print #1, "R0,0" 
        Print #1, "A700,140,2,5,1,1,N,""" & sLoc & """" 
        Print #1, "A450,140,2,5,1,1,N,""" & sProduto & """" 
        Print #1, "A700,80,2,4,1,1,N,""" & Mid(sDescricao, 1, 30) & """" 
        Print #1, "A700,50,2,4,1,1,N,""" & Mid(sDescricao, 31, 30) & """" 
        Print #1, "B700,20,2,3,2,6,50,N,""" & sProduto & """" & vbCrLf 
        
        Print #1, "P" & Format(iQtde, "0000"
        Close #1 
        
        'Envia Dados Para Impressora 
        pnl.Painel "Enviando 'etiqueta004' para Impressora...", msgDefault 
        DoEvents 
      
        'Dá erro aqui 
        FSO.CopyFile App.Path & "\relatorios\etiqueta004.epl", Printer.Port, True 
        DoEvents 


    E
    quinta-feira, 19 de fevereiro de 2009 18:35

Todas as Respostas

  • Oi Eberson


    Creio que ele está reclamando que você não fez a referência correta do arquivo para a porta LPT1.



    Se modificar este item e mesmo não assim não resolver o seu problema poste novamente e eu verei no que poderei ajudar você.
    Juliana Prado Uchôa
    terça-feira, 10 de março de 2009 05:02