XL 2010 Option enregistrer sous PDF

velpa · 13 Novembre 2019

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 · 13 Novembre 2019

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 · 13 Novembre 2019

WTF à dit:

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

velpa · 13 Novembre 2019

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

XL 2010 Option enregistrer sous PDF

velpa

XLDnaute Nouveau

WTF

XLDnaute Impliqué

velpa

XLDnaute Nouveau

velpa

XLDnaute Nouveau

Discussions similaires