vilefort
|
BELO HORIZONTE MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 19/12/2006 11:02 hs
Por favor gostaria de saber qual código em VB.NET para envio de dados diretamente para impressora através da "LPT1". Em visual basic 6.0 usa o seguinte código: Open "Lpt1" For Output As #1 Print #1, "" Print #1, "TESTE DE IMPRESSÃO" Print #1, "" Print #1, "" Close #1
Pela atenção desde já agradeço antecipadamente. Vilefort
|
|
|
|
Diego#27
|
INDAIATUBA SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 06/12/2007 16:48 hs
cara você conseguio? já faz um ano postado! manda um exemplo para mim! agradeço pelo espaço abraz!!!!
|
|
|
|
Postada em 15/01/2008 15:08 hs
Imports System.Drawing.Printing Imports system.Drawing.Imaging Imports System.Drawing.Text Imports System Imports System.IO Imports Microsoft.VisualBasic
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sw As New IO.StreamWriter("C:LIXOLista.txt") sw.WriteLine(Chr(27) & "0") sw.WriteLine(Space(10) & Mid("APENAS UM TESTE 1", 1, 30)) 'ATIVAR NEGRITO sw.WriteLine(Chr(27) & "E") sw.WriteLine(Space(10) & Mid("APENAS UM TESTE 2", 1, 30)) 'DESATIVAR NEGRITO sw.WriteLine(Chr(27) & "F") 'ATIVAR ITALICO sw.WriteLine(Chr(27) & "4") sw.WriteLine(Space(10) & Mid("APENAS UM TESTE 3", 1, 30)) 'DESATIVAR ITALICO sw.WriteLine(Chr(27) & "5") 'ATIVAR CONDENSADO sw.WriteLine(Chr(27) & Chr(15)) sw.WriteLine(Space(10) & Mid("APENAS UM TESTE 4", 1, 30)) 'DESATIVAR CONDENSADO sw.WriteLine(Chr(18)) sw.WriteLine("") sw.WriteLine("") sw.Flush() sw.Close()
Dim s1 As New IO.StreamWriter("C:LIXOImprimi.bat") s1.Write("TYPE C:LIXOLista.Txt >prn") s1.Flush() s1.Close() System.Diagnostics.Process.Start("C:LIXOImprimi.bat")
|
|
|
sfg
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 20/05/2009 17:00 hs
|
|
|
|
Postada em 16/05/2011 10:47 hs
|
|
|
amauri
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 11/09/2011 20:25 hs
System.IO.File.Copy("C:arquivo.txt", "LPT1", True)
|
|
|