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)
|
|
|
|
