seleccionar impresora

Necesitas dos objetos: Un CrystalReport y un CommonDialog en tu formulario.

CommonDialog1.Flags = cdlPDHidePrintToFile
CommonDialog1.Flags = cdlPDPageNums
CommonDialog1.CancelError = True
On Error GoTo errorimpresion:
CommonDialog1.ShowPrinter
On Error GoTo 0
crystal1.ReportFileName = "C:\PRUEBA.rpt"
crystal1.Destination = crptToWindow
crystal1.WindowLeft = 100
crystal1.WindowTop = 100
crystal1.WindowTitle = "Listado"
crystal1.RetrieveDataFiles
On Error GoTo errorimpresion:
crystal1.Action = 1
Exit Sub
errorimpresion:
If Err.Number = 32755 Then
On Error GoTo 0
Else
MsgBox "Error número : " & Err.Number & " " & Err.Description &
" Error al generar el listado.", vbCritical, "Error"
On Error GoTo 0
End If
Exit Sub
End If

Un saludo!


Saúl Cintero
Dep. Informática
TransNatur Norte S.L

"dj_mxb" escribió en el mensaje
news:06c301c34757$d8950ec0$

hola grupo, mi problema es que tengo un programa que
manda reportes a una impresora Epson FX880, pero tambien
a la hora de vender saca tiket en un miniprinter epson,
los dos son paralelos. el problema es que cuando
desconecta una impresora para conectar la otra tiene que
entrar al panel de control a cambiar la impresora
predeterminada.

Como puedo hacer para que mi programa seleccione solo la
impresora, para que el usuario solo tenga que desconectar
y conectar los cables.

Los reportes los imprimo en crystal Report y el tiket lo
imprimo con el metodo Printer.Prit

Gracias por su ayuda !!!

"dj_mxb" escribió en el mensaje
news:06c301c34757$d8950ec0$

hola grupo, mi problema es que tengo un programa que
manda reportes a una impresora Epson FX880, pero tambien
a la hora de vender saca tiket en un miniprinter epson,
los dos son paralelos. el problema es que cuando
desconecta una impresora para conectar la otra tiene que
entrar al panel de control a cambiar la impresora
predeterminada.

Como puedo hacer para que mi programa seleccione solo la
impresora, para que el usuario solo tenga que desconectar
y conectar los cables.

Puedes llamar a SetPrinter (definida a continuación), pasando como
argumento el nombre de la impresora tal como aparece en la lista de
impresoras de Windows (por ejemplo "Generico/Solo Texto" o "EPSON LX-300").

Public Function SetPrinter(sPrinterName As String) As Boolean
Dim i As Integer
For i = 0 To Printers.Count - 1
If (UCase(Printers(i).DeviceName) = UCase(sPrinterName)) Then
Set Printer = Printers(i)
SetPrinter = True
Exit Function
End If
Next
SetPrinter = False
End Function

Salud!

Leonardo
MS MVP