[access] Impression d'une fiche
Angie
-
Jean-Jacques -
Jean-Jacques -
Bonjour,
J'ai crée en access un formulaire (nom, prenom, adresse,...) ensuite je les affiche un par un à l'écran.
J'aimerais pouvoir imprimer la "fiche" séléctionnée par l'utilisateur.
Je n'ai reussi jusque maintenant qu'à imprimer toutes les fiches.
Pourriez vous me conseiller?
Merci et bonne journée
J'ai crée en access un formulaire (nom, prenom, adresse,...) ensuite je les affiche un par un à l'écran.
J'aimerais pouvoir imprimer la "fiche" séléctionnée par l'utilisateur.
Je n'ai reussi jusque maintenant qu'à imprimer toutes les fiches.
Pourriez vous me conseiller?
Merci et bonne journée
A voir également:
- [access] Impression d'une fiche
- Spouleur d'impression - Guide
- Impression livret a5 - Guide
- Fiche de pointage excel - Télécharger - Tableur
- Historique impression - Forum Imprimante
- Carrefour impression documents - Forum Imprimante
1 réponse
Bonsoir,
Je vous propose un compromis. Avec cette routine sur clic, vous affichez/visualisez la fiche et il suffit alors d'activer l'icone de l'imprimante.
_________________
Private Sub Apercu_Fiche_Click()
On Error GoTo Err_Apercu_Fiche_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Edition d'une fiche"
stLinkCriteria = "[Référence]=" & "'" & Me![Référence] & "'"
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria
Exit_Apercu_Fiche_Click:
Exit Sub
Err_Apercu_Fiche_Click:
MsgBox Err.Description
Resume Exit_Apercu_Fiche_Click
End Sub
________________
Cordialement
La science ne fait que trouver ce qui existe depuis toujours.
Hubert REEVES.
Je vous propose un compromis. Avec cette routine sur clic, vous affichez/visualisez la fiche et il suffit alors d'activer l'icone de l'imprimante.
_________________
Private Sub Apercu_Fiche_Click()
On Error GoTo Err_Apercu_Fiche_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Edition d'une fiche"
stLinkCriteria = "[Référence]=" & "'" & Me![Référence] & "'"
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria
Exit_Apercu_Fiche_Click:
Exit Sub
Err_Apercu_Fiche_Click:
MsgBox Err.Description
Resume Exit_Apercu_Fiche_Click
End Sub
________________
Cordialement
La science ne fait que trouver ce qui existe depuis toujours.
Hubert REEVES.
