Vba exporter en format pdf

Résolu
noe2008 Messages postés 184 Date d'inscription   Statut Membre Dernière intervention   -  
 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



Configuration: Windows / Chrome 79.0.3945.130
A voir également:

2 réponses

cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
0