impression 1 page quelque soit l'imprimante

[Phil39]

Bonsoir,

Existe-t-il un moyen d'imprimer une plage de cellules correspondant grosso-modo à du A4 sur n'importe quelle imprimante sans tenir compte des marges de chaque imprimante.

Je m'explique : j'imprime une feuille qui fait office de formulaire papier. Elle se remplie et s'imprime automatiquement.
Sur mon imprimante, j'ai bien un A4 en 1 seule feuille en sortie.
J'ai défini une zone impression mais quand j'imprime sur une autre imprimante ou un copieur, l'impression est sur 2 feuilles.

Je cherche donc un code qui auto-ajusterait l'impression de ma feuille en fonction des paramètres par défaut de l'imprimante X ou Y.

 

[Guest]

Re : impression 1 page quelque soit l'imprimante

Bonsoir Phil,

Essai d'inclure ceci à ta macro:

    With ActiveSheet.PageSetup
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With

Cela correspond à l'option 'Ajuster une page en hauteur sur une page en largeur' des options d'impression.

A+

 

[chris]

Re : impression 1 page quelque soit l'imprimante

Bonjour

L'option ajuster à une page en largeur et en hauteur marche normalement quelle que soit l'imprimante.

 

[Guest]

Re : impression 1 page quelque soit l'imprimante

Hello Chris,

Eh oui😀

A+

 

[chris]

Re : impression 1 page quelque soit l'imprimante

Hello Hasco, bise à toi

Quel ensemble : solution manuelle et par VBA...