Discussion :

[lagratteCchouette]

Bonjour,

Mon problème est que je veux imprimer un état (filtré sur ID) en utilisant PDFCREATOR, mais voilà que cela marche mais impossible d'avoir de la couleur.

En procédure événementielle j'ai ceci.

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
Private Sub BtnPrint_Click()
On Error GoTo Err_BtnPrint_Click_Click
 
  Dim stDocName As String
 
  stDocName = "Rp_rapports-visites"
  DoCmd.OpenReport stDocName, acPrint, , "[ID]=" & Me![ID]
 
Exit_BtnPrint_Click_Click:
  Exit Sub
 
Err_BtnPrint_Click_Click:
  MsgBox Err.Description
  Resume Exit_BtnPrint_Click_Click
End Sub

mais comme c'est impossible de l'avoir en couleur et là j'y perd mon latin, je me suis aperçu que cela marché avec un export PDF.
Donc ne voyant pas comment coder l'export PDF en procédure événementielle, je me suis servi du générateur de code dans access 2010.
et cela donne ça...



Mais mon filtre ne marche pas.

Comment faire s'il vous plaît...

[marot_r]

Bonjour.

J'ai trouvé cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim MyFilter As String
Dim MyPath As String
Dim MyFilename As String
 
MyFilter = ""
MyPath = "S:\Systems\Reports\Report1\"
MyFilename = "Report1.pdf"
 
'Let's print and save. Once you see it works, you can change True to False so that the file created is not opened after completion.
DoCmd.OpenReport "1010_Report1", acViewPreview, , MyFilter
DoCmd.OutputTo acOutputReport, "", acFormatPDF, MyPath & MyFilename, False
 
'Let's close our previewed report
DoCmd.Close acReport, "1010_Report1"

ici : http://www.anysitesupport.com/access...pdf-using-vba/

Je pense que cela va répondre à ton problème et éliminer PDF Creator de l'équation.

A+

[kiki29]

Salut, depuis Office 2007 SP2 le format PDF est inclus en natif dans Office, donc plus besoin d'outils externes pour générer du PDF, sauf si l'on veut les manipuler.

[lagratteCchouette]

D'accord merci beaucoup.