BEMATECH
Ola a todos,
Estou desenvolvendo uma aplicação para imprimir uma ordem de serviço, onde vms usar uma impressora Bematech MP-4000,
vou postar o código de impressão, e gostaria de saber se é só instalar a impressora e ela fara a impressão da ordem preenchida.
========CARREGAR IMFORMAÇÕES==========================================================================
Private Sub carregalistbox()
Dim cod As Integer
cod = codMov
Dim d As Integer = Val(txtCaminhao.Text)
Dim e As String = Val(cmbFrente.Text)
ListBox1.Items.Add([Ô][Ô])
ListBox1.Items.Add([Ô] [Ô] & [Ô]USINA BELA VISTA S/A[Ô])
ListBox1.Items.Add([Ô] [Ô] & [Ô]ORDEM DE CARREGAMENTO DE CANA[Ô])
ListBox1.Items.Add([Ô][Ô])
ListBox1.Items.Add([Ô]========================================[Ô])
ListBox1.Items.Add([Ô][Ô])
ListBox1.Items.Add([Ô]Ordem: [Ô] & cod & [Ô] [Ô] & Format(Now, [Ô]dd/MM/yyyy[Ô]) & [Ô] [Ô] & Format(Now, [Ô]HH:mm[Ô]))
ListBox1.Items.Add([Ô][Ô])
ListBox1.Items.Add([Ô]Caminhão: [Ô] & d)
ListBox1.Items.Add([Ô][Ô])
ListBox1.Items.Add([Ô]Frente: [Ô] & [Ô]0[Ô] & e)
ListBox1.Items.Add([Ô][Ô])
ListBox1.Items.Add([Ô]H. SaÃda da Lavoura: [Ô] & [Ô] _____:_____ [Ô])
ListBox1.Items.Add([Ô][Ô])
ListBox1.Items.Add([Ô]H. Chegada na Usina: [Ô] & [Ô] _____:_____ [Ô])
ListBox1.Items.Add([Ô][Ô])
ListBox1.Items.Add([Ô][Ô])
ListBox1.Items.Add([Ô]Responsável: [Ô] & [Ô] Edi Carlos [Ô])
ListBox1.Items.Add([Ô]========================================[Ô])
End Sub
========PARA IMPRIMIR====================================================================================
Private Sub imprimir()
Using SW As New IO.StreamWriter([Ô]p:\ListBox1.txt[Ô], True)
For Each itm As String In Me.ListBox1.Items
SW.WriteLine(itm)
Next
End Using
[ô] Para imprimir
Dim fi As New IO.FileInfo([Ô]p:\ListBox1.txt[Ô])
Dim p As New System.Diagnostics.ProcessStartInfo()
p.Verb = [Ô]print[Ô]
p.WindowStyle = ProcessWindowStyle.Hidden
p.FileName = fi.FullName
p.UseShellExecute = True
System.Diagnostics.Process.Start(p)
End Sub
Private Sub limparlist()
If My.Computer.FileSystem.FileExists([Ô]p:\ListBox1.txt[Ô]) Then
My.Computer.FileSystem.DeleteFile([Ô]p:\ListBox1.txt[Ô])
End If
End Sub
Se alguém poder me ajudar obrigado.
Estou desenvolvendo uma aplicação para imprimir uma ordem de serviço, onde vms usar uma impressora Bematech MP-4000,
vou postar o código de impressão, e gostaria de saber se é só instalar a impressora e ela fara a impressão da ordem preenchida.
========CARREGAR IMFORMAÇÕES==========================================================================
Private Sub carregalistbox()
Dim cod As Integer
cod = codMov
Dim d As Integer = Val(txtCaminhao.Text)
Dim e As String = Val(cmbFrente.Text)
ListBox1.Items.Add([Ô][Ô])
ListBox1.Items.Add([Ô] [Ô] & [Ô]USINA BELA VISTA S/A[Ô])
ListBox1.Items.Add([Ô] [Ô] & [Ô]ORDEM DE CARREGAMENTO DE CANA[Ô])
ListBox1.Items.Add([Ô][Ô])
ListBox1.Items.Add([Ô]========================================[Ô])
ListBox1.Items.Add([Ô][Ô])
ListBox1.Items.Add([Ô]Ordem: [Ô] & cod & [Ô] [Ô] & Format(Now, [Ô]dd/MM/yyyy[Ô]) & [Ô] [Ô] & Format(Now, [Ô]HH:mm[Ô]))
ListBox1.Items.Add([Ô][Ô])
ListBox1.Items.Add([Ô]Caminhão: [Ô] & d)
ListBox1.Items.Add([Ô][Ô])
ListBox1.Items.Add([Ô]Frente: [Ô] & [Ô]0[Ô] & e)
ListBox1.Items.Add([Ô][Ô])
ListBox1.Items.Add([Ô]H. SaÃda da Lavoura: [Ô] & [Ô] _____:_____ [Ô])
ListBox1.Items.Add([Ô][Ô])
ListBox1.Items.Add([Ô]H. Chegada na Usina: [Ô] & [Ô] _____:_____ [Ô])
ListBox1.Items.Add([Ô][Ô])
ListBox1.Items.Add([Ô][Ô])
ListBox1.Items.Add([Ô]Responsável: [Ô] & [Ô] Edi Carlos [Ô])
ListBox1.Items.Add([Ô]========================================[Ô])
End Sub
========PARA IMPRIMIR====================================================================================
Private Sub imprimir()
Using SW As New IO.StreamWriter([Ô]p:\ListBox1.txt[Ô], True)
For Each itm As String In Me.ListBox1.Items
SW.WriteLine(itm)
Next
End Using
[ô] Para imprimir
Dim fi As New IO.FileInfo([Ô]p:\ListBox1.txt[Ô])
Dim p As New System.Diagnostics.ProcessStartInfo()
p.Verb = [Ô]print[Ô]
p.WindowStyle = ProcessWindowStyle.Hidden
p.FileName = fi.FullName
p.UseShellExecute = True
System.Diagnostics.Process.Start(p)
End Sub
Private Sub limparlist()
If My.Computer.FileSystem.FileExists([Ô]p:\ListBox1.txt[Ô]) Then
My.Computer.FileSystem.DeleteFile([Ô]p:\ListBox1.txt[Ô])
End If
End Sub
Se alguém poder me ajudar obrigado.
mais especificamente, qual a sua duvida?
é a seguinte:
se quando eu instalar ela, ja reconhece ou tenho que instalar alguma dll, ou se ela reconhece o programa, pois ainda não comprei a impressora. ok
Obrigado
se quando eu instalar ela, ja reconhece ou tenho que instalar alguma dll, ou se ela reconhece o programa, pois ainda não comprei a impressora. ok
Obrigado
se ela for lpt, só intala o driver generico de texto do windows, se for usb, instala do cd (supondo que venha) pra criar a porta virutal que emula na USB... senão, deve ter no site p/ download...
é o seguinte, instala o driver dela primeiro e põe ela como impressora padrão.
Se você estiver usando windows 7 vai no menu iniciar e depois clique em dispositivos e impressoras. Após clicar em dispositivos e impressoras selecione a impressora que você quer deixar como padrão então clique com o botão direito do mouse na impressora e selecione: Definir como impressora padrão.
Pronto!
Ai o programa só vai imprimir com ela :D.
Se você estiver usando windows 7 vai no menu iniciar e depois clique em dispositivos e impressoras. Após clicar em dispositivos e impressoras selecione a impressora que você quer deixar como padrão então clique com o botão direito do mouse na impressora e selecione: Definir como impressora padrão.
Pronto!
Ai o programa só vai imprimir com ela :D.
Citação::
Instala o PDF Creator ... ai nele vc manda gerar imprimir direto pra um PDF, vai da uma noção de impressão pra vc...
Sempre testo minhas impressões nesse software
O cara, valeu msm, pela dica.
Obrigado.
Citação::
se ela for lpt, só intala o driver generico de texto do windows, se for usb, instala do cd (supondo que venha) pra criar a porta virutal que emula na USB... senão, deve ter no site p/ download...
Vlaeu pela atenção viu cmpanheiro.
Agradecido.
Agradeço todos vcs pela atenção.
Tópico encerrado , respostas não são mais permitidas