Macro qui force à imprimer avec PDFCreator
Fermé
Lambico
Messages postés
17
Date d'inscription
jeudi 4 février 2010
Statut
Membre
Dernière intervention
22 juillet 2021
-
21 févr. 2010 à 14:06
catgatcha - 31 mai 2013 à 17:59
catgatcha - 31 mai 2013 à 17:59
A voir également:
- Macro qui force à imprimer avec PDFCreator
- Pdfcreator - Télécharger - PDF
- Journal de ma naissance gratuit à imprimer - Télécharger - Histoire & Religion
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Supprimer un fichier de force - Guide
- Demarrage forcé pc - Guide
5 réponses
Gord21
Messages postés
918
Date d'inscription
samedi 21 novembre 2009
Statut
Membre
Dernière intervention
20 mars 2013
289
22 févr. 2010 à 12:51
22 févr. 2010 à 12:51
Bonjour,
Tu peux utiliser l'évènement BeforePrint de ton classeur pour lancer ton impression, comme ça, c'est transparent pour l'utilisateur.
Tu peux utiliser l'évènement BeforePrint de ton classeur pour lancer ton impression, comme ça, c'est transparent pour l'utilisateur.
Lambico
Messages postés
17
Date d'inscription
jeudi 4 février 2010
Statut
Membre
Dernière intervention
22 juillet 2021
1
24 févr. 2010 à 08:31
24 févr. 2010 à 08:31
Salut j'ai pas trouvé comment utiliser cette commande dans mon classeur, aurait-tu une syntaxe d'exemple?
Merci
Merci
Gord21
Messages postés
918
Date d'inscription
samedi 21 novembre 2009
Statut
Membre
Dernière intervention
20 mars 2013
289
24 févr. 2010 à 12:34
24 févr. 2010 à 12:34
Bonjour,
Tu va das VBA, tu double-clic sir ThisWorkbook dans la fenêtre projet.
Ensuite, tu tapes le code :
Il faut peut-être adapter en fonction de ta configuration. Pour connaître le code, tu utilises l'enregistreur de macro : tu t'assure que l'imprimante par défaut est une autre imprimante que PDFCreator, tu lance sl'enregistreur de macro, tu imprimes en utilisant PDFCreator, tu arrêtes l'enregistrement, tu récupères le code.
Tu va das VBA, tu double-clic sir ThisWorkbook dans la fenêtre projet.
Ensuite, tu tapes le code :
Private Sub Workbook_BeforePrint(Cancel As Boolean) ' ' Lancement de l'impression par PDFCreator Application.ActivePrinter = "PDFCreator sur Ne00:" ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""PDFCreator sur Ne00:"",,TRUE,,FALSE)" ' End Sub
Il faut peut-être adapter en fonction de ta configuration. Pour connaître le code, tu utilises l'enregistreur de macro : tu t'assure que l'imprimante par défaut est une autre imprimante que PDFCreator, tu lance sl'enregistreur de macro, tu imprimes en utilisant PDFCreator, tu arrêtes l'enregistrement, tu récupères le code.
D_D_Du_06
Messages postés
80
Date d'inscription
jeudi 3 janvier 2008
Statut
Membre
Dernière intervention
10 mars 2010
84
24 févr. 2010 à 09:02
24 févr. 2010 à 09:02
Bonjour,
en mettant à jour les informations portant sur les imprimantes, une petite macro Excel 2003:
----------------------------
Sub PrintPdf()
Application.ActivePrinter = "PDFCreator sur Ne00:" ' sélectionne ici l'imprimante Pdf à actualiser en fonction de la machine
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PageManager PDF Writer sur Ne01:", Collate:=True
Application.ActivePrinter = "Microsoft XPS Document Writer sur Ne02:" ' reselectionne ici l'imprimante par défaut à actualiser en fonction de la machine
End Sub
---------------------------
Voilà
A+
D D du 06
en mettant à jour les informations portant sur les imprimantes, une petite macro Excel 2003:
----------------------------
Sub PrintPdf()
Application.ActivePrinter = "PDFCreator sur Ne00:" ' sélectionne ici l'imprimante Pdf à actualiser en fonction de la machine
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PageManager PDF Writer sur Ne01:", Collate:=True
Application.ActivePrinter = "Microsoft XPS Document Writer sur Ne02:" ' reselectionne ici l'imprimante par défaut à actualiser en fonction de la machine
End Sub
---------------------------
Voilà
A+
D D du 06
Lambico
Messages postés
17
Date d'inscription
jeudi 4 février 2010
Statut
Membre
Dernière intervention
22 juillet 2021
1
24 févr. 2010 à 13:14
24 févr. 2010 à 13:14
Hello merci bien pour les réponses, les deux fonctionnent bien, j'ai choisis la seconde qui corespond mieux à ma feuille.... un grand merci.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Gord21
Messages postés
918
Date d'inscription
samedi 21 novembre 2009
Statut
Membre
Dernière intervention
20 mars 2013
289
24 févr. 2010 à 17:42
24 févr. 2010 à 17:42
OK. Pense à mettre la discussion en statut Résolu :-)