Print to PDF UserForm

Le 11/07/2018 à 22:59

Bonsoir à tous

Pour ceux qui m'on suivi depuis le début j'ai fini mon programme pour mon activité

J'ai crée un bouton pour imprimer mon UserForm

Mais j'aimerais avoir sur un autre bouton la possibilité d'enregistrer l'UserForm actif en PDF ou même en jpeg si c'est plus simple.

J'ai essayer les quelques code que j'ai trouver sur le net et malheureusement rien ne fonctionne :/

Merci à vous

UserForm à enregistrer = UserForm3

Le 12/07/2018 à 08:59

Bonjour geoffrey027,

598mathieu-d-save-to-pdf.xlsm (23.27 Ko)

Cordialement,

Le 12/07/2018 à 17:59

Merci,

Code essayer sa fonctionne +/- mais la qualité du PDF est vraiment médiocre, même pas centrer ...

j'ai essayer plusieurs choses sa change rien,

du coup j'ai recrée une visualisation de mes facture sur excel même sans passer par l'UserForm

et avec le code suivant il m'enregistre en PDF de la bonne dimensions et de bonne qualité

Private Sub CommandButton1_Click()

Sheets("Vision Facture").Activate
ActiveSheet.Cells(6, 13).Value = UserForm2.TextBox100

Worksheets("Vision Facture").Range("B2:J50").ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\Users\Geoffrey\Desktop\RapportTest.pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
    Unload Me

    End Sub

Est ce possible de modifier le chemin et que le nom du fichier soit le n° de la Facture / ou devis qui se situe :

en M6 sur la feuille : Vision Facture ?

Merci