XL 2016 impression

Martins@97

XLDnaute Nouveau
Capture.PNG
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
 

Martins@97

XLDnaute Nouveau
Bonsoir,
après ceci

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 !!!??

mais pour info mon classeur est programmer pour s'ouvrir en plein écran, sans le ruban barre des titres, et tout le reste
 

Staple1600

XLDnaute Barbatruc
Bonsoir

Martins@97
Tu as testé ce dont je parlais ou pas?
(en l'adaptant)
VB:
Sub OldiesButGoodies_A()
ActiveSheet.PrintPreview
End Sub
Ci-dessous l'adaptation en question
VB:
Sub OldiesButGoodies_C()
Sheets("Feuil1").PrintPreview
End Sub
 

haxa

XLDnaute Nouveau
Bonjour
J'ai supprimé la ligne Sheets("fichetechnique").Select et en plaçant Sheets("FEUIL1").Select après Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint"), l' aperçu s'effectue bien sur la FEUIL1


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

Discussions similaires

Réponses
7
Affichages
453

Membres actuellement en ligne

Statistiques des forums

Discussions
312 520
Messages
2 089 297
Membres
104 092
dernier inscrit
karbone57