XL 2010 Option enregistrer sous PDF

[velpa]

Bonjour à toutes et a tous,
J'utilise un programme de devis et facture sous excel ou il est possible de faire une pré visualisation avant impression, et je voudrais avoir la possibilité de faire un enregistrement sous PDF, mais apparemment les option ont été limités.
voici le code de prévisualisation :
Private Sub CommandButton4_Click()
If fact = 10000 Then Exit Sub
imprim
dep.Hide
Feuil4.PrintPreview
Feuil3.Select
dep.Show
End Sub

Merci de votre aide.

 

[WTF]

Bonjour Velpa,
Ci dessous un exemple de code pour enregistrer en pdf

Sub EnregistrerPDF()
'
' EnregistrerPDF Macro
'

'
    ChDir "C:\DOSSIER DE DESTINATION"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\DOSSIER DE DESTINATION\NOM DU FICHIER.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub

 

[velpa]

Bonjour Velpa,
Ci dessous un exemple de code pour enregistrer en pdf

Sub EnregistrerPDF()
'
' EnregistrerPDF Macro
'

'
    ChDir "C:\DOSSIER DE DESTINATION"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\DOSSIER DE DESTINATION\NOM DU FICHIER.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub

Merci pour votre réponse.
Je peux l'ajouter a la suite du code que j'ai donné ?

 

[velpa]

En fait je pense que l’aperçu avant impression a été bridé, car il n'y a pas toutes la bande de commande.