DUVIDA SOBRE DOSPRINT
Bom dia, pessoal.
Alguém aqui já utilizou o DosPrint para imprimir em impressoras matriciais, relatórios do DOS?
Pois é, estou precisando saber como fazer para usá-lo, pois preciso fazer rodar etiquetas em impressora matricial, só que o PC só tem entrada USB, então essa impressora está conectada ao micro por um cabo adaptador de paralelo para USB.
O cliente tem 3 impressoras:
uma jato de tinta para imprimir os relatórios em PDF
uma matricial LX300 para imprimir as etiquetas
uma matricial Okidata para imprimir os pedidos e notas fiscais
Minha maior dúvida é saber se é possÃvel imprimir pelo DosPrint, direcionando a impressora que eu quero imprimir.
Alguém pode me responder?
Até mais.
Alguém aqui já utilizou o DosPrint para imprimir em impressoras matriciais, relatórios do DOS?
Pois é, estou precisando saber como fazer para usá-lo, pois preciso fazer rodar etiquetas em impressora matricial, só que o PC só tem entrada USB, então essa impressora está conectada ao micro por um cabo adaptador de paralelo para USB.
O cliente tem 3 impressoras:
uma jato de tinta para imprimir os relatórios em PDF
uma matricial LX300 para imprimir as etiquetas
uma matricial Okidata para imprimir os pedidos e notas fiscais
Minha maior dúvida é saber se é possÃvel imprimir pelo DosPrint, direcionando a impressora que eu quero imprimir.
Alguém pode me responder?
Até mais.
Olá PERCIFILHO
Eu já usei o DOSPRINT e os dados abaixo eu usava pra imprimir a abertura do caixa. Acredito que com isso você já possa ter uma ideia de como funciona.
Try
Dim sw As New IO.StreamWriter(Application.StartupPath & [Ô]\impr.txt[Ô])
For I = 0 To MgS
sw.WriteLine([Ô][Ô])
Next
Crtipo = Chr(27) & Chr(15) [ô]ATIVAR CONDENSADO
sw.WriteLine(Crtipo & Space(MgE) & [Ô]RETIRADA DE VALORES DO CAIXA [Ô])
Crtipo = (Chr(27) & [Ô]F[Ô]) [ô]DESATIVAR NEGRITO
sw.WriteLine(Crtipo & Space(MgE) & [Ô]Dt/Hr: [Ô] & Now)
Dim Ajuda As String
Ajuda = [Ô]Caixa:[Ô] & matriz(1) & [Ô] - Operador(a): [Ô] & matriz(2)
sw.WriteLine(Space(MgE) & Ajuda)
sw.WriteLine(Space(MgE) & [Ô]----------------------------------------[Ô])
[ô]--------------------------------------------------------------------
I = matriz(3)
I -= 1
Dim Y As Integer
Dim X As Integer = 3
For Y = 0 To I - 1
X = X + 1
Dim Numero As Integer
Dim Item As Integer = matriz(X)
X = X + 1
Dim Oque As String = matriz(X)
If Oque = [Ô]Cheque[Ô] Then Oque = [Ô]Cheque [Ô]
X = X + 1
If matriz(X) = [Ô][Ô] Then
Numero = 0
Else
Numero = matriz(X)
End If
X = X + 1
Dim Valor As Double = matriz(X)
[ô]--------------------------------------------------
Ajuda = Item.ToString([Ô]D3[Ô]) & [Ô] - [Ô] & Oque & [Ô] - [Ô] & Numero.ToString([Ô]D8[Ô]) & [Ô] - R$ [Ô] & Valor
sw.WriteLine(Space(MgE) & Ajuda)
Next
Ajuda = [Ô]----------------------------------------[Ô]
sw.WriteLine(Space(MgE) & Ajuda)
X = X + 1
Ajuda = [Ô]Total de retirada: R$[Ô] & matriz(X)
sw.WriteLine(Space(MgE) & Ajuda)
sw.WriteLine(Chr(18))
For I = Qtli To Qtlin
sw.WriteLine([Ô][Ô])
Next
sw.Flush()
sw.Close()
[ô]---------------------------------------------------------------
Dim linha1 As String = Application.StartupPath & [Ô]\impr.bat[Ô]
Dim linha2 As String = [Ô]Type [Ô] & Application.StartupPath & [Ô]\impr.txt >[Ô] & Porta [ô]Porta LPT1
Dim linha3 As String = Application.StartupPath & [Ô]\impr.bat[Ô]
Dim s1 As New IO.StreamWriter(linha1)
s1.Write(linha2)
s1.Flush()
s1.Close()
System.Diagnostics.Process.Start(linha3)
Encerrar_programa()
Catch ex As Exception
End Try
Eu já usei o DOSPRINT e os dados abaixo eu usava pra imprimir a abertura do caixa. Acredito que com isso você já possa ter uma ideia de como funciona.
Try
Dim sw As New IO.StreamWriter(Application.StartupPath & [Ô]\impr.txt[Ô])
For I = 0 To MgS
sw.WriteLine([Ô][Ô])
Next
Crtipo = Chr(27) & Chr(15) [ô]ATIVAR CONDENSADO
sw.WriteLine(Crtipo & Space(MgE) & [Ô]RETIRADA DE VALORES DO CAIXA [Ô])
Crtipo = (Chr(27) & [Ô]F[Ô]) [ô]DESATIVAR NEGRITO
sw.WriteLine(Crtipo & Space(MgE) & [Ô]Dt/Hr: [Ô] & Now)
Dim Ajuda As String
Ajuda = [Ô]Caixa:[Ô] & matriz(1) & [Ô] - Operador(a): [Ô] & matriz(2)
sw.WriteLine(Space(MgE) & Ajuda)
sw.WriteLine(Space(MgE) & [Ô]----------------------------------------[Ô])
[ô]--------------------------------------------------------------------
I = matriz(3)
I -= 1
Dim Y As Integer
Dim X As Integer = 3
For Y = 0 To I - 1
X = X + 1
Dim Numero As Integer
Dim Item As Integer = matriz(X)
X = X + 1
Dim Oque As String = matriz(X)
If Oque = [Ô]Cheque[Ô] Then Oque = [Ô]Cheque [Ô]
X = X + 1
If matriz(X) = [Ô][Ô] Then
Numero = 0
Else
Numero = matriz(X)
End If
X = X + 1
Dim Valor As Double = matriz(X)
[ô]--------------------------------------------------
Ajuda = Item.ToString([Ô]D3[Ô]) & [Ô] - [Ô] & Oque & [Ô] - [Ô] & Numero.ToString([Ô]D8[Ô]) & [Ô] - R$ [Ô] & Valor
sw.WriteLine(Space(MgE) & Ajuda)
Next
Ajuda = [Ô]----------------------------------------[Ô]
sw.WriteLine(Space(MgE) & Ajuda)
X = X + 1
Ajuda = [Ô]Total de retirada: R$[Ô] & matriz(X)
sw.WriteLine(Space(MgE) & Ajuda)
sw.WriteLine(Chr(18))
For I = Qtli To Qtlin
sw.WriteLine([Ô][Ô])
Next
sw.Flush()
sw.Close()
[ô]---------------------------------------------------------------
Dim linha1 As String = Application.StartupPath & [Ô]\impr.bat[Ô]
Dim linha2 As String = [Ô]Type [Ô] & Application.StartupPath & [Ô]\impr.txt >[Ô] & Porta [ô]Porta LPT1
Dim linha3 As String = Application.StartupPath & [Ô]\impr.bat[Ô]
Dim s1 As New IO.StreamWriter(linha1)
s1.Write(linha2)
s1.Flush()
s1.Close()
System.Diagnostics.Process.Start(linha3)
Encerrar_programa()
Catch ex As Exception
End Try
Amilnet, obrigado pelo interesse em me ajudar, mas talvez eu não exposto minha dúvida corretamente. Até ai, eu já entendi. Você cria um arquivo texto, escreve o que quiser nele e manda imprimir para a LPT1. Até aÃ, tudo legal. Acontece que o que eu preciso é do seguinte: tenho duas impressoras matriciais, porém elas são conectadas ao micro com cabo USB, pois o mesmo não tem saÃdas para matriciais. Pois bem, quando vou imprimir usando o DosPrint, tem como eu direcionar para qual impressora eu quero imprimir?
Aqui na empresa, existe um departamento onde trabalham duas impressoras matriciais, porém elas são conectadas ao micro com o cabo paralelo e existe um chaveador para direcionar em qual impressora vai ser impresso o documento. Aà pensei, será que existe essa chaveador também para USB, será que resolveria o meu problema?
Se alguém mais puder dar a opinião, eu agradeço.
Até mais.
Aqui na empresa, existe um departamento onde trabalham duas impressoras matriciais, porém elas são conectadas ao micro com o cabo paralelo e existe um chaveador para direcionar em qual impressora vai ser impresso o documento. Aà pensei, será que existe essa chaveador também para USB, será que resolveria o meu problema?
Se alguém mais puder dar a opinião, eu agradeço.
Até mais.
Tópico encerrado , respostas não são mais permitidas