Hola a todos, para imprimir pongo lo siguiente:

crReport.PrinterSetup Me.hwnd

crReport.PrintOut False

Set crParamDefs = crReport.ParameterFields

For I = 1 To crReport.Database.Tables.Count Step 1
crReport.Database.Tables(1).SetLogOnInfo "arriba", "micro", "sa", ""
Next I

CRViewer.Zoom 100
CRViewer.ReportSource = crReport
CRViewer.DisplayGroupTree = False
CRViewer.ViewReport
Screen.MousePointer = vbDefault
Set crParamDefs = Nothing
Set crParamDef = Nothing

El tema que aunque toque en el boton cancelar, envia igualmente la impresión. Que estoy haciendo mal ?
Gracias de antemano y saludos cordiales.

Fabian