Printer Object

22/07/2003 - 16:42 por Alonso | Informe spam
Alguien de este foro ha utilizado antes el printer object?

Estoy tratando de imprimir un par de lineas con el codigo que esta abajo y
cuando imprimo esto es lo que aparece en la hoja de papel.

PCL XL error
Subsystem: KERNEL
Error: IllegalStreamHeader
Operator: 0x0
Position: 0

Lo curioso es que el mismo codigo antes funcionaba.

Un saludo
Alonso






Private Sub Command1_Click()

Dim HWidth, HHeight, I, Msg ' Declare variables.
On Error GoTo ErrorHandler ' Set up error handler.
Msg = "This is printed on page"
For I = 1 To 2 ' Set up two iterations.
HWidth = Printer.TextWidth(Msg) / 2 ' Get half width.
HHeight = Printer.TextHeight(Msg) / 2 ' Get half height.
Printer.CurrentX = Printer.ScaleWidth / 2 - HWidth
Printer.CurrentY = Printer.ScaleHeight / 2 - HHeight
Printer.Print Msg & Printer.Page & "." ' Print.
Printer.NewPage ' Send new page.
Next I
Printer.EndDoc

Unload Me
Exit Sub
ErrorHandler:
MsgBox "There was a problem printing to your printer."
Exit Sub

End Sub

Preguntas similare

Leer las respuestas

#1 Saga
22/07/2003 - 18:23 | Informe spam
Aunque es algo elemental... revisa que tu codigo este enviando los
datos de impresion a la impresora correcta. Si dices que la impresora
funciona bien, entonces debe ser algo en tu configuracion.

Suerte!
Saga

"Alonso" wrote in message
news:O6ko%
Alguien de este foro ha utilizado antes el printer object?

Estoy tratando de imprimir un par de lineas con el codigo que esta abajo y
cuando imprimo esto es lo que aparece en la hoja de papel.

PCL XL error
Subsystem: KERNEL
Error: IllegalStreamHeader
Operator: 0x0
Position: 0

Lo curioso es que el mismo codigo antes funcionaba.

Un saludo
Alonso






Private Sub Command1_Click()

Dim HWidth, HHeight, I, Msg ' Declare variables.
On Error GoTo ErrorHandler ' Set up error handler.
Msg = "This is printed on page"
For I = 1 To 2 ' Set up two iterations.
HWidth = Printer.TextWidth(Msg) / 2 ' Get half width.
HHeight = Printer.TextHeight(Msg) / 2 ' Get half height.
Printer.CurrentX = Printer.ScaleWidth / 2 - HWidth
Printer.CurrentY = Printer.ScaleHeight / 2 - HHeight
Printer.Print Msg & Printer.Page & "." ' Print.
Printer.NewPage ' Send new page.
Next I
Printer.EndDoc

Unload Me
Exit Sub
ErrorHandler:
MsgBox "There was a problem printing to your printer."
Exit Sub

End Sub


Respuesta Responder a este mensaje
#2 Leonardo Azpurua
23/07/2003 - 03:40 | Informe spam
"Alonso" escribió en el mensaje
news:O6ko#
Alguien de este foro ha utilizado antes el printer object?

Estoy tratando de imprimir un par de lineas con el codigo que esta abajo y
cuando imprimo esto es lo que aparece en la hoja de papel.

PCL XL error
Subsystem: KERNEL
Error: IllegalStreamHeader
Operator: 0x0
Position: 0

Lo curioso es que el mismo codigo antes funcionaba.

Un saludo
Alonso



Alonso:

Tu código está bien. Y, sin duda, no es Visual Basic quien está generando el
error (hasta ahora, nunca he visto a VB enviar los mensajes de error hacia
la impresora). De hecho, es la impresora quien está detectando y reportando
el error.

Illegal Stream Header parece referirse a un paquete de comunicación
inválido, o a un protocolo de comunicación incorrecto entre tu equipo y el
printer.

Es probable, entonces, que tengas algún tipo de problema en el driver del
printer. O que tengas configurada una impresora diferente de aquella a la
que estás enviando en efecto la salida. De no ser ese el caso, prueba a
reinstalar la impresora en tu PC (eso no producirá ningún efecto ni sobre el
printer nio sobre la configuración en las máquias de tus compañeros de
trabajo). Si el problema persiste, trata de conseguir soporte técnico de la
gente que te vendió el printer.

El objeto Printer no agrega ni cambia nada en la definición de las
impresoras: uniliza los servicios de GDI, que es una interfaz estándar para
dispositivos gráficos (compartida por screen, picture box, form y otros).

Salud!

Leonardo
[MS MVP - VB]
Respuesta Responder a este mensaje
#3 Alonso
23/07/2003 - 10:25 | Informe spam
Gracias, voy a reinstalar los drivers entonces a ver que pasa.

Un saludo
Alonso
"Leonardo Azpurua" <l a z p u r u a g (arroba) c a n t v (punto) n e t>
wrote in message news:#b$

"Alonso" escribió en el mensaje
news:O6ko#
> Alguien de este foro ha utilizado antes el printer object?
>
> Estoy tratando de imprimir un par de lineas con el codigo que esta abajo


y
> cuando imprimo esto es lo que aparece en la hoja de papel.
>
> PCL XL error
> Subsystem: KERNEL
> Error: IllegalStreamHeader
> Operator: 0x0
> Position: 0
>
> Lo curioso es que el mismo codigo antes funcionaba.
>
> Un saludo
> Alonso

Alonso:

Tu código está bien. Y, sin duda, no es Visual Basic quien está generando


el
error (hasta ahora, nunca he visto a VB enviar los mensajes de error hacia
la impresora). De hecho, es la impresora quien está detectando y


reportando
el error.

Illegal Stream Header parece referirse a un paquete de comunicación
inválido, o a un protocolo de comunicación incorrecto entre tu equipo y el
printer.

Es probable, entonces, que tengas algún tipo de problema en el driver del
printer. O que tengas configurada una impresora diferente de aquella a la
que estás enviando en efecto la salida. De no ser ese el caso, prueba a
reinstalar la impresora en tu PC (eso no producirá ningún efecto ni sobre


el
printer nio sobre la configuración en las máquias de tus compañeros de
trabajo). Si el problema persiste, trata de conseguir soporte técnico de


la
gente que te vendió el printer.

El objeto Printer no agrega ni cambia nada en la definición de las
impresoras: uniliza los servicios de GDI, que es una interfaz estándar


para
dispositivos gráficos (compartida por screen, picture box, form y otros).

Salud!

Leonardo
[MS MVP - VB]


Respuesta Responder a este mensaje
#4 Alonso
23/07/2003 - 14:47 | Informe spam
Leonardo,

Gracias, he reinstalado los drivers y parece que funciona bien.

Un saludo
Alonso

"Leonardo Azpurua" <l a z p u r u a g (arroba) c a n t v (punto) n e t>
wrote in message news:#b$

"Alonso" escribió en el mensaje
news:O6ko#
> Alguien de este foro ha utilizado antes el printer object?
>
> Estoy tratando de imprimir un par de lineas con el codigo que esta abajo


y
> cuando imprimo esto es lo que aparece en la hoja de papel.
>
> PCL XL error
> Subsystem: KERNEL
> Error: IllegalStreamHeader
> Operator: 0x0
> Position: 0
>
> Lo curioso es que el mismo codigo antes funcionaba.
>
> Un saludo
> Alonso

Alonso:

Tu código está bien. Y, sin duda, no es Visual Basic quien está generando


el
error (hasta ahora, nunca he visto a VB enviar los mensajes de error hacia
la impresora). De hecho, es la impresora quien está detectando y


reportando
el error.

Illegal Stream Header parece referirse a un paquete de comunicación
inválido, o a un protocolo de comunicación incorrecto entre tu equipo y el
printer.

Es probable, entonces, que tengas algún tipo de problema en el driver del
printer. O que tengas configurada una impresora diferente de aquella a la
que estás enviando en efecto la salida. De no ser ese el caso, prueba a
reinstalar la impresora en tu PC (eso no producirá ningún efecto ni sobre


el
printer nio sobre la configuración en las máquias de tus compañeros de
trabajo). Si el problema persiste, trata de conseguir soporte técnico de


la
gente que te vendió el printer.

El objeto Printer no agrega ni cambia nada en la definición de las
impresoras: uniliza los servicios de GDI, que es una interfaz estándar


para
dispositivos gráficos (compartida por screen, picture box, form y otros).

Salud!

Leonardo
[MS MVP - VB]


Respuesta Responder a este mensaje
#5 Leonardo Azpurua
23/07/2003 - 15:50 | Informe spam
"Alonso" escribió en el mensaje
news:#
Leonardo,

Gracias, he reinstalado los drivers y parece que funciona bien.

Un saludo
Alonso



Hombre!

Gracias deberías darle a _JuanE, que fue quien te hizo la sugerencia. Lo
único que hizo este servidor fue ampliar sus argumentos.

Salud!

Leonardo
[MS MVP - VB]
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida