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