A voir également:
- [access] Impression d'une fiche
- Spouleur d'impression - Guide
- Fiche de pointage - Télécharger - Tableur
- Impression ecran windows - Guide
- Impression livret word - Guide
- Logiciel impression photo - Télécharger - Albums photo
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.
