USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic .Net
Voltar
Autor Assunto:  Imprimir diretamente via "LPT1" em VB.NET
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!!!!
   
Clayton Santos
OSASCO
SP - BRASIL
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   
   
m
não registrado
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)
   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página