Vba exporter en format pdf
Résolu
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
2 réponses
-
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 )-
-
Contributeur@cs_Le PivertSinon 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 -
@cs_Le Pivert
Bonjour, moi j’ai un problème c’est qu’il n’accepte pas les deux point égale il me mets un message d’erreur
-
