Tengo un boton en un formulario el cual al ser presionado por el usuario
deberia producir la impresión de un informe en 3 copias.

No se como hacer para imprimir más de 1 copia.

Por ahora lo tengo solucionado con un

for i = 1 to 3
        DoCmd.OpenReport "rptxx", acViewNormal
next

Pero supongo que debe haber alguna forma más profesional de hacerlo.


RESPUESTAs
==========

DoCmd.OpenReport "reporte", acViewPreview
DoCmd.PrintOut acPages, , , , 3
DoCmd.Close acReport, "reporte"

Otra Respuesta

'Selecciono el informe en la ventana base de datos 
  DoCmd.SelectObject acReport, "InformeTal", True
'Imprimo 3 copias.  
  DoCmd.PrintOut acPages, , , , 3
Si quieres puedes sacar un Inputbox al usuario pidiendole 
el número de copias.