Seleccion de 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


"Oscar Ferrer" escribió en el mensaje
news:035101c349f8$7ebe3ea0$

Hola a todos,

Necesitaria saber como seleccionar una impresora mediante
el CommonDialog, establecer sus propiedades en el mismo y
activar dicha impresora con sus correspondientes
propiedades para posteriormente imprimir un documento por
esta impresora.

Si no es posible realizar la operacion mediante la
secuencia comentada anteriormente, como puedo seleccionar
una impresora y establecer sus propiedades para realizar
la impresion de un documento.

Un Saludo

Oscar Ferrer