XL 2016 enregistre en pdf ou imprimer une userform

MOEZ-TUN

XLDnaute Occasionnel
bonjour
Pour enregistre en pdf ou imprimer une userform je utilise cet fonction:

Private Sub CommandButton5_Click()
UserForm1.PrintForm
End Sub


Mais chaque fois il faut change l'imprimante par défaut.
Est ce que je peux definir le type de l'imprimante, et pour l'enregistre en pdf comment je definir le chemin.
Merci
 

kiki29

XLDnaute Barbatruc
Salut, en adaptant ceci à ton contexte
Code:
Option Explicit

Sub Tst_PDF()
Dim sPrinterDefault As String
Dim sChemin As String, sNom As String

    sPrinterDefault = Application.ActivePrinter

    Application.ActivePrinter = "Adobe PDF sur NE07:"

    sChemin = ThisWorkbook.Path
    sNom = sChemin & "\" & "Datas.pdf"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                    Filename:=sNom, _
                                    Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, _
                                    OpenAfterPublish:=False

    Application.ActivePrinter = sPrinterDefault
End Sub

ou en regardant ici : Excel 2007 Sauver une UserForm en PDF
 

Discussions similaires

Réponses
2
Affichages
252