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
 

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


Preguntas similares