Impresora propiedades - VB-MUNDO

Andres · #1 (**permalink**) 06-10-2007, 00:53:54

hola amigos.. hace mucho que no estoy por aca.. habia dejado de lado la programacion.. pero ahora vuelvo y pronto sere un`punto net.. jajaj pero todavia falta.

Les cuento mi problema.. tengo u cliente que siempre imprime sus informes con un datareport, y asi lo esta haciendo hace varios años. ahora me pidio que el form tenga un boton (command1) que cuando haga clic me habra las propiedades de la impresora activa.. solamente las propiedades asi el cambia la orientacion de la hoja de vertical a horizontal...

hay alguna forma de que cuando pulse un boton me abra las propiedades de la impresora?
como se hace?

espero sus mensajes, yo practique algunas pero no hay caso..

gracias y es lindo volver.
Saludos

J.M.Movilla · #2 (**permalink**) 06-10-2007, 08:27:05

Si lo único que necesitas es definir la ORIENTACIÓN del informe, bien podías poner un par de botones para alternar esa característica: DataReport1.Orientation = rptOrientLandscape / DataReport1.Orientation = rptOrientPortrait. O definir la orientación del Printer...; no sé cuál es tu caso.

acalanto · #3 (**permalink**) 06-10-2007, 08:36:54

Inserta un control Common Dialog en el formulario y utiliza la propiedad ShowPrinter. Te mostrará el formulario de configuración de la impresora establecida por defecto.

Código:

    DefaultPrinter <nombreimpresoradeseada>
    Me.dlgPrinter.ShowPrinter

Espero que te resulte útil.

Andres · #4 (**permalink**) 20-10-2007, 04:29:06

hola.. perdon que conteste despues de una semana.. les cuento que ninguna de las dos formas propuestas funciono en mi caso (por las dudas aclaro que programo en vb NO en .net)

la primera la de Acalanto directamenbte no me reconoce ninguno de los comandos ej (DefaultPrinter )

la segunda la de Movilla cuando ternmino de poner datareport y pongo el punto no me reconoce el comando Orientation

Segui intentando pero nada. Igualmente le comento nuevamente que mi intencion es cambiar y PREDETERMINAR en la impresora Predeterminada la orientacion de la hoja en Horizontal. y que siempre me quede asi hasta que en algun momento la cambie. pero siempre pulsando clic en un COMMAND1

Si me pueden ayudar valoro lo que hacen.. igualmente valoro muchisimo lo que me han ayudado.. gracias

J.M.Movilla · #5 (**permalink**) 20-10-2007, 09:56:10

Directamente en el Panel de Windows CREA UNA IMPRESORA NUEVA, la misma que tú uses habitualmente pero con el papel orientado en horizontal. La llamas, por ejemplo, "MiPrintHoriz" y o bien la defines como Impresora predeterminada, o bien la seleccionas cada vez que quieras utilizarla.

Andres · #6 (**permalink**) 20-10-2007, 11:58:25

Hola Movilla, si pense en lo que tu me propones, pero yo no quiero que mi cliente valla cada vez que necesite imprimir en Horizontal al panel de control para predeterminar otra impresora.

El problema con el datareport es que cuando haces una vista preliminar y la hoja esta en vertical me dice que no es un ancho adecuado y no me muestra nada... ahora si la pongo en horizontall como debe ser, si me muestra mi resumen de IVA.,..

supongamos que creo una impresora accesoria en horizontal.. como haga para cuando hago un clic en un command1 me predetermine otra impresora. ... O (que seria lo mejor)

--------------------------
Sentencia para predeterminar impresora en horizontal
Datareport1.show
Sentencia para ponerla verticalmente (es decir que este nuevamente en Vertical como al preincipio (asi dejo todo normal)
------------------------------

esto es lo que no puedo hacer, o lo hago haciendo clic en un commnad o directamente que este programado como el caso anterior.
Saludos
Andres

Critical Error · #7 (**permalink**) 20-10-2007, 12:21:05

Hola amigos. Pues Andres, yo he probado el codigo de J.M.Movilla de su primer post:

Cita:

Empezado por J.M.Movilla

Si lo único que necesitas es definir la ORIENTACIÓN del informe, bien podías poner un par de botones para alternar esa característica: DataReport1.Orientation = rptOrientLandscape / DataReport1.Orientation = rptOrientPortrait. O definir la orientación del Printer...; no sé cuál es tu caso.

...y funciona perfectamente.

Código:

datareport1.orientation = rptOrientLandscape
datareport1.show
datareport1.orientation = rptOrientPortrait

Saludos.

Andres · #8 (**permalink**) 21-10-2007, 19:18:29

Hola, estimado amigos no funciona.. aca les muestro el error

me da el problema en el Orientation, no lo reconoce.. "no se encontro el metodo o nombre de datos"
Saludos
y Gracias

Andres · #9 (**permalink**) 27-10-2007, 12:30:53

Hola Amigos.. otra vez yo.. El tema que no lo puedo hacer funcionar y
datareport1.orientation.... no reconoce la computadora el metodo de datos...

Bueno, voy a preguntar de otra forma haber si podemos llegar a una solucion.

Si uso la sugerencia de J.M.Movilla, en el panel de control creo otra impresora que ya tenga predeterminada la hoja en horizontal.
Como hago en programacion para elegir otra impresora? supongamos que tengo la epson1 (vertical) y epson2 (horizontal) y siempre esta predeterminada la Epson1 como puedo hacer para que cuando mi cliente quiera imprimir me salga automaticamente la Epson2 por programacion (en sierta manera seria elegir una impresora....

Realmente para mi es un lio por eso le pido ayuda.. no se como hacerlo si tienen alguna forma se los voy aa agradecer
(recuerden que programo en Vb6 no en .net y que trabajo con datareport y access (base de datos) y que por lo menos mi vb6 no reconoce el orientation)

gracias
Andres

Critical Error · #10 (**permalink**) 27-10-2007, 14:37:37

Fijate en el post de acalanto (con su permiso acalanto):

Cita:

Empezado por acalanto

Inserta un control Common Dialog en el formulario y utiliza la propiedad ShowPrinter. Te mostrará el formulario de configuración de la impresora establecida por defecto.

Código:

    DefaultPrinter <nombreimpresoradeseada>
    Me.dlgPrinter.ShowPrinter

Espero que te resulte útil.

Puedes poner la impresora epson2 como predeterminada, imprimir, y volver a poner la epson1 como predeterminada.

Saludos.