janeth
13 de Agosto del 2003

holas a todos!
necesito imprimir unas consultas que tengo en un recordset. Gracias de antemano!

SnAchk
13 de Agosto del 2003

Dame mas Detalles para ver si te puedo ayudar
adios

alberto
13 de Agosto del 2003

quieres imprimirlo en forma de reporte?
puedes usar el crystal reports para imprimir el informe. Simplemente tienes que guardar tus consultas en la BD, luego con el diseñador de informes del Crystal diseñas el formato de tu reporte y luego lo llamas desde VB.
Aca te mando un procedimiento q uso para lanzar el reporte desde VB con el Crystal.
Public Sub OutReport(CryRptObj As CrystalReport, RptFile As String, Titulo As String, RptAction As Byte, NameDB As String, Optional SelFormula As String, Optional FormulasX As String)
On Error GoTo LimpErr
'procedimiento que lanza un informe
Screen.MousePointer = vbHourglass
CryRptObj.ReportFileName = RptFile 'Nombre del Informe
CryRptObj.WindowTitle = Titulo 'Titulo de la ventana del informe
If Trim(SelFormula) <> "" Then
CryRptObj.SelectionFormula = SelFormula ' Si existe alguna formula
End If
If Trim(FormulasX) <> "" Then
CryRptObj.Formulas(0) = FormulasX 'Si existe alguna formula
End If
CryRptObj.WindowState = crptMaximized 'Estado en el cual va a desplegarse la ventana
CryRptObj.Action = RptAction 'Modo en el cual se disparará el informe (pantalla, impresora)
CryRptObj.Reset 'Resetear el Crystal para otro informe
CryRptObj.DataFiles(0) = NameDB 'Nombre de la BD
Screen.MousePointer = vbDefault
LimpErr:
If Err.Number > 0 Then
MsgBox Err.Description, vbInformation, "Unisoft System"
End If
Err.Clear
Screen.MousePointer = vbDefault
End Sub

Espero q te sirva.

alberto