Seleccionar impresora desde codigo ? - VB-MUNDO

ANCALO · #1 (**permalink**) 12-01-2006, 09:03:23

Hola a todos, de nuevo aqui para exponer una preguntilla.

Se puede seleccionar una impresora ?

Bueno me explico, tengo varias impresoras conectadas en una red, entonces me gustaria definir interiormente en el programa depende que formularo envio a imprimir que la envie a una impresora, u otra.

los nombres de impresora estan introducidos en una base de tatos acces, para cada formulario, por lo cual el programa lee en dicha base de datos la ruta de impresora, pero no se como decir que me imprima en dicha impresora, hasta aui lo estoy haciendo con un CommonDialog, pero me resulta muy engorroso tener que estar seleccionando la impresora cada vez que imprimo algo, y ademas este mela configura como predeterminada.

Espero vuestra ayuda.

Salu2

Alella · #2 (**permalink**) 12-01-2006, 09:41:43

Hola, que tal.

Espero que te sirva este ejemplo.

ANCALO · #3 (**permalink**) 12-01-2006, 16:07:58

Gracias Alfredo por tu ayuda, he utilizado parte de tu código para intentar hacer lo que pretendo, pero no consigo hacer que funcione.

Este es el código que estoy utilizando:

Dim Impr As Boolean
Dim Imprimir As Printer

Impr = False

For Each Imprimir In Printers
ListaImpresoras.AddItem Imprimir.DeviceName

If Imprimir.DeviceName = Impresora Then Impr = True

Next

If Impr = False Then
MsgBox "La impresora " & Impresora & " NO EXISTE, o esta apagada "

With CommonDialog1
.DialogTitle = "Seleccionar impresora"
.flags = cdlPDPrintSetup
.ShowPrinter
End With

Else
Set Printer = Printers(Impresora)
End If

se supone que con este código, si la impresora que tiene definida no existe, este muestra el cuadro de dialogo donde el usuario puede elegir la impresora, y en caso que exista, la sentencia

Set Printer=Printer(Impresora)

yo pensaba que esta sentencia era la que seleccionaba la impresora, pero veo que no es así sigue enviando a imprimir al a predeterminada por windows.

Confió en que alguien me corrija.

Salu2

Alella · #4 (**permalink**) 13-01-2006, 08:30:39

Hola, que tal.

Te paso información de un parte de un programa que tengo en el cual en un formulario defino que impresora voy a utilizar.

Código:


Private Sub Command1_Click()


If Option1.Value = True Then cImprGen = "\\Servidor\Impresora1"
If Option2.Value = True Then cImprGen = "\\Servidor\Impresora2"
If Option3.Value = True Then cImprGen = "\\Servidor\Impresora3"


For Each xPrint In Printers
           If xPrint.DeviceName = cImprGen Then
              ' La define como predeterminada del sistema.
              Set Printer = xPrint
              DoEvents
              Exit For
           End If
Next

Form1.Show


End Sub


Private Sub Form_Load()

List1.Clear
For Each xPrint In Printers
    List1.AddItem xPrint.DeviceName
Next


' Defino la Impresora1 como impresora de pruebas determinada

cImprGen = "\\Servidor\Impresora1"

End Sub

Y luego cuando quiero imprimir sólo tengo que hacer lo siguiente:

Código:

Printer.FontName = "Courier New"
           Printer.FontSize = 9
           Printer.CurrentX = 2.2
           Printer.CurrentY = 0
           Printer.Print Mid(Variable, 2, 42)

En el módulo tengo lo siguiente:

Código:

Public cImprGen As String
Public xPrint As Printer

Espero ayudarte.