17/02/2004, 06:17
|
| | | Fecha de Ingreso: febrero-2004 Ubicación: Madrid
Mensajes: 3
Antigüedad: 20 años, 2 meses Puntos: 0 | |
| Al final me busque la respuesta yo solito y lo pongo aqui por si sirve de ayuda.
cree un campo autonumerico llamado registro, luego puse una casilla en que saliera ese numero (NUMERO ) e hize un boton de imprimir con el siguiente codigo:
Private Sub Comando118_Click()
Dim NUMERO As Long
Dim REGISTRO As Long
NUMERO = REGISTRO
On Error GoTo Err_Comando118_Click
DoCmd.PrintOut acSelection, NUMERO, NUMERO
Exit_Comando118_Click:
Exit Sub
Err_Comando118_Click:
MsgBox Err.Description
Resume Exit_Comando118_Click
End Sub |