Enregistrer pdf sur une seule page
B
Bonjour,
J'essai d'enregistrer une plage de cellule en pdf, le soucis c'est que je n'arrive pas a faire que tout tienne sur une seule page.
Auriez-vous une idée ? Merci.
ActiveSheet.Range("B2:H" & DerLigneFR).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"TEST" & ".pdf", quality:=xlQualityStandard, includedocproperties:=True, _
ignoreprintareas:=False, from:=1, to:=1, openafterpublish:=Falsea
bonsoir
modification de ta macro
pense a trouver la valeur de DerLigneFR
A+
Maurice
Sub testqsd()
CheminPDF = ActiveWorkbook.Path & "\"
DerLigneFR = 20
ActiveSheet.PageSetup.PrintArea = "$B$2:$H$" & DerLigneFR
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
CheminPDF & "TEST" & ".pdf", quality:=xlQualityStandard, includedocproperties:=True, _
ignoreprintareas:=False, from:=1, to:=1, openafterpublish:=False
End SubB
Merci pour ton aide archer, je viens d'essayer mais malheureusement le résultat est le même.
Je viens de trouver, le problème venait des sauts de page. Un grand merci à toi.