Vba exporter en format pdf
Résolu
noe2008
Messages postés
184
Date d'inscription
Statut
Membre
Dernière intervention
-
Icare -
Icare -
Salut les amis,
Je souhaite modifier un peu ma macro
au lieu d'envoyer des pages vers l'imprimante par défaut je préfère les exporter en format pdf en un seul fichier vers le bureau
merci d'avance
Macro :
Sub imprimer()
Range("A12") = 1
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Dim i As Integer
i = Range("A12")
For i = 1 To Range("E1").Value
If Range("E1") >= Range("F40") Then
Range("A12") = Range("A12") + 6
i = i + 6
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
End If
Next
End Sub
Je souhaite modifier un peu ma macro
au lieu d'envoyer des pages vers l'imprimante par défaut je préfère les exporter en format pdf en un seul fichier vers le bureau
merci d'avance
Macro :
Sub imprimer()
Range("A12") = 1
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Dim i As Integer
i = Range("A12")
For i = 1 To Range("E1").Value
If Range("E1") >= Range("F40") Then
Range("A12") = Range("A12") + 6
i = i + 6
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
End If
Next
End Sub
Configuration: Windows / Chrome 79.0.3945.130
A voir également:
- Export pdf excel vba
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Save as pdf office 2007 - Télécharger - Bureautique
- Déplacer colonne excel - Guide