[RESOLU] Impression feuille active en pdf avec pdfcreator

[Icedarts]

Bonsoir à tous,

En fouillant un peu sur le forum j'ai presque trouvé mon bonheur:
Sur ce fil: https://www.excel-downloads.com/threads/archiver-en-pdf.137173/
la macro de pierre93 fonctionne "partiellement"

Voici la macro avec juste une petite modif du nom de fichier et du chemin d'enregistrement:

Sub ToPdf()

Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
NomExcel = Range("D11") & " " & Range("C8")
NomPdf = Left(NomExcel, Len(NomExcel) - 0) & ".pdf"
With pdfjob
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutisaveDirectory") = 1
.cOption("AutosaveDirectory") = "H:\feuilles doublettes"
.cOption("AutosaveFilename") = NomPdf
.cOption("AutosaveFormat") = 0
.cClearCache
End With
Range("A1:H18").PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
With pdfjob
.cDefaultPrinter = DefaultPrinter
.cClearCache
.cClose
End With
Set pdfjob = Nothing

End Sub

Le problème c'est que toute la page ne s'imprime pas.
Je ne sais pas si cela vient de la mais il faut que j'imprime en orientation paysage.
Il manque le bord droit et le bas de la page.

Si quelqu'un sait comment modifier les options de sorti pour les dimensions je suis très intéressé

Merci d'avance.

 

[Icedarts]

Re : Impression feuille active en pdf avec pdfcreator

C'est bon j'ai trouvé plus simple avec l'enregistreur de macro:

    Sub pdf()


  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "H:\feuilles doublettes\" & Range("D11") & " " & Range("C8") & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False


    End Sub

 

[JCGL]

Re : Impression feuille active en pdf avec pdfcreator

Bonjour à tous,

Peux-tu essayer en rajoutant en début de code et en adaptant la zone d'impression et les marges :

With ActiveSheet.PageSetup
        .PrintArea = "$A$1:$P$40"
        .LeftMargin = Application.InchesToPoints(0)
        .RightMargin = Application.InchesToPoints(0)
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With

A+ à tous

 

[Icedarts]

Re : [RESOLU] Impression feuille active en pdf avec pdfcreator

Bonsoir, ton code me donne une erreur de compilation.
Apparemment il n'aime pas le . avant PrintArea

 

[JCGL]

Re : [RESOLU] Impression feuille active en pdf avec pdfcreator

Bonjour à tous,

J'ai changé les balises...

A+ à tous

 

[Icedarts]

Re : [RESOLU] Impression feuille active en pdf avec pdfcreator

le code est valide mais l'impression est toujours tronquée.

 

[JCGL]

Re : [RESOLU] Impression feuille active en pdf avec pdfcreator

Bonjour à tous,

Modifie la PrintArea...
Le code défini une page en hauteur et une page en largeur avec toutes les marges à zéro.

A+ à tous

 

[Icedarts]

Re : [RESOLU] Impression feuille active en pdf avec pdfcreator

oui oui j'ai bien vu j'ai modifié pour mettre la bonne plage mais ça n'a aucune influence sur le résultat.
C'est comme si l'impression se faisait en orientation portrait donc ça coupe à droite mon fichier.
Et ça coupe à peu près à la moitié en hauteur.
En fait un peu comme si je faisais du A5.

Mais bon la solution que j'ai trouvé avec l'enregistreur de macro et en modifiant un peu le fichier fonctionne parfaitement.

Pas la peine de se prendre plus la tête.