MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Imprimir relatório VBA para a porta USB

    avatar
    Naldo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 384
    Registrado : 16/02/2011

    [Resolvido]Imprimir relatório VBA para a porta USB Empty Imprimir relatório VBA para a porta USB

    Mensagem  Naldo 2/10/2012, 14:56

    Saudações a todos.

    Recorro novamente aos amigos do Fórum para resolver mais uma questão que é a seguinte.
    Tenho um relatório em VBA (Cupom não Fiscal) que imprime direto para porta LPT1 com este código a seguir
    LPT1:
    Open "LPT1:" For Output Access Write As #1

    Agora tenho que usar uma impressora térmica Bematech com conexão USB.
    Como devo proceder para imprimir este relatório (Cupom não Fiscal) na porta USB.

    Sou grato pela atenção.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5077
    Registrado : 20/04/2011

    [Resolvido]Imprimir relatório VBA para a porta USB Empty Re: [Resolvido]Imprimir relatório VBA para a porta USB

    Mensagem  Silvio 4/10/2012, 14:41

    Olá Naldo.

    Pesquisando aqui no fóruum...
    encontrei esse código que lhe fora passado nesse Link!
    Private Sub Comando270_Click()

    Dim PortImp As String
    PortImp = "\\nomedocomputador\nomedaimpressora"

    Open PortImp For Output As #1

    Print #1, "impressão teste"
    Print #1, ""
    Print #1, "ESSA LINHA É UM TESTE "
    Print #1, ""
    Print #1, "Fim do teste!"
    Close #1

    End Sub


    Esse código não lhe ajudou ?


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Naldo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 384
    Registrado : 16/02/2011

    [Resolvido]Imprimir relatório VBA para a porta USB Empty Re: [Resolvido]Imprimir relatório VBA para a porta USB

    Mensagem  Naldo 4/10/2012, 17:37

    Que marcação minha, olha que revirei por aqui e não enxerguei, faltou atenção desculpe me.

    Silvio sou grato pela ajuda, que DEUS ilumine sua mente
    Grande abraço
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5077
    Registrado : 20/04/2011

    [Resolvido]Imprimir relatório VBA para a porta USB Empty Re: [Resolvido]Imprimir relatório VBA para a porta USB

    Mensagem  Silvio 4/10/2012, 17:52

    Valeu, o fórum agradece o teu retorno.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    Conteúdo patrocinado


    [Resolvido]Imprimir relatório VBA para a porta USB Empty Re: [Resolvido]Imprimir relatório VBA para a porta USB

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 3/5/2024, 01:14