[VB] Automation Impression

Bonjour à tous,

je pilote depuis un programme en VB un fichier excel. Quand vient le temps de l'imprimer, je dois définir la propriété PaperSize de PageSetup car certaine imprimante imprime mal mon document sinon.

ActiveSheet.PageSetup.PaperSize = xlPaperLetter

est-ce que quelqu'un connait une autre façon de définir le format de la page. VB ne prend pas le xlPaperLetter. J'ai essayé en texte, du genre:

ActiveSheet.PageSetup.PaperSize = "Lettre US (215,9 x 279,4 mm)"

mais ça ne fonctionne pas.

Merci

Salut le forum

Tu parles de VB...

Dim XL As Excel.Application
Set XL = CreateObject("Excel.Application")
.....
With XL.ActiveSheet.PageSetup
.PaperSize = xlPaperLetter
End With

Pas vraiment certain si cela fonctionnne, tu peux tester...

Mytå

Bonjour Mytå,

pour ton code, c'est à peu de choses près ce que j'avais testé et VB n'acceptait pas la commande xlPaperLetter. J'ai finalement trouvé sur le net une page obscure qui liste les constante pour Excel 2003. On peut remplacer xlPaperLetter par 1.

J'ai pas testé sur les autres versions d'excel. Si ça t'interresse, j'ai contourné le problème en VB.NET par ceci qui fonctionne:

Dim MonPaperSize As New Microsoft.Office.Interop.Excel.XlPaperSize

MonPaperSize = Microsoft.Office.Interop.Excel.XlPaperSize.xlPaperLetter
FeuilleLivraison.pagesetup.papersize = MonPaperSize

Merci de ton aide

Math