Carlos, mira yo estoy utilizando VB6 y CR6 con mySql. estas instrucciones son las que utilizo para enviar por ejemplo un Edo. de Cta. sin que el reporte se vea previamente, lo envia directo a la impresora
With CrystalReport1
.Reset
.Connect = "DSN=SisAdm;Database=SisAdm;UID=admin;PWD=epale69"
.ReportFileName = App.Path & "\EdoCtaC.rpt"
.Formulas(0) = "cNumeId= " & Chr$(34) & lcNumeId & Chr$(34)
.Formulas(1) = "cClienteId= " & Chr$(34) & Trim$(lcCliente) & Chr$(34)
.Formulas(2) = "cZonCte= " & Chr$(34) & Trim$(lcZoncte) & Chr$(34)
.Formulas(3) = "cDescEmp= " & Chr$(34) & Trim$(frmCobCte.cbxEmpresa.Text) & Chr$(34)
.Formulas(4) = "cNom= " & Chr$(34) & Trim$(lcNom) & Chr$(34)
.Formulas(5) = "cDom= " & Chr$(34) & Trim$(lcDom) & Chr$(34)
.Formulas(6) = "cCol= " & Chr$(34) & Trim$(lcCol) & Chr$(34)
.Formulas(7) = "cCiu= " & Chr$(34) & Trim$(lcCiu) & Chr$(34)
.Formulas(8) = "cTel= " & Chr$(34) & Trim$(lcTel) & Chr$(34)
' Estas inst. lo envia directo a la impresora
.Destination = crptToPrinter
.PrintReport
.PageLast
' Estas inst. lo envia a la pantalla
' .WindowShowRefreshBtn = True
' .WindowShowCancelBtn = True
' .WindowShowCloseBtn = True
' .WindowState = crptMaximized
' .PrintReport
End With
Suerte !!!