Devolver la hoja al principio en VB.Net 2003

No faltaba más

Este es una rutina para grabar unos logs... pero te puede servir.

Dim Archivo As String = "\\ip_pc\impresora"
Dim sw As IO.StreamWriter = New IO.StreamWriter(Archivo, True)
sw.WriteLine("Esta es una prueba")
sw.Close()


Saludos,
Jhonny Vargas P.
Santiago de Chile


"Marco Elgueta" escribió en el
mensaje news:
> En código como hago eso??? tienes algun ejemplo?? debo cambiar la
> estructura
> que tengo o se mantiene???
>
>
>
> "Jhonny Vargas P. [MVP]" wrote:
>
>> Creando un archivo de TEXTO cuyo nombre es "LPT1" o
>> "\\IP_PC\ImpresoraCompartida"
>>
>> Cada línea que vayas grabando en el archivo texto (que está enlazado con
>> la
>> impresora) estarás imprimiendo al otro lado.
>>
>> Saludos,
>> Jhonny Vargas P.
>>
>>
>> "Marco Elgueta" escribió en el
>> mensaje news:
>> > Mi problema es como pasar ese Print #10, Chr(27) + Chr(106) + Chr(255)
>> > a
>> > código de VB.Net.
>> >
>> >
>> > "Jhonny Vargas P. [MVP]" wrote:
>> >
>> >> Hola Marco,
>> >>
>> >> No recuerdo si es un
>> >>
>> >> Print #10, Chr(27) & Chr(13)
>> >>
>> >> o un
>> >>
>> >> Print #10, Chr(27) & Chr(12)
>> >>
>> >> Uno de los dos funciona ;)
>> >>
>> >>
>> >> Saludos,
>> >> Jhonny Vargas P.
>> >>
>> >>
>> >> "Marco Elgueta" <Marco escribió en
>> >> el
>> >> mensaje news:
>> >> > Hola a todos!
>> >> > Estoy trabajando con e.Graphics.DrawString y puedo imprimir sin
>> >> > problemas
>> >> > pero cuando envio otra página la hoja no se devuelve al principio
>> >> > para
>> >> > comenzar a imprimir sino que lo hace desde la posicion que corte la
>> >> > hoja.
>> >> > Utilizo una impresora okidata microline turbo. En VB6 utilizaba esta
>> >> > linea
>> >> > pero ahora no se como hacerlo:
>> >> > Print #10, Chr(27) + Chr(106) + Chr(255)
>> >> > Además, despues de imprimir la ultima linea la impresora sigue
>> >> > lanzandome
>> >> > hoja hasta que termina. Como puedo controlar esto para que me
>> >> > termine
>> >> > de
>> >> > la
>> >> > hoja en la ultima linea de impresion?? Estoy trabajando con papel
>> >> > continuo.
>> >> > Este es parte del codigo:
>> >> >
>> >> > Private Sub ImprimirIngresoControl(ByVal sender As Object, ByVal
>> >> > e
>> >> > As
>> >> > Printing.PrintPageEventArgs)
>> >> >
>> >> > e.Graphics.DrawString("VALOR CANCELADO $", New Font("Arial",
>> >> > 16,
>> >> > FontStyle.Regular), _
>> >> > Brushes.Black, 70, 270)
>> >> > e.Graphics.DrawString(txtValorControl.Text, New Font("Arial",
>> >> > 16,
>> >> > FontStyle.Bold), _
>> >> > Brushes.Black, 320, 270)
>> >> > e.Graphics.DrawString("Recaudador :", New Font("Arial", 12,
>> >> > FontStyle.Regular), _
>> >> > Brushes.Black, 25, 350)
>> >> > e.Graphics.DrawString(lblRecaudadorControl.Text, New
>> >> > Font("Arial",
>> >> > 12, FontStyle.Bold), _
>> >> > Brushes.Black, 190, 350)
>> >> > e.Graphics.DrawString("Fecha Transacción : ", New
>> >> > Font("Arial",
>> >> > 12,
>> >> > FontStyle.Regular), _
>> >> > Brushes.Black, 25, 370)
>> >> > e.Graphics.DrawString(DateTimePicker1.Value.ToString, New
>> >> > Font("Arial", 12, FontStyle.Regular), _
>> >> > Brushes.Black, 190, 370)
>> >> >
>> >> > End sub
>> >> >
>> >> > Private Sub btnImprimir_Click(ByVal sender As System.Object, ByVal e
>> >> > As
>> >> > System.EventArgs) Handles btnImprimir.Click
>> >> >
>> >> > AddHandler Pd.PrintPage, AddressOf
>> >> > ImprimirIngresoControl
>> >> > Pd.DocumentName = "Comprobante Pago Control"
>> >> > Pd.Print()
>> >> > End sub
>> >>
>> >>
>> >>
>>
>>
>>

Mira, copie tu codigo y le cambie la ruta IP por "LPT1"
Dim Archivo As String = "LPT1"
Dim sw As IO.StreamWriter = New IO.StreamWriter(Archivo, True)
sw.WriteLine("Esta es una prueba")
sw.Close()

Pero me sale este error:
Información adicional: FileStream no abre dispositivos Win32 como
particiones de disco y unidades de cinta. No utilice "\\.\" en la ruta de
acceso.


"Jhonny Vargas P. [MVP]" wrote:

No faltaba más

Este es una rutina para grabar unos logs... pero te puede servir.

Dim Archivo As String = "\\ip_pc\impresora"
Dim sw As IO.StreamWriter = New IO.StreamWriter(Archivo, True)
sw.WriteLine("Esta es una prueba")
sw.Close()


Saludos,
Jhonny Vargas P.
Santiago de Chile


"Marco Elgueta" escribió en el
mensaje news:
> En código como hago eso??? tienes algun ejemplo?? debo cambiar la
> estructura
> que tengo o se mantiene???
>
>
>
> "Jhonny Vargas P. [MVP]" wrote:
>
>> Creando un archivo de TEXTO cuyo nombre es "LPT1" o
>> "\\IP_PC\ImpresoraCompartida"
>>
>> Cada línea que vayas grabando en el archivo texto (que está enlazado
>> con
>> la
>> impresora) estarás imprimiendo al otro lado.
>>
>> Saludos,
>> Jhonny Vargas P.
>>
>>
>> "Marco Elgueta" escribió en
>> el
>> mensaje news:
>> > Mi problema es como pasar ese Print #10, Chr(27) + Chr(106) +
>> > Chr(255)
>> > a
>> > código de VB.Net.
>> >
>> >
>> > "Jhonny Vargas P. [MVP]" wrote:
>> >
>> >> Hola Marco,
>> >>
>> >> No recuerdo si es un
>> >>
>> >> Print #10, Chr(27) & Chr(13)
>> >>
>> >> o un
>> >>
>> >> Print #10, Chr(27) & Chr(12)
>> >>
>> >> Uno de los dos funciona ;)
>> >>
>> >>
>> >> Saludos,
>> >> Jhonny Vargas P.
>> >>
>> >>
>> >> "Marco Elgueta" <Marco escribió
>> >> en
>> >> el
>> >> mensaje news:
>> >> > Hola a todos!
>> >> > Estoy trabajando con e.Graphics.DrawString y puedo imprimir sin
>> >> > problemas
>> >> > pero cuando envio otra página la hoja no se devuelve al principio
>> >> > para
>> >> > comenzar a imprimir sino que lo hace desde la posicion que corte
>> >> > la
>> >> > hoja.
>> >> > Utilizo una impresora okidata microline turbo. En VB6 utilizaba
>> >> > esta
>> >> > linea
>> >> > pero ahora no se como hacerlo:
>> >> > Print #10, Chr(27) + Chr(106) + Chr(255)
>> >> > Además, despues de imprimir la ultima linea la impresora sigue
>> >> > lanzandome
>> >> > hoja hasta que termina. Como puedo controlar esto para que me
>> >> > termine
>> >> > de
>> >> > la
>> >> > hoja en la ultima linea de impresion?? Estoy trabajando con papel
>> >> > continuo.
>> >> > Este es parte del codigo:
>> >> >
>> >> > Private Sub ImprimirIngresoControl(ByVal sender As Object,
>> >> > ByVal
>> >> > e
>> >> > As
>> >> > Printing.PrintPageEventArgs)
>> >> >
>> >> > e.Graphics.DrawString("VALOR CANCELADO $", New
>> >> > Font("Arial",
>> >> > 16,
>> >> > FontStyle.Regular), _
>> >> > Brushes.Black, 70, 270)
>> >> > e.Graphics.DrawString(txtValorControl.Text, New
>> >> > Font("Arial",
>> >> > 16,
>> >> > FontStyle.Bold), _
>> >> > Brushes.Black, 320, 270)
>> >> > e.Graphics.DrawString("Recaudador :", New Font("Arial",
>> >> > 12,
>> >> > FontStyle.Regular), _
>> >> > Brushes.Black, 25, 350)
>> >> > e.Graphics.DrawString(lblRecaudadorControl.Text, New
>> >> > Font("Arial",
>> >> > 12, FontStyle.Bold), _
>> >> > Brushes.Black, 190, 350)
>> >> > e.Graphics.DrawString("Fecha Transacción : ", New
>> >> > Font("Arial",
>> >> > 12,
>> >> > FontStyle.Regular), _
>> >> > Brushes.Black, 25, 370)
>> >> > e.Graphics.DrawString(DateTimePicker1.Value.ToString, New
>> >> > Font("Arial", 12, FontStyle.Regular), _
>> >> > Brushes.Black, 190, 370)
>> >> >
>> >> > End sub
>> >> >
>> >> > Private Sub btnImprimir_Click(ByVal sender As System.Object,
>> >> > ByVal e
>> >> > As
>> >> > System.EventArgs) Handles btnImprimir.Click
>> >> >
>> >> > AddHandler Pd.PrintPage, AddressOf
>> >> > ImprimirIngresoControl
>> >> > Pd.DocumentName = "Comprobante Pago Control"
>> >> > Pd.Print()
>> >> > End sub
>> >>
>> >>
>> >>
>>
>>
>>