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

En realidad no quiero imprimir con crystal reports, sino
mediante codigo accediendo al bojeto printer. Y primero
debe seleccionar una impresora, luego establecer sus
propiedades y por ultimo lanzar el documento. De todas
formas, gracias.


Un saludo

Oscar Ferrer

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

.