Hola Irania.
Sólo tienes que agregar esta línea:
DataReport1.PrintReport True 'donde True es pasa mostrar o no el cuadro estandar de impresión.
Y no va la línea
DataReport1.show 1 ' que sirve para mostrar en pantalla el informe
Acá va algo de ayuda de MSDN
PrintReport (Método)
En tiempo de ejecución, imprime el informe de datos creado con el diseñador de informe de datos.
Sintaxis
objeto.PrintReport(verDiálogo, intervalo, desdePág, hastaPág)
La sintaxis del método PrintReport consta de las siguientes partes:
Parte Descripción
objeto Requerido. Unaexpresión de objeto que da como resultado un objeto de la lista Se aplica a.
verDiálogo Opcional. Una expresión booleana que determina si debe mostrarse el cuadro de diálogo Imprimir.
intervalo Opcional. Establece un entero que determina si se ejecutarán todas o sólo un intervalo de páginas del informe, como se describe en Valores.
desdePág Opcional. Un entero que establece la primera página que se imprimirá.
hastaPág Opcional. Un entero que establece la última página que se imprimirá.
Valores
Constante Valor Descripción
rptRangeAllPages 0 (Predeterminado) Se imprimen todas las páginas.
rptRangeFromTo 1 Tan sólo se imprime el intervalo de páginas especificado.
Tipo devuelto
Long
Comentarios
Si no se proporcionan argumentos para el método, se mostrará un cuadro de diálogo que solicita al usuario la información apropiada.
Saludos.