Visual Basic - Reportes en VB6

Hola a todos.

Genero mis reportes con el crystal report que trae el vb5 pero en vista a ciertos problemas de impresion sin solucion he instalado vb6 y he querido hacer los reportes con el generador de reportes del vb6.

Mi pregunta es: Es posible pasar formulas como con el crystal report ? Como se hace ?

Tampoco he podido colocar campos de una tabla que no se relaciona con otras...

Por ejemplo tengo que hacer un archivo maestro de dos tablas relacionadas por un campo pero a la vez tengo otra tabla (sin relacion con las dos anteriores) de la que saco datos de encabezado para nombre y direccion de empresa.
No me deja colocar esos campos porque no se relacionan con las tablas anteriores.

Hay alguna manera de solucionar esto?

Existe algun generador de reportes bueno y gratuito (o no tanto) que pueda bajar de internet para utilizar con VB6 ?

Agradezco cualquier informacion.
Gabriel.

Lo que puedes realizar es una consulta de estos datos y generar una tablilla y la tabla o query que generes lo pasas como RecordSet y listo, ya tendrias tu información como la necesitas.

Este es un ejemplo de como los trabajamos aquí

Private Sub ImprimeIniciativa()
Dim objPrinter As ComPrinter.cPrinter
Dim Reporte As Report

Screen.MousePointer = vbHourglass
On Error GoTo ErrImp

Set objPrinter = New ComPrinter.cPrinter

strQuery = " "

strQuery = " Select LbFolio FOLIO,lb.IcSolRecFin Solicitud_Pago,lb.CbCtaBn CUENTA_FIDELIQ,cbDsc,LbFecMov FECHA,stDsc,ttDsc,LbBenef,LbConcepto,LbInsEsp,PprTnDocP,LbImp " & vbCr & _
" From Libro_Banco lb, Sistema_Transferencia st, Tipo_Transferencia tt, Pago_Programado ppr,Cuenta_Banco cb " & vbCr & _
" Where tfCve = 4 /* tipo de folio (egresos)*/ " & vbCr & _
" and lb.IcSolRecFin is not null " & vbCr & _
" and lb.ttCve = tt.ttCve " & vbCr & _
" and lb.stCve = st.stCve " & vbCr & _
" and lb.IcSolRecFin = ppr.IcSolRecFin " & vbCr & _
" and lb.CbCtabn = cb.CbCtabn " & vbCr & _
" and lbFolio = " & Me.txtLbFolio(iTransferencias).Text

Set RsResultado = objPagoProgramado.Leer(gsDSN_Acceso, strQuery)

If RsResultado.RecordCount <> 0 Then
Set Reporte = New RptPagos

Reporte.Database.SetDataSource RsResultado
Reporte.ReportTitle = UCase("INICIATIVA DE EGRESOS")
Reporte.Sections("Encabezado").ReportObjects("TxtCta").SetText txtcbCtaBn.Text

objPrinter.PrintOptions.Orientation = crPortrait
objPrinter.PrintOptions.PaperSize = crPaperLetter

Call ImprimirObjeto(Reporte, hwnd, objPrinter, SHOW_preview)


Else
MsgBox "No hay datos a Reportar", vbInformation + vbOKOnly, App.Title

End If

Set objPrinter = Nothing
Screen.MousePointer = Default
Exit Sub
ErrImp:

MsgBox "Error al tratar de imprimir" & vbNewLine & Err.Number & Err.Description, vbCritical, App.Title

Set objPrinter = Nothing
Screen.MousePointer = Default
End Sub

previamente ya declaraste una tablita o definición de los datos que requieres.

Espero te ayude esto.