Printer Object

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

> 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
>
>