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]Impressora Epson TMT20 porta USB

    avatar
    PauloMsp
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Localização : Brasil
    Mensagens : 8
    Registrado : 27/12/2009

    [Resolvido]Impressora Epson TMT20 porta USB Empty [Resolvido]Impressora Epson TMT20 porta USB

    Mensagem  PauloMsp 12/7/2023, 18:13

    boa tarde,

    Meus caros, tenho um velho aplicativo em access 2000 ainda...
    estou trocando um impressora serial porta LPT por uma Epson TM-T20 térmica instalada em cabo USB.
    Windows 7

    alguém poderia me indicar por onde começo para adaptar ?

    como usar o comando para abrir gaveta, imprimir linha ou mesmo imprimir um relatório nessa impressora ?

    grato.

    Atenciosamente,
    Paulo Almeida da Silva
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11011
    Registrado : 04/11/2009

    [Resolvido]Impressora Epson TMT20 porta USB Empty Re: [Resolvido]Impressora Epson TMT20 porta USB

    Mensagem  JPaulo 13/7/2023, 11:17

    Olá

    Eu uso este à anos, com impressora Epson USB.
    No fundo uma impressora ligada por USB, ela fica instalada e tem um nome.

    Eu na altura criei uma tabela com o nome de tblPrinter e um campo de nome PrinterName, neste campo coloquei o nome da impressora Epson que fica instalada no PC e um campo Sim/Não de nome AutoPrint, isto porque pode adicionar todos os nomes das suas impressoras e setar apenas a que quer usar.

    Código:
    Public Function sendPrinter()
    Dim j As Byte, st As Boolean, Padrão As String
    Dim idx As Byte, prt As Printer
    Dim xtrImpressora$
    Dim xtrChecka As Variant

    xtrImpressora = Nz(DLookup("PrinterName", "tblPrinter"), "Null")
    xtrChecka = Nz(DLookup("AutoPrint", "tblPrinter"), "Null")

    If xtrChecka = False Then Exit Function

    If xtrImpressora = "Null" Then
       MsgBox "Nenhuma impressora configurada.", vbCritical, "Error"
       Exit Function
       Else
       xtrImpressora = LTrim(RTrim(xtrImpressora))
    End If

    j = 0: st = False
    Padrão = Application.Printer.DeviceName

    For Each prt In Application.Printers
    Debug.Print prt.DeviceName
    If prt.DeviceName = Padrão Then idx = j
    If prt.DeviceName = xtrImpressora Then 'a impressora desejada
    st = True
    Exit For
    End If
    j = j + 1
    Next

    If st = False Then
    j = idx 'Se a impressora não for encontrada, imprime na impressora atual, se comentar a linha Exit Function
    Exit Function
    End If

    DoCmd.OpenReport "ManifestoCarga", acViewPreview, WindowMode:=acHidden 'Abre as etiquetas de forma oculta, criadas no relatorio
    Set Reports("ManifestoCarga").Printer = Application.Printers(j) 'seta a impressora para as etiquetas
    DoCmd.OpenReport "ManifestoCarga", acViewNormal, , , WindowMode:=acHidden 'Imprime as etiquetas
    DoCmd.Close acReport, "ManifestoCarga"
    End Function


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Impressora Epson TMT20 porta USB Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Impressora Epson TMT20 porta USB Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Impressora Epson TMT20 porta USB Folder_announce_new Instruções SQL como utilizar...
    avatar
    PauloMsp
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Localização : Brasil
    Mensagens : 8
    Registrado : 27/12/2009

    [Resolvido]Impressora Epson TMT20 porta USB Empty Abrir gaveta

    Mensagem  PauloMsp 13/7/2023, 22:25

    Grande JPaulo, e como você faz para usar os comandos de abrir gaveta da impressora ?
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11011
    Registrado : 04/11/2009

    [Resolvido]Impressora Epson TMT20 porta USB Empty Re: [Resolvido]Impressora Epson TMT20 porta USB

    Mensagem  JPaulo 14/7/2023, 16:25

    Não uso comandos para abrir a gaveta.

    Veja se ajuda;
    https://www.maximoaccess.com/t25975-abrir-gaveta-bematech-automatica


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Impressora Epson TMT20 porta USB Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Impressora Epson TMT20 porta USB Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Impressora Epson TMT20 porta USB Folder_announce_new Instruções SQL como utilizar...
    avatar
    PauloMsp
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Localização : Brasil
    Mensagens : 8
    Registrado : 27/12/2009

    [Resolvido]Impressora Epson TMT20 porta USB Empty mudança na estratégia

    Mensagem  PauloMsp 14/7/2023, 20:32

    Mudei a estratégia... estou enviando um relatório em branco...
    sem usar impressão direta...
    configurando a gaveta, ela abre

    a dificuldade agora é outra...

    colocar um filtro no relatório para imprimir somente a página que desejo...

    usando o código que você me mostrou...

    adaptado....

    Public Function ImprimiRelatorio(ByVal NomeRpt As String, ByVal NumeroImpressora As Integer, ByVal Filtro As Variant)
    Dim myFiltro As Variant
    Dim j As Byte, st As Boolean, Padrão As String
    Dim idx As Byte, prt As Printer
    Dim xtrImpressora$
    Dim xtrChecka As Variant
    myFiltro = Filtro
    MsgBox myFiltro

    j = 0: st = False
    'Padrão = Application.Printer.DeviceName
    Padrão = DLookup("impr", "tblimpressora", "[cod]=" & NumeroImpressora & "")
    For Each prt In Application.Printers
    Debug.Print prt.DeviceName
    If prt.DeviceName = Padrão Then idx = j
    'If prt.DeviceName = xtrImpressora Then 'a impressora desejada
    st = True
    Exit For
    'End If
    j = j + 1
    Next

    If st = False Then
    j = idx 'Se a impressora não for encontrada, imprime na impressora atual, se comentar a linha Exit Function
    Exit Function
    End If

    'DoCmd.OpenReport NomeRpt, acViewPreview, WindowMode:=acHidden 'Abre as etiquetas de forma oculta, criadas no relatorio
    DoCmd.OpenReport NomeRpt, acViewPreview, , myFiltro, acHidden
    Set Reports(NomeRpt).Printer = Application.Printers(j) 'seta a impressora para as etiquetas
    'DoCmd.OpenReport NomeRpt, acViewNormal, , , WindowMode:=acHidden 'Imprime as etiquetas
    DoCmd.OpenReport NomeRpt, acViewNormal, , myFiltro
    DoCmd.Close acReport, NomeRpt
    End Function


    quando executo...
    imprimi todas as páginas... não somente o filtro que desejo.

    por enquanto... grato pela força.
    avatar
    PauloMsp
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Localização : Brasil
    Mensagens : 8
    Registrado : 27/12/2009

    [Resolvido]Impressora Epson TMT20 porta USB Empty resolvido

    Mensagem  PauloMsp 14/7/2023, 22:30

    Consegui resolver fazendo a configuração no próprio relatório....
    muito obrigado pela força.
    Sucesso!!!!!

      Data/hora atual: 2/12/2023, 05:29