Discussion :

[djack7917]

Bonjour, je cherche désespérément comment faire pour imprimer un état converti en PDF en n'ayant que l'enregistrement sélectionné dans mon formulaire, à savoir N°Enr

voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub Commande161_Click()
 
  Dim strFilename As String
  Dim strReportName As String
  Dim strCriteria As String
     strCriteria = "[N°Enr]='" & Me![N°Enr] & "'"
 
  ' Ouvrir l'état en mode caché
  DoCmd.OpenReport "remise espèces", acViewPreview, strCriteria, , acHidden
 
 
  ' Imprimer en PDF
 DoCmd.OutputTo acOutputReport, "remise espèces", acFormatPDF, strFilename, blnOpenReader
 
  ' Refermer l'état
  DoCmd.Close acReport, "remise espèces"
 
 
End Sub

Seul problème c'est que tout fonctionne jusqu'a la création du PDF, mais lorsque je l'ouvre jai 15 pages alors que je souhaite n'avoir que celle sélectionnée dans mon formulaire

Grrrrrrr

si ququn connait la réponse, se serait formidable
Merci
djack

[madefemere]

Bonsoir,

Au lieu d'ouvrir l'état en mode "caché", il faudrait plutôt ouvrir l'état en mode création et y enregistrer ton filtre.
Donc ce serait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Commande161_Click()
 
Dim strFilename As String
Dim strReportName As String
Dim strCriteria As String
strCriteria = "[N°Enr]='" & Me![N°Enr] & "'"
 
' Ouvrir l'état pour modifier le filtre
DoCmd.OpenReport "remise espèces", acViewDesign,,,acHidden
Reports![remise espèces].Filter = strCriteria 'Filtrer l'état
DoCmd.Close acReport, "remise espèces", acSaveYes 'Fermer et sauver la modification
 
' Imprimer en PDF
DoCmd.OutputTo acOutputReport, "remise espèces", acFormatPDF, strFilename, blnOpenReader
 
End Sub

Cordialement,