Imprimer avec pdfcreator (xlpaperletter)

Question

Bonjour, j'ai un problème avec l'impression des documents PDF. J'utilise 'pdfcreator' pour créé les documents PDFs. Ce programme sert sur les ordinateurs de plusieurs personnes. Lorsque je fais le setup de l'imprimante, il y a une fonction qui est la suivante : 'PaperSize = xlpaperletter'. Moi, lorsque je j'enregistre cette portion de code, j'obtient pour : 'PaperSize' = 122 sur mon poste mais si je le fais sur un autre poste, j'obtient : 'PaperZize' = 133 et ainsi de suite sur chacun des poste. Mais sur aucun poste, je vais obtenir : 'PaperZize' = 'xlpaperletter' ou 1 (qui correspond au format 'letter'). Ça m'oblige à faire un code pour trouver tout les chiffres de chaque ordinateur et si la personne change d'ordinateur, je dois recommencer pour trouver son nouveau numéro.

Est-ce que quelqu'un sait pourquoi j'ai des chiffres qui vont de 199 à 133 au lieu d'avoir de 1 ou 'xlpaperletter'. Y-a-t-il possibilité de changer cela dans windows ou pdfcreator ou ailleur?

Voici le code que j'obtient lorsque j'enregistre le setup de l'imprimante pour 'pdfcreator'. Vous pouvez voir que 'xlpaperletter' est bien à 122.

Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = ""
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0.511811023622047)
.TopMargin = Application.InchesToPoints(0.511811023622047)
.BottomMargin = Application.InchesToPoints(0.511811023622047)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = 122
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 85
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = True
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = False
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With

Merci!

Invité · Answer

Vous n'avez pas qu'un problème d'impression, mais aussi de sais au kilomètre et mettre le code sans balise Concernant votre problématique, pourquoi vouloir mettre un chiffre alors qu'il existe "XlPaperLetter" .PaperSize = XlPaperLetter Sinon, je pense que cela est lié au driver d'imprimante installé A+...