Bonjour à tous,
Après de nombreuses recherches et de nombreux sujets semblables à celui-ci, je n'ai malheureusement toujours pas trouvé solution à mon problème.
Je travaille sur un fichier excel qui possède un Userform prédéfini au format A4, et je souhaiterais l'imprimer en PDF, via l'imprimante virtuelle PDFCreator pour mon cas.
Cependant, je n'arrive pas à changer, par une macro, l'imprimante par défaut. Mon code actuel est celui-ci : (Tiré d'un autre forum)
Private Sub CommandImpression_Click()
Dim Imprimante As String
Imprimante = Application.ActivePrinter
Application.ActivePrinter = "PDFCreator sur Ne04:"
Userform.PrintForm
Application.ActivePrinter = Imprimante
End Sub
L'impression fonctionne mais le programme ne prend pas en compte la ligne indiquant que l'imprimante active est "PDFCreator" donc mon impression se réalise toujours sur l'imprimante par défaut.
Le seul moyen de faire fonctionner mon impression en PDF est de modifier au préalable l'imprimante dans le classeur XL - "Fichier" - "Imprimer" et ensuite dans l'éditeur VBA - "Fichier" - "Imprimer" et changer l'imprimante. Mais ce n'est pas du tout pratique sachant que plusieurs personnes utiliserons ce "Logiciel XL"
J'ai remarquer également qu'il était possible d'utiliser :
Application.Dialogs(xlDialogPrinterSetup).Show
Mais le problème reste encore et toujours le même
Si quelqu'un aurait une solution, ou qui aurait eu le même problème ?
Je vous remercie d'avance !