13/04/2008, 10:16
|
| | | Fecha de Ingreso: abril-2008
Mensajes: 1
Antigüedad: 17 años Puntos: 0 | |
| Problema con imprsión (VB6)
Hola a todos.
Tengo un equipo (PC) donde hay varias impresoras instaladas.
En VB, creo un proyecto nuevo, y en el form coloco dos controles: 1 CommandButton y 1 CommonDialog; el siguiente es todo el código del proyecto:
---------------------------------------------------------------------
Option Explicit
Private Sub Command_Click()
CommonDialog.PrinterDefault = True
CommonDialog.CancelError = True
CommonDialog.ShowPrinter
Printer.Print "prueba"
Printer.EndDoc
End Sub
---------------------------------------------------------------------
Esto hace que antes de imprimir "prueba", se presente al usuario el cuadro de diálogo, para que seleccione que impresora desea usar.
Funciona Ok.
EL PROBLEMA es que si agrego una línea para elegir la orientación del papel:
---------------------------------------------------------------------
Option Explicit
Private Sub Command_Click()
CommonDialog.PrinterDefault = True
CommonDialog.CancelError = True
CommonDialog.ShowPrinter
Printer.Orientation = vbPRORPortrait '******** <-- esta es la linea que agrego
Printer.Print "prueba"
Printer.EndDoc
End Sub
---------------------------------------------------------------------
Pasa lo siguiente:
La primera vez que que se hace click en el botón se imprime en la impresora seleccionada, pero en los sucesivos "clicks" (sin haber salido de la aplicación), no toma la seleccion del usuario; sigue imprimiendo en la primera elección que el usuario había hecho.
Alguien sabe por qué?
El "lío" lo arma "Printer.Orientation..." pero no tengo idea por qué ...
Muchas gracias. |