Comment imprimer un fichier "PRN" via code VBA.

Version imprimable

08/03/2012, 15h13
lakhdar16

Comment imprimer un fichier "PRN" via code VBA.
Bonjour,

j'aimerais bien savoir comment envoyer ou imprimer un fichier *.PRN en utilisant un code vba.
j'ai une fonction qui détermine l'emplacement du fichier (associer à la BDD).

code:
Code:

1 2 3 4 5 6 7 8 9 10 Function GetDBLocation() As String Dim db As Database Set db = CurrentDb GetDBLocation = Left(db.Name, Len(db.Name) - Len(Dir(db.Name))) Set db = Nothing End Function
appel Fonction:
Code:

1 2 Dim strFichier as String strFichier = GetDBLocation & "Verso.prn"
merci pour l'aide que vous pouvez m'apporter à l'avance.

Bonjour,

Tu peux utiliser l'API ShellExecute (ça se trouve dans la FAQ).

Ci-dessous, un code un peu remanié, à placer dans un module de code standard :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
        ByVal hwnd As Long, _
        ByVal lpOperation As String, _
        ByVal lpFile As String, _
        ByVal lpParameters As String, _
        ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As Long
 
Public Enum TypeOuverture
 
    imprimer = 1
    ouvrir = 2
 
End Enum
 
Public Sub OuvrirDocument(strCheminFichier As String, Optional Action As TypeOuverture = 2)
 
'--------------------------------------------------------------------------------------------
' Projet          : Interface Windows
' Auteurs         : Romain Puyfoulhoux - http://access.developpez.com
'                   Christophe Warin (Tofalu) - http://access.developpez.com
'                   pour la gestion des erreurs
' Version / Date  : 1.0 / 01.01.2008
' Révision / Date : 1.1 / 11.03.2008 - Modification de l'appel - énumération + passage
'                                      optionnel du type d'action (ouverture ou impression,
'                                      mode ouverture par défaut)
'
' Commentaires    : Permet d'ouvrir un fichier sans déclarer l'application a utiliser
'
'                   Exemple d'appel :
'                   Call OuvrirDocument ("C:\Projets Access\Exemple.doc", ouvrir)
'
'                   La gestion d'erreur doit se faire dans l'appelant. L'erreur peut être
'                   affichée comme ceci.
'
'                   MsgBox Err.Description
'
' Lien            : http://access.developpez.com/faq/?page=Automation#shellexecute
'--------------------------------------------------------------------------------------------
 
    'Déclaration de la variable
    Dim strDescriptionErreur As String
 
    Select Case ShellExecute(0, IIf(Action = ouvrir, "open", "print"), strCheminFichier, vbNullString, vbNullString, 1)
 
        Case 0: strDescriptionErreur = "Le système manque de mémoire ou de ressources, l'exécutable est corrompu ou réallocations non valides."
        Case 2: strDescriptionErreur = "Fichier non trouvé."
        Case 3: strDescriptionErreur = "Chemin non trouvé."
        Case 5: strDescriptionErreur = "Une tentative a été faite pour se lier dynamiquement à une tache, ou il y a eu une erreur de partage ou de protection réseau."
        Case 6: strDescriptionErreur = "La librairie requiert des segments de données séparés pour chaque tâche."
        Case 8: strDescriptionErreur = "Il n 'y a pas assez de mémoire disponible pour lancer l'application."
        Case 10: strDescriptionErreur = "Version de Windows incorrecte."
        Case 11: strDescriptionErreur = "Le fichier exécutable n'est pas correct, il se peut que ce ne soit pas une application Windows, ou qu'il y ait une erreur dans le fichier .EXE;"
        Case 12: strDescriptionErreur = "L'application a été conçue pour un autre système d'exploitation."
        Case 13: strDescriptionErreur = "L'application a été conçue pour MS-DOS 4.0."
        Case 14: strDescriptionErreur = "Le type de fichier exécutable est inconnu."
        Case 15: strDescriptionErreur = "Tentative de chargement d'une application en mode réel."
        Case 16: strDescriptionErreur = "Tentative de charger une seconde instance d'un fichier exécutable contenant plusieurs segments de données qui ne sont pas marqués en lecture seule."
        Case 19: strDescriptionErreur = "Tentative de charger un fichier exécutable compressé. Le fichier doit être décompressé avant d'être chargé."
        Case 20: strDescriptionErreur = "Fichier de librairie liée dynamiquement (DLL) incorrect, une des DLLs requise pour exécuter cette application est corrompue."
        Case 21: strDescriptionErreur = "L'application requiert les extensions Microsoft Windows 32-bit."
        Case 31: strDescriptionErreur = "Il n 'y a pas d'association pour le type de fichier spécifié, ou il n'y a pas d'association pour l'action choisie pour le type de fichier choisi."
 
    End Select
 
    If strDescriptionErreur <> "" Then
 
        Err.Raise vbObjectError + 513, "Librairie - basShellExe - OuvrirDocument", strDescriptionErreur
 
    End If
 
End Sub

Domi2

08/03/2012, 16h05
lakhdar16
Bonjour,

je te remerci pour ta réponse,

j'ai essayé d'appeler la procédure à partir d'un bouton sur click mais je reçois l'erreur d'exécution '-2147220991 (80040201)' disant: il n'y a pas d'association pour le type de fichier spécifié, ou il n'y a pas d'association pour l'action choisie pour le type de fichier choisi .

code:
Code:

1 2 3 4 5 Private Sub Commande15_Click() Dim strFichier As String strFichier = GetDBLocation & "Verso.prn" OuvrirDocument strFichier, ouvrir End Sub
ou ce trouve l'erreur svp.

merci
08/03/2012, 16h07
Domi2

Tu as bien une application qui te permet d'ouvrir ces fichiers .prn, non ?
08/03/2012, 16h13
lakhdar16

je m'explique ...au début, je voulais à partir de ma base de donnée Access imprimer un fichier Word (c'est fait) puis j'ai pensé à une autre solution, convertir le fichier ( Option d'impression : imprimer dans un fichier) et au lieu d'ouvrir le fichier word chaque fois que je veux l'imprimer , j'envoie le fichier prn à l'imprimante pour l'impression.

un type comme sendfile to printer

voila c'est ce que je voulais.

merci à vous.
08/03/2012, 16h21
Domi2

Ok, je comprend mieux (je ne voyais pas trop pourquoi ouvrir ou imprimer un fichier .prn).

Là, je n'ai pas d'idée, le code que je t'ai indiqué fonctionne parfaitement pour un document Word, par exemple, mais ne fait pas ce que tu demandes.

Domi2
08/03/2012, 16h55
lakhdar16

Bonjour,

finalement je pense que je vais revenir à ma première solution car les fichier "prn" dépend des pilotes de l'imprimante choisie, si on change l'imprimante le fichier ne sera pas imprimer.

merci à vous.
08/03/2012, 18h55
Domi2

Alors dans ce cas, le code donné plus haut fonctionne parfaitement.

Le recours à cette API offre l'avantage de ne pas avoir à spécifier quelle application utiliser pour ouvrir ou imprimer un fichier.

C'est défini par l'association faite dans les options des dossiers.

Domi2