Imprimir Formulario Actual en Access 97
Hola tengo un programa de facturas hecho con access 97 y quería imprimir el formulario para imprimir la factura actual pero me imprime todas (mediante el comando que crea el botón "imprimir formulario actual") como le limito al formulario actual... GRACIAS!
1 respuesta
Respuesta
Debes agregar un procedimiento como este:
---------
Private Sub Factura_Click()
On Error GoTo Err_Factura_Click
Dim stDocName As String
'Vista previa del informe de factura de compra
stDocName = "Factura de Bodega"
DoCmd.OpenReport stDocName, acPreview, , "[No_Factura]=Forms!Facturas![No_Factura]"
Exit_Factura_Click:
Exit Sub
Err_Factura_Click:
MsgBox Err.Description
Resume Exit_Factura_Click
End Sub
------------
Donde relacionas el número de la factura del Form con el No de la factura del informe.
---------
Private Sub Factura_Click()
On Error GoTo Err_Factura_Click
Dim stDocName As String
'Vista previa del informe de factura de compra
stDocName = "Factura de Bodega"
DoCmd.OpenReport stDocName, acPreview, , "[No_Factura]=Forms!Facturas![No_Factura]"
Exit_Factura_Click:
Exit Sub
Err_Factura_Click:
MsgBox Err.Description
Resume Exit_Factura_Click
End Sub
------------
Donde relacionas el número de la factura del Form con el No de la factura del informe.