Discussion :

[patbeautifulday]

Bonjour

J'ai besoin d'exporter un état ACCESS en pdf, j'ai donc trouvé ce tutoriel de Charles A. (ou cafeine). mais j'ai un problème à l'appel de la fonction Sub ScanPDFfiles():

Code :

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

1
2
3
4
5
6
7
Sub ScanPDFfiles()
' traitement des fichiers en file d'attente
 
Dim strPath As String, currFile As String
Dim rec As DAO.Recordset
Dim fso As New FileSystemObject
Dim intCount As Integer

Il me dit "Type défini par l'utilisateur non défini" et surligne cette ligne :

Code :

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

Dim fso As New FileSystemObject

Pou info, voici mon code d'appel de la fonction getPDF :

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
Private Sub print_Click()
    Dim str As String
    str = Forms!formentrepot.entrepot.Column(1) & " warehouse Scorecard : week " & txtsemaine.Value
 
    MEP = MsgBox("Do you want to print " & str & " ?", vbOKCancel, "Print warehouse scorecard")
    If MEP = 1 Then
        'DoCmd.OpenReport "pageprinc", acViewPreview, , , , str
        getPDF ("pageprinc")
    Else
        Exit Sub
    End If
 
'    Reports("pageprinc").titre = str
'    getPDF ("pageprinc")
 
 
End Sub

C'est peut-être un problème de référence non définie ? Personnellement je ne vois pas laquelle çà pourrait être.

Merci de votre aide

[Jean-Philippe André]

salut,
il s'agit de la référence Microsoft Scripting Runtime qui doit etre cochée

[patbeautifulday]

Merci jpcheck

çà marche, et le processus va un peu plus loin, mais malheureusement, une erreur survient avec une boîte de dialogue dont le message d'erreur est :

Code :

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

3270 - Propriété non trouvée

le débogueur ne se lance pas.

Si tu vois d'où çà peut venir, çà me dépannera, mais je crois que je vais laisser tomber cette solution d'automatisation.

[patbeautifulday]

J'ai trouvé finalement une solution beaucoup plus simple pour imprimer mon état en pdf. Je n'utilise que 2 fonctions du code de Cafeine : SwitchDefaultPrinter et GetDefaultPrinter, pour modifier l'imprimante par défaut, puis j'ouvre l'état en mode normal, ce qui revient à lancer une impression sur l'imprimante virtuelle PdfCreator. Quand tout est fini, je re-switche sur l'ancienne imprimante par défaut :

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
Private Sub print_Click()
    Dim strOldPrinter As String
    Dim str As String
 
    strOldPrinter = GetDefaultPrinter
    SwitchDefaultPrinter "PDFCreator"
 
    str = Forms!formentrepot.entrepot.Column(1) & " warehouse Scorecard : week " & txtsemaine.Value
 
    MEP = MsgBox("Do you want to print " & str & " ?", vbOKCancel, "Print warehouse scorecard")
    If MEP = 1 Then
        DoCmd.OpenReport "pageprinc", acViewNormal, , , , str
    Else
        Exit Sub
    End If
    SwitchDefaultPrinter strOldPrinter
End Sub

Si l'on veut générer un fichier, il suffit de paramétrer l'option "auto-save" de PdfCreator.

Et voilà le travail !
Puisse celà servir à d'autres, c'est mon seul souhait.

et merci à jpcheck d'avoir consacré un peu de temps à ce post.