IMPRIMINDO DIRETO UM AQUIVO TXT

GUIMANCINE 27/05/2015 08:36:39
#447067
Tenho o comendo abaixo que visualiza o arquivo txt, como eu faço para imprimir direto sem visualizar.


Dim NomeArq As String = [Ô]C:\ParkingCars\EntradaVeiculos.txt[Ô]
Dim dados As New IO.StreamWriter(NomeArq)

dados.WriteLine(Space(0) & [Ô][Ô])
dados.WriteLine(Space(7) & [Ô]FC PARK ESTACIONAMENTO E CAFETERIA[Ô])
dados.WriteLine(Space(12) & [Ô]COMPROVANTE DE ENTRADA[Ô])
dados.WriteLine(Space(0) & [Ô][Ô])
dados.WriteLine(Space(17) & [Ô]ESTACIONAMENTO[Ô])
dados.WriteLine(Space(0) & [Ô][Ô])
dados.WriteLine(Space(0) & [Ô]DATA ENTRADA: [Ô] & TxtDataCadastro.Text)
dados.WriteLine(Space(0) & [Ô]HORA ENTRADA: [Ô] & TxtHoraCadastro.Text)
dados.WriteLine(Space(0) & [Ô][Ô])
dados.WriteLine(Space(12) & [Ô]PLACA VEICULO: [Ô] & TxtPlacaVeiculo.Text)
dados.WriteLine(Space(0) & [Ô][Ô])
dados.WriteLine(Space(8) & [Ô]LOCALIZAÇÃO: [Ô] & ComboSetor.Text & [Ô]-[Ô] & ComboVagas.Text)
dados.WriteLine(Space(0) & [Ô][Ô])
dados.WriteLine(Space(0) & [Ô]MODELO: [Ô] & ComboModelo.Text)
dados.WriteLine(Space(0) & [Ô]COR: [Ô] & ComboCor.Text)
dados.WriteLine(Space(0) & [Ô]TIPO: [Ô] & ComboTipoVeiculo.Text)
dados.WriteLine(Space(0) & [Ô]CONVENIO: [Ô] & ComboConvenio.Text)
dados.WriteLine(Space(0) & [Ô][Ô])
dados.WriteLine(Space(1) & [Ô]ENDERECO: RUA SALDANHA MARINHO, 324, CENTRO[Ô])
dados.WriteLine(Space(10) & [Ô]SÃO JOSE DO RIO PRETO - SP[Ô])
dados.WriteLine(Space(14) & [Ô]TEL: (17)3234-5454[Ô])

dados.Close()

System.Diagnostics.Process.Start([Ô]notepad.exe[Ô], [Ô]C:\ParkingCars\EntradaVeiculos.txt[Ô])
NILSONTRES 27/05/2015 08:45:16
#447068 Resposta escolhida
Faz um copy file , ai vc coloca, se não me engano, assim: flie.copy(origemarquivo,destinoarquivo)
Onde, destino arquivo é a impressora compartilhada.exemplo: \
omedamaquina
omecompartilhamentodaimpressora
GUIMANCINE 27/05/2015 08:49:21
#447069
Desta forma?

System.IO.File.Copy([Ô]C:\ParkingCars\EntradaVeiculos.txt[Ô], [Ô]\\servidor\mapeamento[Ô], True)
GUIMANCINE 27/05/2015 11:18:19
#447080
ninguem??
NILSONTRES 27/05/2015 13:13:48
#447084
Isso.
Tópico encerrado , respostas não são mais permitidas
Voltar