Sujet Précédent Sujet Suivant

Vba exporter en format pdf

Résolu/Fermé
noe2008
Messages postés
180
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
3 mai 2022
 - 19 févr. 2020 à 22:42
cs_Le Pivert
Messages postés
7751
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 mai 2022
 - 20 févr. 2020 à 11:30
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

Réponse 1 / 2
cs_Le Pivert
Messages postés
7751
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 mai 2022
 710
20 févr. 2020 à 08:00
Bonjour,

voir ceci:


http://www.mdf-xlpages.com/modules/newbb/viewtopic.php?post_id=7055

0
Réponse 2 / 2
noe2008
Messages postés
180
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
3 mai 2022
 4
20 févr. 2020 à 10:25
Merci cs_Le Pivert pour votre réponse
la macro de mon classeur fait changer la valeur de la cellule A12 ( jusqu'à 200 fois ) en fonction d'elle les données change ( formule recherchv) puis elles sont envoyées vers l'imprimante par défaut
installer une imprimante virtuelle ( Dopdf....) résoudra le problème pour moi mais je dois donner le fichier à d'autres personnes qui surement n'ont aucune imprimante virtuelle sur leur pc et qui souhaitent sauvegarder le résultat ( jusqu'à 200 pages environ selon la valeur de F40 )
0
cs_Le Pivert
Messages postés
7751
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 mai 2022
 710
Modifié le 20 févr. 2020 à 10:47
Regarde les imprimantes virtuelles que tu as sous Windows10



@+ Le Pivert
0
cs_Le Pivert
Messages postés
7751
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 mai 2022
 710 > cs_Le Pivert
Messages postés
7751
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 mai 2022
Modifié le 20 févr. 2020 à 11:36
Sinon enregistrement en PDF de toutes les feuilles comme ceci: 

Sub CreerPDF()
    Dim sRep As String
    Dim sFilename As String
 'Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
    Sheets.Select 'sélection de toutes les feuilles
    sRep = ThisWorkbook.Path & "\"
    sFilename = ThisWorkbook.Name
    sFilename = Left(sFilename, InStr(1, sFilename, ".")) & "pdf"
    ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=sRep & sFilename, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
            MsgBox "Enregistrer en PDF dans le même dossier que ce classeur", vbInformation, "Enregistrement en PDF"
End Sub


Voilà

@+ Le Pivert
0