Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Devolver la hoja al principio en VB.Net 2003

24/05/2006 - 16:11 por Marco Elgueta | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 7 respuestasRespuesta Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 Jhonny Vargas P. [MVP]
24/05/2006 - 16:23 | Informe spam
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
Respuesta Responder a este mensaje
#2 Marco Elgueta
24/05/2006 - 17:01 | Informe spam
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



Respuesta Responder a este mensaje
#3 Jhonny Vargas P. [MVP]
24/05/2006 - 17:11 | Informe spam
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



Respuesta Responder a este mensaje
#4 Marco Elgueta
24/05/2006 - 17:30 | Informe spam
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
>>
>>
>>



Respuesta Responder a este mensaje
#5 Jhonny Vargas P. [MVP]
24/05/2006 - 17:41 | Informe spam
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
>>
>>
>>



Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida