Problema con Printer.Orientation = 2 - VB-MUNDO

ANCALO · #1 (**permalink**) 14-03-2006, 10:39:20

Hola a todos.

Tengo un problema, bueno el caso es que la segunda vez que envio algo a la impresora me da el siguiente error,

No se puede imprimir la imagen de formulario en este tipo de impresora.

Alguien me puede explicar como solucionar esto?

Salu2

Alella · #2 (**permalink**) 14-03-2006, 11:06:08

Hola, que tal.

vbPRORPortrait 1 Los documentos se imprimen con la parte superior en el lado estrecho del papel.
vbPRORLandscape 2 Los documentos se imprimen con la parte superior en el lado ancho del papel.

A lo mejor es una tontería, pero cuando imprimes por segunda vez ¿Qué valor tienes puesto en Orientation?.

ANCALO · #3 (**permalink**) 14-03-2006, 11:53:09

Creo que no me he explicado bien.

Yo ejecuto el programa, y envio a imprir por primera vez todo correcto, ahora vuelvo a enviar a imprimir, y es cuando me da el error.

Si vuelvo a ejecutar el programa, me vualve a pasar exactamente igual, la primera vez que envio a imprimir si funciona, despues ya da el error.

Salu2

Alella · #4 (**permalink**) 14-03-2006, 13:32:45

Hola, qwe tal.

Si nos pusieras la parte del código donde te falla, quizás te podamos ayudar mejor en este tipo de errores.

ANCALO · #5 (**permalink**) 15-03-2006, 09:16:54

Este es el codigo

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

If KeyCode = 44 Then Printer.Orientation = 2: frmGRAFICO.PrintForm

End Sub

Cada vez que se ejecuta el programa, la primera vez funciona perfectamente, es a partir de la premera, osea la segunda vez cuando ya da el error.

Alella · #6 (**permalink**) 15-03-2006, 09:58:53

Hola, que tal.

Sólo se me ocurre que limpies el Portapapeles cada vez que imprimas:

Código:

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    
   If KeyCode = vbKeySnapshot Then
        Printer.Orientation = 2
        frmGRAFICO.PrintForm
        MsgBox "Tocó vbKeyPrint"

        ' Limpiamos el portapapeles
        Clipboard.Clear

    End If

End Sub

Te he puesto el código para 44: vbKeySnapshot 0x2C Tecla Impr Pant

Espero que te sirva.

ANCALO · #7 (**permalink**) 15-03-2006, 11:45:19

Sigue dando el mismo error

Salu2