Hope this helps a bit:
VB Code:
Private Sub genera_htm()
Screen.MousePointer = vbHourglass
CrystalReport1.ReportFileName = "f:\bodega\reportes\revisionhtm.rpt"
CrystalReport1.SelectionFormula = "{revision_general.referencia} ='" & FormMain.Text1.Text & "'" & " and {revision_general.factura} = '" & FormMain.Text2.Text & "'" & " and {detalle.referencia} = '" & FormMain.Text1.Text & "'" & " and {detalle.factura} = '" & FormMain.Text2.Text & "'"
CrystalReport1.Destination = crptToFile
CrystalReport1.PrintFileName = "c:\bodega\revision.htm"
CrystalReport1.PrintFileType = crptHTML32Std
CrystalReport1.PrintReport
Screen.MousePointer = vbNormal
End Sub