XL 2010 Option enregistrer sous PDF

velpa

XLDnaute Nouveau
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

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

VB:
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

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

VB:
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é ?
 

Discussions similaires

Réponses
3
Affichages
473

Statistiques des forums

Discussions
311 719
Messages
2 081 881
Membres
101 829
dernier inscrit
listener75