XL 2016 Imprimer mon userform en PDF

[ARRU]

Bonjour,
J'aimerais savoir mettre un bouton imprimer sur mon USERFORM afin de l'imprimer en PDF
Merci

 

[patricktoulon]

Bonjour
je t'ai ajouté le bouton "Print" dans le userform
dans l'event je capte l'imprimante actuelle d'excel
je vais chercher si je trouve une imprimante pdf et je la sélectionne
je lance un print avec en amont l'inscription du nom (tu adaptera)
et le dialogue de l'imprimante s'ouvre tu n'a plus qu'a valider
et pour finir je remet l'imprimante par defaut qui etait en place avant

Private Sub Cmb_Print_Click()
  Dim objWMIService As Object, colItems As Object, objItem As Object, actuprinter$
   'UT patricktoulon archive 1278 section imprimante (WMI et wscript.NetWork)
  actuprinter = Application.ActivePrinter
      Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_Printer", , 48)
    For Each objItem In colItems
        If objItem.Name Like "pdf" Then Application.ActivePrinter = objItem.Name: Exit For
    Next
    CreateObject("wscript.shell").SendKeys Me.Name & Format(Date, """_""yyyy-mm-dd")
    On Error Resume Next
    Me.printform
    On Error GoTo 0
    Application.ActivePrinter = actuprinter
End Sub

Patrick

 

[ARRU]

Je te remercie beaucoup pour ce travail
Serait il possible de visualiser avant impression. Car je ne vois pas comment le transcrire dans le code VBA
Merci

 

[patricktoulon]

Bonjour
je t'ai proposé cette solution parce qu'elle simple et propre
je ne vois pas trop l’intérêt d'avoir un aperçu ; l'userform tu l'a sous les yeux

mais si tu veux vraiment un aperçu de la capture ,il va falloir passer par un autre procédé
c'est un peu plus complexe
tu a tous les composante qu'il te faut si tu cherche bien dans les ressources avec mon pseudo

 

[ARRU]

Je te remercie beaucoup pour ce travail
Serait il possible de visualiser avant impression. Car je ne vois pas comment le transcrire dans le code VBA
Merci

L 'aperçu me permettrai de changer la mise en page car à l'instant T l'impression prend une pleine page

 

[patricktoulon]

une version un peu moins simple utilse des api
mais ca va c'est pas l'usine a gaz

 

[ARRU]

Désolé je reviens vers toi je ne sais pas faire
sur mon fichier ça ne fonctionne pas je ne vois pas l’aperçu
on imprime directement

 

[patricktoulon]

tu n'a pas le printpreview??????????????????

 

[ARRU]

tu n'a pas le printpreview??????????????????

NON

 

[patricktoulon]

est ce que tu a au moins la feuille tempocap qui est crée avec la capture?

 

[ARRU]

est ce que tu a au moins la feuille tempocap qui est crée avec la capture?

 

[ARRU]

Bonjour
J'ai régler le PB. j'ai essayé sur ma deuxième machine est çà fonctionne
Je te remercie beaucoup pour ton aide

 

[patricktoulon]

ravi pour toi
mais il faudra regarder pourquoi sur ta machine 1 ça ne fonctionnait pas

 

[ARRU]

patricktoulon​

merci de ce que vous avez déjà fait!
Pourriez vous m'aider à nouveau
s'il y a moyen d'alimenter automatiquement avec les données déjà rempli dans le user forme
- un onglet "Veuves" à partir de la catégorie "F" Colonne O dans base de donnée
- un onglet "ils sont partis"
- un onglet "décorations"
Faite au au mieux, je m'adapterai. car a partir de la base je n'arrive pas a alimenter les autres éléments identique
Merci d'avance

 

[cathodique]

patricktoulon​

merci de ce que vous avez déjà fait!
Pourriez vous m'aider à nouveau
s'il y a moyen d'alimenter automatiquement avec les données déjà rempli dans le user forme
- un onglet "Veuves" à partir de la catégorie "F" Colonne O dans base de donnée
- un onglet "ils sont partis"
- un onglet "décorations"
Faite au au mieux, je m'adapterai. car a partir de la base je n'arrive pas a alimenter les autres éléments identique
Merci d'avance

Bonjour le fil,

@ARRU : ouvre une autre discussion, tu auras plus de chance d'avoir au moins une proposition.

bonne journée