Autor Tema: Codigo para Poder Asignar diferente Impresora y Papel en VB  (Leído 8281 veces)

0 Usuarios y 2 Visitantes están viendo este tema.

shmoodr

  • Visitante
Codigo para Poder Asignar diferente Impresora y Papel en VB
« : septiembre 19, 2008, 10:39:36 pm »
Ayuda ---- Necesito saber como ingresar al codigo que controla puertos de impresora, he creado un programa para imprimior recibos... Pero me da lata estar cambiandole las propiedades a la impresora cada ves que imprimo los recibos y luego una hoja tamaño carta...

Por ejemplo: Tengo dos impresoras una matricial y una Injeck
Si dejo como predeterminada la Matricial, el programa me da error cuando mando hojas de reporte... tengo que cambiarme a la Injeck

He hecho un combo donde asignas los puertos y la impresora con su respectivo configuracion pero necesito isignarle el codigo para que sepa cuando imprimir en la matricial y cuando en la Injeck.. les dejo una foto del combo

OK.

Al Perto LPT 1 lo quiero dejar con una impresora y un papel predeterminado y al Puerto LPT 2 Con otra configuracion..

No se si me entienden, pero haber que hondas  gracias




shmoodr

  • Visitante
Codigo para Poder Asignar diferente Impresora y Papel en VB
« Respuesta #1 : septiembre 19, 2008, 10:46:16 pm »
Ayuda ---- Necesito saber como ingresar al codigo que controla puertos de impresora, he creado un programa para imprimior recibos... Pero me da lata estar cambiandole las propiedades a la impresora cada ves que imprimo los recibos y luego una hoja tamaño carta...

Por ejemplo: Tengo dos impresoras una matricial y una Injeck
Si dejo como predeterminada la Matricial, el programa me da error cuando mando hojas de reporte... tengo que cambiarme a la Injeck

He hecho un combo donde asignas los puertos y la impresora con su respectivo configuracion pero necesito isignarle el codigo para que sepa cuando imprimir en la matricial y cuando en la Injeck.. les dejo una foto del combo

OK.

Al Perto LPT 1 lo quiero dejar con una impresora y un papel predeterminado y al Puerto LPT 2 Con otra configuracion..

No se si me entienden, pero haber que hondas  gracias

shmoodr

  • Visitante
Ayuda para asignar puerto de Impresora en BV
« Respuesta #2 : septiembre 19, 2008, 11:16:47 pm »
Ayuda ---- Necesito saber como ingresar al codigo que controla puertos de impresora, he creado un programa para imprimior recibos... Pero me da lata estar cambiandole las propiedades a la impresora cada ves que imprimo los recibos y luego una hoja tamaño carta...

Por ejemplo: Tengo dos impresoras una matricial y una Injeck
Si dejo como predeterminada la Matricial, el programa me da error cuando mando hojas de reporte... tengo que cambiarme a la Injeck

He hecho un combo donde asignas los puertos y la impresora con su respectivo configuracion pero necesito isignarle el codigo para que sepa cuando imprimir en la matricial y cuando en la Injeck.. les dejo una foto del combo

OK.

Al Perto LPT 1 lo quiero dejar con una impresora y un papel predeterminado y al Puerto LPT 2 Con otra configuracion..

No se si me entienden, pero haber que hondas  gracias




Desconectado vlad

  • Global Moderator
  • The Communiter-
  • *
  • Mensajes: 6351
    • Qualium.net
Re: Codigo para Poder Asignar diferente Impresora y Papel en VB
« Respuesta #3 : septiembre 21, 2008, 08:57:25 am »
http://www.daniweb.com/forums/thread22650.html

Si te es inconveniente la información por estar en ingles, no dudes en decirlo y trataré de hacer un ejemplo en español.

Desconectado ernestoelunico

  • The Communiter-
  • *
  • Mensajes: 3088
  • Laa shay'a waqi'un Mutlaq bala kul'un mumkin
    • Cositas E-shop
Re: Codigo para Poder Asignar diferente Impresora y Papel en VB
« Respuesta #4 : septiembre 21, 2008, 04:31:22 pm »
Citar
¿como Imprimir en tamaño especial en Impresoras Matriciales en XP?

respuesta:
bueno yo tope con lo mismo y pedi soporte a Epson.es y me respondieron esto para las impresoras matriciales en windows XP con tamaño de papel "No", standar.

Para XP.

1. Acceda desde el botón INICIO (CONFIGURACIÓN) carpeta IMPRESORAS (Y
FAXES).

2. Seleccione el icono del driver haciendo un clic con el botón izquierdo
marcando el icono de la impresora EPSON.

3. Busque en el menú ARCHIVO la opción PROPIEDADES DEL SERVIDOR.

4. En la pestaña FORMULARIOS, active la casilla de verificación CREAR UN
NUEVO FORMULARIO.

5. Encontrará un cuadro de texto que dice DESCRIPCIÓN DEL FORMULARIO
(Medidas)

6. En este campo escriba un nombre que identifique su papel por ejemplo
NUEVO_FORMULARIO:

7. En el área MEDIDAS encontrará dos cuadros de valores que corresponderán a
la ANCHURA y ALTURA del formulario
que vaya a utilizar, si tiene seleccionado el botón MÉTRICO introduzca los
valores en centímetros.

8. Una vez introduzca las medidas tanto de altura como de anchura, pulse
sobre el botón GUARDAR FORMULARIO para
grabarlo y a partir de ese momento le aparecerá en la lista de la ventana
superior donde se puede escoger el papel
por defecto para esa impresora.

9. A continuación pulse sobre el botón ACEPTAR y le aparecerá para escoger
el nuevo papel NUEVO_FORMULARIO. En la
carpeta de impresoras, pulse el botón derecho del ratón sobre el icono de su
impresora, entre en 'Configuración predeterminada para este documento' y en
la pestaña de avanzadas, seleccione el tamaño de papel personalizado que
hemos creado.

Recuerde que es muy importante además de crear el formulario, definir en
la propia aplicación desde donde se
desea imprimir, el tamaño físico del formulario que deberá coincidir con las
medidas de NUEVO_FORMULARIO.

Esperamos que esta información le sea de utilidad.
ENcotre esto por ahi espero te sea util

Citar
'Esta funcion cambia el objeto printer por la
'impresora que deseamos. Obviamente tenemos que
'conocer el nombre de la misma e ingresarlo correctamente
'===============================================
Public Function CambiarImpresora(Nombre As String) As Boolean
Dim Impresora As Printer 'creo un objeto para la impresora

For Each Impresora In Printers 'recorro todas las impresoras disponibles
    If UCase(Impresora.DeviceName) = UCase(Nombre) Then 'verifico si la impresora actual es la que quiero
        Set Printer = Impresora 'como encontre la impresora la asigno al objeto printer
        CambiarImpresora = True 'informo que se cambio correctamente
    End If
Next
CambiarImpresora = False 'no se encontro la impresora asi que no se pudo asignar
End Function
:yahoo:
« Última Modificación: septiembre 21, 2008, 04:56:21 pm por ernestoelunico »

shmoodr

  • Visitante
Re: Codigo para Poder Asignar diferente Impresora y Papel en VB
« Respuesta #5 : septiembre 21, 2008, 08:10:23 pm »
Gracias mi gente probare con cualquiera yo aviso haber que hondas!!!!