04/04/2008, 03:46
|
 | | | Fecha de Ingreso: agosto-2007
Mensajes: 1.338
Antigüedad: 17 años, 5 meses Puntos: 18 | |
| Re: imprimir informes
Prueba asi:
Dim NumCopias As Integer
NumCopias = Nz(InputBox("Cuantas Copias"), 1)
DoCmd.OpenReport "reporte", acViewPreview
DoCmd.PrintOut acPages, , , , NumCopias
DoCmd.Close acReport, "reporte"
Un saludo |