[Resolvido]Impressora Epson TMT20 porta USB

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

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

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

Não uso comandos para abrir a gaveta.

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

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.

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