XL 2016 impression

[Martins@97]

Bonsoir,
je n'arrive pas a atteindre cette page d'impression excel 2016. meme avec l'enregistreur de macro. je dois véritablement louper quelque chose de simplissime mais quoi . . .
merci de votre aide, conseils

 

[Staple1600]

Bonsoir

Ceci devrait faire ton bonheur

Sub PrintPreview()
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
End Sub

 

[Martins@97]

Ben. . . . oui parfait. Par contre sais tu si cela fonction pour les versions excel antérieures

en tout cas merci c'est top

 

[Staple1600]

Re

A ton avis, qu'est-ce qu'on pourrait bien faire pour le savoir ?

 

[Martins@97]

Oups !!! par contre je n'arrive pas a afficher la feuille que je veux meme en utilisant activate ou select

 

[Staple1600]

Re

La réponse à ma précédente question pouvait être:
Bah, il suffit de faire le test pour le savoir

Sinon, pour jouer l'antiquaire, on a aussi ceci en magasin

Sub OldiesButGoodies_A()
ActiveSheet.PrintPreview
End Sub
Sub OldiesButGoodies_B()
Application.Dialogs(8).Show
End Sub

 

[Martins@97]

Premiere réponse tester sur les autres versions mais j'ai comme l'impression que ce n'est pas ça

suis vraiment un bleu mais réellement admiratif de vos connaissances

 

[Staple1600]

Re

Tu as testé le second code VBA ?
(celui du message#6)

PS: Mes connaissances seront les tiennes un jour
(C'est juste une question de temps passé devant un écran où Excel est affiché )
Pour ma part, Excel est affiché sur mon écran depuis 1991

 

[Martins@97]

C'est dingue je n'arrive pas a imprimer la feuille que je veux
j'ai l'impression que seule la feuille ou est le bouton qui active la macro est imprimable.

Oui j'ai testé les autres qui fonctionnent sauf si je demande un apercu.

j'ai neutralisé toutes les commandes excel, ruban, onglet , etc. seul apparaît la feuille excel en plein écran.


je ne comprend pas que cela ne fonctionne pas

voici ma macro complété avec ton aide

Sub imprime_RECETTE()
Application.ScreenUpdating = False
Sheets("FEUIL1").Select
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")


Sheets("fichetechnique").Select
Application.ScreenUpdating = True
End Sub

Je voudrai que la feuille 1 soit imprimée !!!??

 

[Staple1600]

Re

'bis repetita placent'
Et quid de tes tests des codes VBA (qui sont dans le message#6) ?

 

[Martins@97]

j'ai testé mais pour ActiveSheet.PrintPreview j'ai bien l'apercu sur une feuille excel plein écran sans rien d'autre. Je ne peux meme pas sortir du programme sans forcer l'arrêt.

Pour la seconde : Application.Dialogs(8).Show la boite de dialogue fonctionne bien mais des que je demande un apercu meme punition ma feuille a imprimer en plein écran sans aucune commande pour faire quoi que ce soit.

 

[Staple1600]

Re

1) Si, si on peut sortir sans souci
Il suffit de cliquer sur Fermer l'aperçu
Et si j'étais moi, bah, j'écrirai
Sheets("FEUIL1").PrintPreview

 

[Martins@97]

voila ce que j'ai à l'écran, plein écran je ne peux cliquer sur rien, il n'y a rien sauf dimensionner la feuille ou bien quitter

 

[Staple1600]

Bonsoir le fil

Martin@97
Tu as ce résultat en exécutant quelle macro?

 

[benoitpaquet]

Regarde la pièce jointe 1058246Bonsoir,
je n'arrive pas a atteindre cette page d'impression excel 2016. meme avec l'enregistreur de macro. je dois véritablement louper quelque chose de simplissime mais quoi . . .
merci de votre aide, conseils

Bonjour,
As-tu sélectionner les cellules que tu désires imprimer?