en vb.net :
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
dim printer as string
dim req as string
Dim Xeor2 As New ReportDocument()
Xeor2.Load("C:\fichiercrystal.rpt")
Xeor2.PrintOptions.PaperOrientation = PaperOrientation.Landscape
Dim SelectFormula As String
SelectFormula = "{table.champ} = " & req
Xeor2.RecordSelectionFormula = SelectFormula
Xeor2.PrintOptions.PrinterName = printer
Xeor2.PrintToPrinter(1, True, 0, 0)
peut-etre que la solution en vb6 est proche.. je sais pas j'en pratique pas, mais si ca peut t'aider..
.Maytheforcebewithyou.Maxime.