PRINT MATRICIAL EM IMPRESSORA LASER

JONES7 15/02/2011 22:21:51
#365568
Olá, estou tendo dificuldade em conseguir imprimir, consigo achar a impressora, ate a Porta dela, mas não consigo imprimir.
a impressora esta na rede Wifi, e configurada no computador, porém quando mando imprimir qualquer outro documento, ela imprime, mas este que o código faz no estilo da matricial, não imprime.
segue o código:

nLPT1 = FreeFile
Open Porta_Impressora For Output As nLPT1

For x = 1 To Sp.Rows - 1
  DoEvents
  If cmdCancelar.Tag = [Ô]Cancelar[Ô] Then
        Screen.MousePointer = 0
        MsgBox [Ô]Impressão Cancelada !!![Ô], 64, [Ô]Aviso[Ô]
        Close #nLPT1
        cmdCancelar.Visible = False
        Exit Sub
  End If
  Sp.Row = x
  Sp.Col = 1
  For Y = 1 To Val(Sp.Text)
    
        Print #nLPT1, [Ô][Ô] & Chr(15) & Campo(1) & Chr(18)
        Print #nLPT1, [Ô][Ô] & Chr(15) & Campo(2) & Chr(18)
        Print #nLPT1, [Ô][Ô] & Chr(15) & Campo(3) & Chr(18)
        Print #nLPT1, Chr(15) & [Ô][Ô]
        Campo(1) = [Ô][Ô]
        Campo(2) = [Ô][Ô]
        Campo(3) = [Ô][Ô]
        Qtde_Linha = 0
    Sp.Col = 2
    Campo(1) = Campo(1) & [Ô][Ô] & Sp.Text & Space(20 - Len(Sp.Text))
    Sp.Col = 3
    Campo(2) = Campo(2) & [Ô][Ô] & Sp.Text & Space(20 - Len(Sp.Text))
    Sp.Col = 4
    Campo(3) = Campo(3) & [Ô][Ô] & Sp.Text & Space(20 - Len(Sp.Text))
    Qtde_Linha = Qtde_Linha + 1
  Next


se alguem souber por favor, procurei nos tópicos mas não tive resultado.
FNANDOOD 15/02/2011 23:44:43
#365574 Resposta escolhida
Acho que da forma acima o sistema usa gerenciamento DOS para Imprimir, por isso que não funciona.

Você já tentou usar o comando printer.print que usa o gerenciador de impressão do windows?

outra coisa que talvez de certo seria imprimir o relatório em uma arquivo .txt, e depois mandar para impressão

com o comando: Shell Environ$([Ô]COMSPEC[Ô]) & [Ô] /C COPY RELA.TXT PRN[Ô], vbHide [ô]aqui funciona mas tem que estar compilado.

se não der certo, pesquise outra forma de imprimir/colocar o arquivo em fila de impressão.
JONES7 16/02/2011 00:37:21
#365578
Obrigado FNANDOOD, eu achei este exemplo no site do macoratti.
http://www.macoratti.net/printer.htm

usando o Printer.Print.
mas mesmo assim, obrigado !

era isso mesmo.

att
Tópico encerrado , respostas não são mais permitidas
Voltar