Discussion :

[Basicnav]

Bonjour à tous,

je suis très intéréssé par ce sujet, j'ai lu le post sur msdn mais malgré cela je n'y parvient pas

J'ai donc créer un fichier avec un module, jusque là pas de problème, mais que faire de la seconde partie du code donné ????
Comment la mettre en oeuvre, elle n'est pas à mettre dans le même module tout de même ?

Merci pour vos explication et votre aide, je sèche

[EJO64]

Bonjour,

Je suis un participant de cette discussion.

Le code exposé dans l'article de msdn permet de connaitre les formats de papier reconnus par l'imprimante. Le premier concerne l'imprimante définie par défaut et le second pour une imprimante X (le nom est utilisé comme paramètre). Le code exposé affiche un message qui donne pour l'imprimante
le numéro du format(valeur_format) ainsi que le nom du format. Sur cette base, il est possible en suite au moyen de la commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.PageSetup.PaperSize = valeur_format

d'utiliser un format reconnu par l'imprimante.

Remarque : le code msdn est valable pour Access, pour utiliser cela dans Excel j'ai ajouté la création de l'objet correspondant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim appAccess As Object
 
    Set appAccess = CreateObject("Access.Application")
 
 
    strDeviceName = appAccess.Application.Printer.DeviceName
    strDevicePort = appAccess.Application.Printer.Port