IMPRESSORA FISCAL

FLAVIOALBIERO 29/11/2006 12:38:04
#186941
Olá, Amigos

eu estou precisando da DLL para acessar a impressora fiscal
schauter bem como as declarações da dll, se possivel um exemplo
em VB

desde-já, agradeço pela colaboração
HUGOSSOUZA 29/11/2006 13:17:38
#186960
ja tentou falar com a empresa pra ver se eles disponibilizam a DLL ou algum exemplo?
F001E 29/11/2006 17:15:22
#187020 Resposta escolhida
ta ai...as DLL....tomara que te ajude....
FLAVIOALBIERO 30/11/2006 08:03:52
#187100
Eu já tentei falar com a empresa, mas sem chance eles não dão retorno

F001E 30/11/2006 09:47:55
#187118
Ta aí a DLL.....
USUARIO.EXCLUIDOS 30/11/2006 11:19:56
#187139
olá amigo eu uso desta forma:
funç~~ao para imprimir:
Public Function mimprimi(saida As String, expressao As String, ctrl As String)
If saida <> "T" Then
    If ctrl = "FIM" Then
        Printer.EndDoc
    End If
End If
If saida <> "T" Then
    Printer.Print expressao
Else
    Form11.List1.AddItem expressao
    Form11.Show
End If


End Function


função para gerenciar os espaços:
Public Function espacos(expressao As String, qtd As Integer)
If Len(expressao) > qtd Then
   espacos = Left(expressao, qtd)
   Exit Function
End If
espacos = Trim(expressao) & Space(qtd - Len(Trim(expressao)))
End Function


e uso um combo onde o usuario escolhe se deseja imprimir ou visualizar a impressão, eu uso um list para exibir na tela, como você pode ver na função de imprimir.
depois e só add a impressora fiscal como padrão.
ahh se vc visualizar a impressão depois deve usa o comando no outro botão:

For x = 1 To List1.ListCount - 1
Printer.Print List1.List(x)
Next
Printer.EndDoc
FLAVIOALBIERO 30/11/2006 11:32:24
#187143
Oi, Inacio_Junior
eu agradeço a sua ajuda, mas acho que voce se confundiu a impressora schalter eh uma impressora fiscal e não dá para utilizar a forma que vc passou

mesmo assim eu agradeço pela sua atenção
FLAVIOALBIERO 04/12/2006 15:34:14
#187881
obrigado pessoal
Tópico encerrado , respostas não são mais permitidas
Voltar