XL 2016 enregistre en pdf ou imprimer une userform

[MOEZ-TUN]

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]

Salut, en adaptant ceci à ton contexte

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

 

[MOEZ-TUN]

merci

ok ca marche mais moi je veut imprime le userform

 

[kiki29]

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