PB impression fichier .zdl ou PDF (windows VISTA 64bits et Office 32 bits)

[xhudi69]

Bonjour le Forum,

Pour faciliter l'impression d'étiquettes en production (plusieurs centaines de planches), j'aimerais à partir d'EXCEL :
1) ouvrir le fichier
2) l'imprimer
3) le fermer

le fichier à atteindre est un .zdl (Design Pro de AVERY, étiquettes), deux methodes dans le fichier joint, dans le module 1 (je peux l'ouvrir mais pas l'imprimer);
dans le module 2 j'ai un problème de version pour FindWindows et ShellExecute.
Il est à noter que je suis en VISTA 64bits et Office 32bits et qu' en prod je suis en vista32bits et EXCEL2003.

Grand merci pour le temps passé.

@+

 

[xhudi69]

Re : PB impression fichier .zdl ou PDF (windows VISTA 64bits et Office 32 bits)

Bonjour le Forum,

Petite précision:

pour pouvoir faire les essais vous pouvez télécharger ICI le log AVERY.

En PJ un exemple de fichier étiquette que j'aimerais imprimer.

les essais avec des PDF est concluant mais pas avec le fichier étiquette.

Grand merci à vous.

@+

 

[herve62]

Re : PB impression fichier .zdl ou PDF (windows VISTA 64bits et Office 32 bits)

désolé !! encore un site ou il FAUT s'inscrire !!! A éviter
Sinon , t'as pas une astuce pour convertir à la base ton fichier au départ ?? style , exemple : WAV to Mp3 , wmv to Mp4 ..etc

 

[xhudi69]

Re : PB impression fichier .zdl ou PDF (windows VISTA 64bits et Office 32 bits)

Bonjour herve62, le Forum,

merci pour l'intérêt que tu portes à mon fil.

Je suis désolé, je n'ai pas fait attention, tu peux le télécharger avec ce lien Free - Envoyez vos documents
Si on te demande un login, tu mets XHUDI69 2 fois.

Merci pour ta réponse.

@+ 😎

 

[xhudi69]

Re : PB impression fichier .zdl ou PDF (windows VISTA 64bits et Office 32 bits)

Bonsoir herve62, le Forum,

Je pensse avoir résolu mon problème de cette manière.

Sub Macro1()
 Const Chemin = "C:\Users\ARL MULTI\Desktop\"
 Dim NomFic As String, ArgDir As String
 Dim WS As Worksheet
  
Application.DisplayAlerts = False
 
 ArgDir = Chemin & "coucou.zdl"
 NomFic = Dir(ArgDir)
 If NomFic <> "" Then
    
    Application.WindowState = xlMinimized
    ThisWorkbook.FollowHyperlink Chemin & NomFic
    
    Application.Wait (Now + TimeValue("0:00:04"))
        SendKeys "^{p}", True
    Application.Wait (Now + TimeValue("0:00:02"))
        SendKeys "{ENTER},true"
        SendKeys "{NUMLOCK}", True
    
 End If
End Sub

Par contre, est-ce la bonne méthode 😕 mais elle fonctionne.

Dernière chose, comment éviter cette dernière alerte système?


@+