asignar impresora por código a crystal reports

[blascota]

Hola, tengo un grave problema. He intentado asignar la impresora por código aun reporte de crystal reports pero simplemente no me hace caso. el objeto crystal tiene una propiedad que se llama printername y al asignarle el nombre de la impresora simplemente no me hace caso!! Tengo que asignar la impresora cuando estoy diseñando el reporte si no me dice que no tengo impresora predeterminada y si le asigno una impresora en tiempo de diseño pues no me deja cambiarla en tiempo de ejecución, alguien que me pueda ayudar?

[jrp01]

Puedes usar esto:

Código:

crxreport.PrinterSetup Me.hWnd

[blascota]

Muchas gracias pero el código que me enviaste me marca el siguiente error: El objeto no admite esta propiedad o método. .PrinterSetup no me aparece como una propiedad o método de mi objeto crystal. te agradecería mucho una segunda respuesta

[jrp01]

Usas RDC para el reporte?

[blascota]

Uso un objeto del crystal, que quieres decir con un RDC?

[blascota]

Para que te des una idea te voy a pegar un pequeño código que utilizo para desplegar mis reportes.

With MDIForm1.CrystalReport1
.Reset
.DataFiles(0) = MDIForm1.ruta
.ReportFileName = "c:\Archivos de programa\mastersoft\rptFactura.rpt"
.PrinterName = MDIForm1.facturas_final
.PrinterSelect
.Formulas(0) = "strNombreCliente = '" & txtnombre(1) & "'"
.Formulas(1) = "strDireccion = '" & txtdireccion(1) & "'"
.Formulas(2) = "strCiudad = '" & txtciudad(2) & "'"
.WindowShowPrintSetupBtn = True
.WindowShowCloseBtn = True
.WindowShowSearchBtn = True
.WindowParentHandle = MDIForm1.hWnd
.WindowState = crptMaximized
If preview = True Then
.Destination = crptwindow
Else
.Destination = crptToPrinter
.CopiesToPrinter = numerodecopias
End If
'On Error GoTo error
.Action = 1
End With
Exit Function
'error:
' cnn.Execute ("DELETE FROM PARAIMPRIMIR")
' MsgBox "Ha ocurrido un error al imprimir", vbInformation, "Información"
' Exit Function
End Function

[jrp01]

Si usas el OCX puedes hacer esto:
CrystalReport1.PrinterSelect

[blascota]

Espero no enfadarte, lo que pasa es que es muy tedioso para mis clientes tener que seleccionar la impresora cada vez que mandan a imprimir algo. Entonces no quiero que aparezca la ventanita de seleccionar impresora, por eso quiero que la impresora se asigne al crystal mediante código.

[RAGGO]

existe una opcion en visual basic 6.0 que se llama generar Data Report ya intestaste con data report? c

[lucasarts_18]

Estimados:

También tenía este problema, ahora lo solucioné viendo la propia ayuda del crystal donde dice lo siguiente

"PrinterDriver, PrinterName, and PrinterPort, work together to define the printer that the report is to be sent to. All three properties must be set in order to define a new printer. If all three properties are not set, the printer defined in the report will be used. This may be the user's default printer if none has been specified in the report."

Clarito como el agua, jejeje, yo lo solucioné así.-

Código:

Para averiguar los nombre de la impresora por defecto 
 'MsgBox Printer.Port
 'MsgBox Printer.DriverName
 'MsgBox Printer.DeviceName
 Crystal.PrinterDriver = "Winspool"
 Crystal.PrinterName = "\\Backup\HP Deskjet 5400 Series"
 Crystal.PrinterPort = "Ne02"

Esperando que otros amigos tengan el mismo problema se guien como lo hice yo, a mi me funcionó a la perfección.

Obs: Utilizo Vb6 y Crystal 7

Saludos .-

[rikardotavares]

Tengo problemas con el Printer como puedo saber los datos de la impresora, gracias

Iniciado por lucasarts_18

Estimados:

También tenía este problema, ahora lo solucioné viendo la propia ayuda del crystal donde dice lo siguiente

"PrinterDriver, PrinterName, and PrinterPort, work together to define the printer that the report is to be sent to. All three properties must be set in order to define a new printer. If all three properties are not set, the printer defined in the report will be used. This may be the user's default printer if none has been specified in the report."

Clarito como el agua, jejeje, yo lo solucioné así.-

Código:

Para averiguar los nombre de la impresora por defecto 
 'MsgBox Printer.Port
 'MsgBox Printer.DriverName
 'MsgBox Printer.DeviceName
 Crystal.PrinterDriver = "Winspool"
 Crystal.PrinterName = "\\Backup\HP Deskjet 5400 Series"
 Crystal.PrinterPort = "Ne02"

Esperando que otros amigos tengan el mismo problema se guien como lo hice yo, a mi me funcionó a la perfección.

Obs: Utilizo Vb6 y Crystal 7

Saludos .-