Visual Basic - Predeterminar una impresora...

HOLA ANTES QUE NADA LES AGRADEZCO EL TIEMPO QUE SE HAN TOMADO PARA ATENDER A ESTE MENSAJE DE AYUDA, EL PROBLEMA ES EL SIGUIENTE, TENGO UN PROGRAMA HECHO EN VB6 DONDE MANDO A IMPRESION REPORTES HECHOS EN CRYSTAL REPORTS 8, EL DETALLE ES QUE TENGO UNA MINIPRINTER Y UNA IMPRESORA DE MATRIZ DE PUNTOS EN RED, SI YO MANDO UNA FACTURA QUIERO QUE ME MANDE IMPRIMIR DIRECTAMENTE A DE MATRIZ DE PUNTOS Y SI ES TICKET A LA MIPRINTER, NECESITO SABES SI HAY ALGUN CODIGO PARA DE FORMA DIRECTA EN EL VISUAL BASIC YO CAMBIE LA IMPRESORA QUE ESTE PREDETERMINADA Y ASI ESTAR CAMBIANDO ESO AUTOMATICAMENTE QUE LO HAGA EL PROGRAMA. LA VERDAD NO Y NI TENGO IDEA POR EL MOMENTO LO ESTOY HACIENDO MANUAL TENGO QUE ENTRAR A IMPRESORAS Y ESTAR CAMBIE Y CAMBIE LA IMPRESORA PRETERMINADA.

EN VERDAD SI ME PUEDEN AYUDAR SE LOS AGRADEZCO DE ANTEMANO.

SALUDOS¡¡¡

Esto se soluciona, pinchande boton_derecho en el reporte, propiedades del documento, ajustar impresora o impresion. hay te sale todo todito todo.

Bueno pues yo hice lo mismo asi que tratare de ayudarte lo mas que pueda..

yo no pude cambiar una impresora predeterminada (porque no se puede desde vb) pero si pude enlistar las impresoras y seleccionar donde voy a imprimir aqui te dejo el codigo y espero te sirva.

'En un formulario pones un combo y un boton'

Private Sub Form_Load()
Dim x As Printer

For Each x In Printers
Combo1.AddItem x.DeviceName
Next

End Sub

Private Sub Command1_Click()
Set Printer = Printers(Combo1.ListIndex)

Printer.ScaleHeight
Printer.Font = "Verdana"
Printer.CurrentY = 1150
Printer.FontSize = 14
Printer.Print "ESTO ES LO QUE SE IMPRIMIRA EN LA LINEA 1"
Printer.Print "ESTO ES LO QUE SE IMPRIMIRA EN LA LINEA 2"
Printer.Print "ESTO ES LO QUE SE IMPRIMIRA EN LA LINEA ..."
Printer.Print "ESTO ES LO QUE SE IMPRIMIRA EN LA LINEA N"
Printer.EndDoc

End Sub

'Espero te haya servido,, saludosss

Bueno pues yo hice lo mismo asi que tratare de ayudarte lo mas que pueda..

yo no pude cambiar una impresora predeterminada (porque no se puede desde vb) pero si pude enlistar las impresoras y seleccionar donde voy a imprimir aqui te dejo el codigo y espero te sirva.

'En un formulario pones un combo y un boton'

Private Sub Form_Load()
Dim x As Printer

For Each x In Printers
Combo1.AddItem x.DeviceName
Next

End Sub

Private Sub Command1_Click()
'SE ESTABLECE LA IMPRESORA DONDE SE ENVIARA A IMPRIMIR
Set Printer = Printers(Combo1.ListIndex)

Printer.Font = "Verdana"
Printer.CurrentY = 1150
Printer.FontSize = 14
Printer.Print "ESTO ES LO QUE SE IMPRIMIRA EN LA LINEA 1"
Printer.Print "ESTO ES LO QUE SE IMPRIMIRA EN LA LINEA 2"
Printer.Print "ESTO ES LO QUE SE IMPRIMIRA EN LA LINEA ..."
Printer.Print "ESTO ES LO QUE SE IMPRIMIRA EN LA LINEA N"
Printer.EndDoc

End Sub

'Espero te haya servido,, saludosss

Private Sub Command2_Click()
Dim obj_Impresora As Object

Set obj_Impresora = CreateObject("WScript.Network")

obj_Impresora.setdefaultprinter "nombre de la impresora"

Set obj_Impresora = Nothing


End Sub

De esta forma anda perfecto, lo que si agregenle si quieren ,no obligatorio, un "On Error Goto....." por si el nombre de impresora que ingresan no es valida, que lo disfruten

Hola.
Buena Pablo, si lo anidas esto a tu codigo tomando encuenta q cNombPrinter el impresora que buscas para imprimir.


Dim Pr as printer
For Each Pr In Printers
If Pr.DeviceName = cNomPrinter Then
' codigo para predeterminar impresoras
End
Next Pr
' cNomPrinter es una variable

Aparte que métodos mas tiene ("WScript.Network") .

Saludos.

PON PREDETERMINADA LA IMPRERORA GRANDE

Y COLOCA ESTE CODIGO EN TU PROGRAMA


For Each prnPrinter In Printers
If prnPrinter.DeviceName = nombreImpreTickes Then
Set Printer = prnPrinter
Exit For
End If
Next

BUSCA COMO WINDOWS LA DIO D ELATA ALA MINI
nombreImpreTickes